<!-- #include file ="XUDAdmLib.asp"-->
<!-- #include file="XUDLib.asp" -->
<%
'*******************************************************************************
'* XUD Copyright 1995-2003 XCENT - www.xcent.com                               *
'* XUD is a trademark of XCENT                                                 *
'* This notice may not be removed from this source code file                   *
'*******************************************************************************
    Dim lUpCount
    Redim sFileName(0)
    Redim sFileTitle(0)
    Redim sFileType(0)
    Redim lFileSize(0)
    Redim vFileCreated(0)
    bMBmainDebug = False
    Set objErr = CreateObject("Scripting.Dictionary")
    
    If gbEnabled Then
    	sCmd = UCase(Trim(RequestValue("Cmd")))
    	iPageCurrent = FVal(RequestValue("Page"))
    	lID = FVal(RequestValue("ID"))
    	lTo = Fval(RequestValue("TO"))
    	sToName = RequestValue("ToName")
    	sFromName  = RequestValue("FromName")
    	sFromEmail = RequestValue("FromEmail")
    	sSystem = RequestValue("System")
    	lSystemID = FVal(RequestValue("SystemID"))
    	sSubject = RequestValue("Subject")
    	sBody = RequestValue("Body")
    	sReturnTo = RequestValue("ReturnTo")
    	sOriginalBody = RequestValue("OriginalBody")
    	lUpCount = FVal(RequestValue("UpCount"))
    	For lItem = 1 to lUpCount
    	    Redim Preserve sFileName(lItem)
    	    Redim Preserve sFileTitle(lItem)
    	    Redim Preserve sFileType(lItem)
    	    Redim Preserve lFileSize(lItem)
    	    Redim Preserve vFileCreated(lItem)
    	    sFileName(lItem) = RequestValue("UpFileName" & lItem)
    	    sFileTitle(lItem) = RequestValue("UpFiletitle" & lItem)
    	    sFileType(lItem) = RequestValue("UpFileType" & lItem)
    	    lFileSize(lItem) = Fval(RequestValue("UpFileSize" & lItem))
    	    vFileCreated(lItem) = RequestValue("UpFileCreated" & lItem)
    	Next
        
    	lPageCount = 0
    	sURLString = "CMD=" & sCmd & "&ID=" & lID
    	OpenDBConn
    	LoadUserSettings
    	sView = ""
    	
    	    DoPageHeader
    		'TableHead
    		Select Case sCmd
        		Case "DELETE"
        		    If IsUserLoggedIn Then
        		        sView = "IN"
        			    DeleteMessages
        			    ViewInbox
        			Else
        			    RedirectLogin
        			End If        
        		Case "PREVIEW"
        		    If gbMBAllowNonReg OR IsUserLoggedIn Then
        		        sView = "COMPOSE"
            			If ValidateMessage Then
            			    PreviewMessage
            			Else
            			    ComposeMessage
            			End If
            		Else
            		    RedirectLogin
            		End If    
        		Case "SEND"
        		    If gbMBAllowNonReg OR IsUserLoggedIn Then
            			If ValidateMessage Then
            			    sView = "OUT"
            			    SendMessage
            			Else
            			    sView = "COMPOSE"
            			    ComposeMessage
            			End If
            	    Else
            	        RedirectLogin
            	    End If    
        		Case "COMPOSE"
        		    If gbMBAllowNonReg OR IsUserLoggedIn Then
        		        sView = "COMPOSE"
        			    ComposeMessage
        			Else
        			    RedirectLogin
        			End If        
        		Case "VIEW"
        		    If IsUserLoggedIn Then
        			    ViewMessage
        			Else
        			    RedirectLogin
        			End If        
        		Case "SENTBOX"
        		    If IsUserLoggedIn Then
        		        sView = "OUT"
        			    ViewSentbox
        			Else
        			    RedirectLogin
        			End If 
        		Case "INBOX"
        			If IsUserLoggedIn Then
        			    sView = "IN"
        			    ViewInbox
        			Else
        			    RedirectLogin
        			End If   
        		Case Else
        		    If IsUserLoggedIn Then
        		        sView = "IN"
        			    ViewInbox
        			ElseIf gbMBAllowNonReg Then
        			    sView = "COMPOSE"
        			    ComposeMessage
        			Else
        			    RedirectLogin    
        			End If
    		End Select
    		TableFoot
    		DoPageFooter
    		CloseDBConn
    	
    Else
    	Response.Redirect "XUDDisabled.asp"
    End If
    Set objErr = Nothing

Sub RedirectLogin
    CloseDBConn
	Response.Redirect "XUDLogin.asp?ReturnTo=" & Server.URLEncode("XUDMessageBase.asp?" & Request.QueryString)
End Sub

Sub AllFields
    Dim lItem
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Page"" VALUE=""" & iPageCurrent & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ID"" VALUE=""" & lID & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""To"" VALUE=""" & lTo & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ToName"" VALUE=""" & sToName & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""FromName"" VALUE=""" & sFromName & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""FromEmail"" VALUE=""" & sFromEmail & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""System"" VALUE=""" & sSystem & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""SystemID"" VALUE=""" & lSystemID & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Subject"" VALUE=""" & Server.HTMLEncode(sSubject) & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Body"" VALUE=""" & Server.HTMLEncode(sBody) & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""OriginalBody"" VALUE=""" & Server.HTMLEncode(sOriginalBody) & """>"    
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ReturnTo"" VALUE=""" & Server.HTMLEncode(sReturnTo) & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpCount"" VALUE=""" & UBound(sFileName) & """>"
	For lItem = 1 to UBound(sFileName)
	    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpFileName" & lItem & """ VALUE=""" & Server.HTMLEncode(sFileName(lItem)) & """>"
	    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpFileTitle" & lItem & """ VALUE=""" & Server.HTMLEncode(sFileTitle(lItem)) & """>"
	    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpFileType" & lItem & """ VALUE=""" & Server.HTMLEncode(sFileType(lItem)) & """>"
	    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpFileSize" & lItem & """ VALUE=""" & lFileSize(lItem) & """>"
	    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UpFileCreated" & lItem & """ VALUE=""" & vFileCreated(lItem) & """>"
	Next
End Sub

Sub DeleteMessages
	For Each i in Request("Delete")
		sSQL = "UPDATE tblXUDUserMessageBase SET umbReceiverDelete=" & SQLStr("Y") & _
			" WHERE umbID=" & SQLVal(i)
		gobjConnect.Execute(sSQL)
	Next
End Sub

Function ValidateMessage
	objErr.RemoveAll
	lOrigTo = lTo
	If abs(lTo) < 1 Then
		If Len(sToName) > 0 Then
			sUser = "SELECT regID from tblXUDUserRegistration WHERE regUserName=" & SQLStr(sToName)
			set rsUser = gobjConnect.Execute(sUser)
			If NOT rsUser.EOF Then
				lTo = rsUser("regID")
				If lTo = glUserID Then
				    objErr.Add "TOERROR", GLS_MBCantSendSelf
				End If    
			Else
			    
				objErr.Add "TOERROR",GLS_MBUnknownUser
				
			End If
			rsUser.Close
			Set rsUser = Nothing
		Else
			objErr.Add "TOERROR", GLS_MBNoUsername
		End If
	Else
	    If lTo = glUserID Then
			 objErr.Add "TOERROR", GLS_MBCantSendSelf
	    Else
	        sUser = "SELECT regID from tblXUDUserRegistration WHERE regID=" & SQLVal(lTo)
	        set rsUser = gobjConnect.Execute(sUser)
	        If rsUser.EOF Then
        	    objErr.Add "TOERROR",GLS_MBUnknownUser
	        End If
	        rsUser.Close
	        Set rsUser = Nothing
	    End If
	End If
	If Len(sSubject) = 0 Then
		objErr.Add "SUBJECT", GLS_MBNoSubject
	ElseIf IsDirtyWords(sSubject) Then
		objErr.Add "SUBJECT", GLS_MBBadSubject
    ElseIf Len(sSubject) > 80 Then
        objErr.Add "SUBJECT", GLS_MBLongSubject
	End If
	
	If Len(sBody) = 0 Then	
		objErr.Add "MESSAGE", GLS_MBNoMessage
	ElseIf IsDirtyWords(sBody) Then
		objErr.Add "MESSAGE", GLS_MBBadMessage
	End If
	
	If NOT IsUserLoggedIn Then
	    If len(sFromName) = 0 Then
	        objErr.Add "FROMERROR", GLS_MBNoFromName
	    End If
	    If len(sFromEmail) = 0 Then    
	        objErr.Add "FROMEMAIL", GLS_MBNoFromEmail
	    End If    
	End If    
	If objErr.Count > 0 Then
	    lTo =  lOrigTo
		ValidateMessage = False
	Else
		ValidateMessage = True
	End If
End Function

Sub SendMessage
	vNow = Now
	
	If IsUserLoggedIn Then
	    sFromName = gsUserName
	End If 
	
	If gbMBSendAsEmail Or gbMBSendAdvMessage Then
	    sToEmail = GetUserEmail(lTo)
	    sToName = GetUserName(lTo)
	    sNotify = ReadFile(Server.MapPath("XUDEmailTemplates/XUDMBSendAsEmail.txt")) & _
	            chr(13) & chr(10) & chr(13) & chr(10) & ReadFile(Server.MapPath("XUDEmailTemplates/XUDEmailFooter.txt"))
	    sNotify = Replace(sNotify, "%XUD%", gsXUDURL)
	    sNotify = Replace(sNotify, "%TO%", sToName)
	    sNotify = Replace(sNotify, "%FROMNAME%", sFromName)
	    sNotify = Replace(sNotify, "%FROMEMAIL%", OutMatch(len(sFromEmail), 0, GLS_TextNA,sFromEmail))
	    If len(sFromEmail) > 0 Then
	        sNotify = Replace(sNotify, "%EMAILREPLYLINK%", GLS_MBEmailReplyLink & sFromEmail)
	    Else
	        sNotify = Replace(sNotify, "%EMAILREPLYLINK%", "")
	    End If    
	    If IsUserLoggedIn Then
	        sNotify = Replace(sNotify, "%ONLINEREPLYLINK%", GLS_MBOnlineReplyLink & gsXUDURL & "XUDMessageBase.asp?CMD=COMPOSE&TONAME=" & Server.URLEncode(sFromName))
	    Else
	        sNotify = Replace(sNotify, "%ONLINEREPLYLINK%", "")
	    End If
	    sNotify = Replace(sNotify, "%BODY%", sBody)
	    sNotify = Replace(sNotify, "%SUBJECT%", sSubject)
	    sNotify = Replace(sNotify, "%DATETIME%", DispShortDateTime(NOW))
	    sMailSubject = GetFirstLine(sNotify)
	    If gbMBUseSenderAddress And len(sFromEmail) > 0 Then
	        sSendFromEmail = sFromEmail
	    Else
	        sSendFromEmail = gsAdminEmail
	    End If    
	    'response.write "to: " & sToEmail & " from: " & sSendFromEmail & " Body:" & sNotify
	    SendEmailMessage sToEmail, sSendFromEmail, sMailSubject, sNotify
	End If
	
	If Not gbMBSendAsEmail Or gbMBSendAdvMessage Then
    	If lID > 0 Then
    		sSQL =  "UPDATE tblXUDUserMessageBase " & _
    			    "SET umbReplied=" & SQLStr("Y") & _
    			    " WHERE umbID=" & SQLVal(lID)
    	    If bMBmainDebug Then Response.Write "SQL:<br><small><small>" & sSQL & "</small></small><br><br>"
    		gobjConnect.Execute sSQL
    	End If	
    	
    	If Len(Trim(sOriginalBody)) > 0 Then
    	    sBody = sBody & GLS_MBOriginalMessageSep & sOriginalBody
    	End If
    	
    	lUmbID = 0
    	
    	   
    	Select Case giDBType
    	    Case 0: 'Jet
    	        Set rs = Server.CreateObject("ADODB.RecordSet")
    	        rs.Open "tblXUDUserMessageBase",  gobjConnect, 1, 3, &H0002  'adOpenKeyset, adLockOptimistic, adCmdTable
    	        rs.AddNew
    	        rs("umbRegID") = lTo
    	        rs("umbFromRegID") = glUserID
    	        rs("umbFromName") = sFromName
    	        rs("umbFromEmail") = sFromEmail
    	        rs("umbDate") = vNow
    	        rs("umbSubject") = sSubject
    	        If Len(Trim(sSystem)) > 0 Then
    	            rs("umbSystem") = sSystem
    	            rs("umbSystemID") = lSystemID
    	        End If
    	        If lUpCount > 0 Then
    	            rs("umbHasAttachments") = "Y"
    	        End If
    	        rs("umbBody") = sBody
    	        rs.Update
    	        If bMBmainDebug Then Response.Write "SQL:n/a - JET AddNew/Update <br><br>"
    	        lUmbID = rs("umbID")
    	        rs.Close
    	        Set rs = Nothing
    	    Case 1: 'SQLServer
                sSQL =  "INSERT into tblXUDUserMessageBase(umbRegID, umbFromRegID, umbFromName, umbFromEmail, " &_
                	    "umbDate, umbSubject, umbSystem, umbSystemID, umbReceiverDelete, umbHasAttachments, umbBody) " &_
                	    "VALUES (" & _
                	    SQLVal(lTo) & ", " & _
                	    SQLVal(glUserID) & ", " &_
                	    SQLStr(sFromName) & ", " & _
                	    SQLStr(sFromEmail) & ", " & _
                	    SQLDate(vNow) & ", " & _
                	    SQLStr(sSubject) & ", " & _
                	    SQLStr(sSystem) & ", " & _
                	    SQLVal(lSystemID) & ", " & _
                	    SQLBool(False) & ", " & _
                	    SQLStr(OutMatch(lUpCount, 0, "N", "Y")) & ", " & _
                	    SQLStr(sBody) & ")"
                If bMBmainDebug Then Response.Write "SQL:<br><small><small>" & sSQL & "</small></small><br><br>"
                gobjConnect.Execute sSQL
                sSQL = "SELECT @@identity"
                Set rs = gobjConnect.Execute(sSQL)
                If Not rs.Eof Then
                    lUmbID = Fval(rs(0))
                End If
                rs.Close
                Set rs = Nothing
    	    Case Else
    	        lUmbID = 0
    	End Select
    	If bMBmainDebug Then Response.Write "lUmbID:" & lUmbID & "<br><br>"
    	If bMBmainDebug Then Response.Write "lUpCount:" & lUpCount & "<br><br>"
    	If (lUpCount > 0) And (lUmbID > 0) Then
    	    For lFile = 1 to lUpCount
    	        sSQL =  "INSERT INTO tblXUDUserMessageMedia " & _
    	                "(umbmUmbID, umbmCreated, umbmSize, umbmType, umbmTitle, umbmLocalFilename, umbmValue) " & _
    	                "VALUES (" & _
    	                SQLVal(lUmbID) & ", " & _
    	                SQLDate(vFileCreated(lFile)) & ", " & _
    	                SQLVal(lFileSize(lFile)) & ", " & _
    	                SQLStr(sFileType(lFile)) & ", " & _
    	                SQLStr(sFileTitle(lFile)) & ", " & _
    	                SQLStr(sFileName(lFile)) & ", " & _
    	                SQLStr(sFileName(lFile)) & " " & _
    	                ") "
    	        If bMBmainDebug Then Response.Write "SQL:<br><small><small>" & sSQL & "</small></small><br><br>"
    	        gobjConnect.Execute sSQL
    	    Next
    	Else
    	    If lUmbID = 0 Then
    	        Response.Write "<BR><BR><B>INSERT ERROR</B><BR><BR>"
    	    End If
    	End If
    	
    	UserNotification
	End If
	If len(gsMonitorEmail) > 0 Then
	    sNotify = ReadFile(Server.MapPath("XUDEmailTemplates/XUDAdmMessageBaseCopy.txt")) & _
	            chr(13) & chr(10) & chr(13) & chr(10) & ReadFile(Server.MapPath("XUDEmailTemplates/XUDEmailFooter.txt"))
	    sNotify = Replace(sNotify, "%XUD%", gsXUDURL)
	    sNotify = Replace(sNotify, "%TO%", GetUserName(lTo))
	    sNotify = Replace(sNotify, "%FROM%", sFromName)
	    sNotify = Replace(sNotify, "%BODY%", sBody)
	    sNotify = Replace(sNotify, "%SUBJECT%", sSubject)
	    sMailSubject = GetFirstLine(sNotify)
	    SendEmailMessage gsMonitorEmail, gsAdminEmail, sMailSubject, sNotify
	ElseIf gbMBCopyAdmin Then
	    sNotify = ReadFile(Server.MapPath("XUDEmailTemplates/XUDAdmMessageBaseCopy.txt")) & _
	            chr(13) & chr(10) & chr(13) & chr(10) & ReadFile(Server.MapPath("XUDEmailTemplates/XUDEmailFooter.txt"))
	    sNotify = Replace(sNotify, "%XUD%", gsXUDURL)
	    sNotify = Replace(sNotify, "%TO%", GetUserName(lTo))
	    sNotify = Replace(sNotify, "%FROM%", sFromName)
	    sNotify = Replace(sNotify, "%BODY%", sBody)
	    sNotify = Replace(sNotify, "%SUBJECT%", sSubject)
	    sMailSubject = GetFirstLine(sNotify)
	    SendEmailMessage gsAdminEmail, gsAdminEmail, sMailSubject, sNotify
	End If
	
	If UCase(Trim(sSystem)) = "CAD" And lSystemID > 0 Then
	    sSQL = "UPDATE tblCPClassifieds SET cadReplyCount = cadReplyCount + 1 " & _
	        "WHERE cadID = " & SQLVal(lSystemID)
	    gobjConnect.Execute(sSQL)
	End If
	
	If Len(sReturnTo) = 0 Then
	    If IsUserLoggedIn AND (NOT gbMBSendASEmail Or gbMBSendAdvMessage) Then
		    Response.Redirect "XUDMessageBase.asp?CMD=SENTBOX"
		Else
		    sNav = "<A HREF=""XUDMessageBase.asp?CMD=COMPOSE"">" & GLS_MBNavCompose & "</A>"
		    TableHead sNav
		    Response.Write gsPlainTextOpen & GLS_MBMessageSent & gsPlainTextClose
		    Response.Write "<BR><FORM ACTION=""XUD.asp""><input type=""submit"" value=""" & GLS_TextContinue & """ CLASS=""XcBtn""></FORM>"
		End If    
	Else
		
		Response.Redirect sReturnTo 
	End If
End Sub

Sub UserNotification
    Dim sSubject
    sSQL= "SELECT regHasUserMail, regEmail FROM tblXUDUserRegistration WHERE regID=" & lTo
	set rsHasMail = gobjConnect.Execute(sSQL)
	If NOT rsHasMail.EOF Then
	    sHasMail = EvalBool(rsHasMail("regHasUserMail"))
	    sUserEmail = "" & rsHasMail("regEmail")
	   If NOT sHasMail Then
		    sUpdate = "UPDATE tblXUDUserRegistration SET regHasUserMail=" & SQLStr("Y") &_
			    " WHERE regID=" & lTo
		    gobjConnect.Execute sUpdate
		    sNotify = ReadFile(Server.MapPath("XUDEmailTemplates/XUDNewMessageReceived.txt")) & _
		         chr(13) & chr(10) & ReadFile(Server.MapPath("XUDEmailTemplates/XUDEmailFooter.txt"))
		    sNotify = Replace(sNotify,"%XUD%",gsXUDURL)
		    sMailSubject = GetFirstLine(sNotify)
            SendEmailMessage sUserEmail, gsAdminEmail, sMailSubject, sNotify
	    End If
	End If
	rsHasMail.Close
	set rsHasMail = Nothing    
End Sub

Sub ComposeMessage
    AddDisableSubmitJS
	sNav = ""
	If lID > 0 and Len(sSubject)= 0 Then 'reply
		LoadValues
		sNav = "<A HREF=""XUDMessageBase.asp"">" & GLS_MBNavSentbox & "</A>"
		sNav = sNav & "&nbsp;:&nbsp;<A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & lID & """>" & sSubject & "</A>"
		sNav = sNav & "&nbsp;:&nbsp;<A>" & GLS_MBNavReply & "</A>"
		If NOT Instr(sSubject, GLS_MBMsgReplySubject)=1 Then sSubject = GLS_MBMsgReplySubject & sSubject
		If (Len(sSubject) > 80) Then sSubject = Left(sSubject, 77) & "..."
	Else
		sNav ="<A>" & GLS_MBNavCompose & "</A>"
	End If
	TableHead sNav
	Response.Write gsSectionTitleOpen & GLS_TextComposeMessage & gsSectionTitleClose
	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
	Response.Write "<TR><TD>"
	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
	Response.Write "<FORM ACTION=""XUDMessageBase.asp"" METHOD=""POST"" onSubmit=""return XC_DisableSubmit(this.SUBMIT);"">"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""PREVIEW"">"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ID"" VALUE=""" & lID & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""To"" VALUE=""" & lTo & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ReturnTo"" VALUE=""" & sReturnTo & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""System"" VALUE=""" & sSystem & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""SystemID"" VALUE=""" & lSystemID & """>"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""OriginalBody"" VALUE=""" & Server.HTMLEncode(sOriginalBody) & """>"
	
	Response.Write "<TR><TD COLSPAN=""2"">" & gsPlainTextOpen & GLS_RequiredText & gsPlainTextClose & "</TD></TR>"
	Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("TOERROR"), objErr.Item("TOERROR"), GLS_TextToUsername & GLS_PromptSeparator ) & gsFormTextClose & "</TD>"
	Response.Write "<TD WIDTH=""80%"">" 
	If lTo > 0 Then
	 	Response.Write gsPlainTextOpen & GetUserName(lTo) & "&nbsp;" & gsPlainTextClose 
	Else
	    Response.Write "<INPUT TYPE=""TEXT"" Name=""ToName"" VALUE=""" & sToName & """ SIZE=""20"" MAXLENGTH=""20"">"
		
	End If 	
	Response.Write  GLS_Required & "</TD></TR>"
	
	'fields for unregistered users to use message base
	If NOT IsUserLoggedIn Then
	    Response.Write "<TR VALIGN=""TOP""><TD WIDTH=""20%"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("FROMERROR"), objErr.Item("FROMERROR"), GLS_MBFromName & GLS_PromptSeparator ) & gsFormTextClose & "</TD>"
	    Response.Write "<TD VALIGN=""TOP""><INPUT TYPE=""TEXT"" Name=""FromName"" VALUE=""" & sFromName & """ SIZE=""20"" MAXLENGTH=""20"">" & GLS_Required  & "<BR>" & gsPlainTextOpen & Replace(GLS_MBLoginLink, "%LOGINREDIRECT%", "XUDLogin.asp?ReturnTo=" & Server.URLEncode("XUDMessageBase.asp?" & Request.QueryString)) & gsPlainTextClose &"</TD></TR>"
	    
	Else
	    Response.Write "<TR><TD WIDTH=""20%"" VALIGN=""TOP"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("FROMERROR"), objErr.Item("FROMERROR"), GLS_MBFromName & GLS_PromptSeparator ) & gsFormTextClose & "</TD>"
	    Response.Write "<TD VALIGN=""TOP"">"& gsPlainTextOpen & gsUserName & GLS_Required & "<BR>" & GLS_MBLogoutLink & gsPlainTextClose & "</TD></TR>"
	    
	End If
	If gbMBSendAsEmail  Or gbMBSendAdvMessage OR NOT IsUserLoggedIn Then
	
	    Response.Write "<TR><TD WIDTH=""20%"" valign=""top"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("FROMEMAIL"), objErr.Item("FROMEMAIL"), GLS_MBFromEmail & GLS_PromptSeparator) & gsFormTextClose & "</TD>"
	    Response.Write "<TD><INPUT TYPE=""TEXT"" Name=""FromEmail"" VALUE=""" & sFromEmail & """ SIZE=""20"" MAXLENGTH=""80"">" & OutMatch(IsUserLoggedIn,False,GLS_Required, "") 
	    If (gbMBSendAsEmail  Or gbMBSendAdvMessage) AND IsUserLoggedIn Then
	        Response.Write "<BR>" & gsPlainTextOpen & GLS_MBSendAsEmailEmailTip & gsPlainTextClose
	    End If    
	    Response.Write "</TD></TR>"
	End If    
	Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen &  OutMatch(True, objErr.Exists("SUBJECT"), objErr.Item("SUBJECT"), GLS_TextSubject & GLS_PromptSeparator) & gsFormTextClose & "</TD>"
	Response.Write "<TD WIDTH=""80%""><INPUT TYPE=""TEXT"" NAME=""Subject"" SIZE=""40"" MAXLENGTH=""80"" VALUE=""" & Server.HTMLEncode(sSubject) & """>" & GLS_Required & "</TD></TR>"
	Response.Write "<TR><TD VALIGN=""TOP"" WIDTH=""20%"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("MESSAGE"), objErr.Item("MESSAGE"), GLS_TextMessage & GLS_PromptSeparator & GLS_Required) & gsFormTextClose & "</TD>"
	Response.Write "<TD VALIGN=""TOP"" WIDTH=""80%""><TEXTAREA COLS=""35"" ROWS=""10"" WRAP=""PHYSICAL"" NAME=""Body"">" & sBody & "</TEXTAREA></TD></TR>"
	Response.Write "<TD WIDTH=""20%"">&nbsp;</TD>"
	Response.Write "<TD WIDTH=""80%""><INPUT TYPE=""submit"" value=""" & GLS_TextPreviewMessage & """ class=""XcBtn"" name=""SUBMIT""></TD></TR>"
	Response.Write "</FORM>"
	Response.Write "</TABLE>"
	
	Response.Write "</TD></TR></TABLE>"
	If lID > 0 Then
		Response.Write "<BR><TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
		Response.Write "<TR><TD>"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
		Response.Write "<TR bgColor=""" & pageBGColor & """>"
		Response.Write "<TD VALIGN=""TOP"" WIDTH=""20%"">" & gsFormTextOpen & GLS_MBOriginalMsg & gsFormTextClose & "</TD>"
		sTemp = Server.HTMLEncode(sOriginalBody)
		sTemp = Replace(sTemp, vbCrLf, "<br>")
		Response.Write "<TD WIDTH=""80%"">" & gsPlainTextOpen & sTemp & gsPlainTextClose & "</TD>"
		Response.Write "</TR></TABLE>"
		Response.Write "</TD></TR></TABLE>"
	End If
End Sub

Sub PreviewMessage
    AddDisableSubmitJS
	sNav = ""
	If lID > 0 and Len(sSubject) = 0 Then 'reply
		sNav = "<A HREF=""XUDMessageBase.asp"">" & GLS_MBNavSentbox & "</A>"
		sNav = sNav & "&nbsp;:&nbsp;<A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & lID & """>" & sSubject & "</A>"
		sNav = sNav & "&nbsp;:&nbsp;<A>" & GLS_MBNavReply & "</A>"
		If NOT Instr(sSubject, GLS_MBMsgReplySubject)=1 Then sSubject = GLS_MBMsgReplySubject & sSubject
		If (Len(sSubject) > 80) Then sSubject = Left(sSubject, 77) & "..."
	Else
		sNav ="<A>" & GLS_MBNavCompose & "</A>"
	End If
	TableHead sNav
	Response.Write gsSectionTitleOpen & GLS_TextPreviewMessage & gsSectionTitleClose
	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
	Response.Write "<TR><TD>"
	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
	Response.Write "<FORM ACTION=""XUDMessageBase.asp"" METHOD=""POST"" onSubmit=""return XC_DisableSubmit(this.SUBMIT);"">"
	Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""SEND"">"
	AllFields
	
	Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen & OutMatch(True, objErr.Exists("TOERROR"), objErr.Item("TOERROR"), GLS_TextToUsername & GLS_PromptSeparator) & gsFormTextClose & "</TD>"
	Response.Write "<TD WIDTH=""80%"">" 
	If lTo > 0 Then
	 	Response.Write gsPlainTextOpen & GetUserName(lTo) & gsPlainTextClose
	Else
	    
		Response.Write "<INPUT TYPE=""TEXT"" Name=""ToName"" VALUE=""" & sToName & """ SIZE=""20"" MAXLENGTH=""20"">"
	    
	End If 	
	Response.Write "</TD></TR>"
	If NOT IsUserLoggedIn Then
	    Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen &  GLS_MBFromName & GLS_PromptSeparator  & gsFormTextClose & "</TD>"
	    Response.Write "<TD>" & gsPlainTextOpen & Server.HtmlEncode(sFromName) & gsPlainTextClose & "</TD></TR>"
	End If
	If len(sFromEmail) > 0 Then    
	    Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen &   GLS_MBFromEmail & GLS_PromptSeparator  & gsFormTextClose & "</TD>"
	    Response.Write "<TD>" & gsPlainTextOpen & Server.HtmlEncode(sFromEmail) & gsPlainTextClose & "</TD></TR>"
	End If
	Response.Write "<TR><TD WIDTH=""20%"">" & gsFormTextOpen &  GLS_TextSubject & GLS_PromptSeparator & gsFormTextClose & "</TD>"
	Response.Write "<TD WIDTH=""80%"">" & gsPlainTextOpen & Server.HTMLEncode(sSubject) & gsPlainTextClose & "</TD></TR>"
	Response.Write "<TR><TD VALIGN=""TOP"" WIDTH=""20%"">" & gsFormTextOpen & GLS_TextMessage & GLS_PromptSeparator & gsFormTextClose & "</TD>"
	sDisplayBody = Server.HTMLEncode(sBody)
	sDisplayBody = Replace(sDisplayBody, vbCrLf, "<BR>")
	Response.Write "<TD WIDTH=""80%"">" & gsPlainTextOpen & sDisplayBody & gsPlainTextClose & "</TD></TR>"
	Response.Write "<TD WIDTH=""20%"">&nbsp;</TD>"
	Response.Write "<TD WIDTH=""80%""><INPUT TYPE=""submit"" value=""" & GLS_TextSend & """ class=""XcBtn"" name=""SUBMIT""></TD></TR>"
	Response.Write "</FORM>"
	If giUploadHandler > 0 AND gbMBAllowAttach AND NOT gbMBSendAsEmail Then
	    If giMBMaxFiles > lUpCount Then
    	    Response.Write "<form method=""post"" action=""XUDMessageBaseUpload.asp"">"
    	    AllFields
    	    Response.Write "<tr><td width=""20%"">&nbsp;</td>"
    	    Response.Write "<td width=""80%""><input type=""submit"" value=""" & GLS_TextAttachFiles & """ class=""XcBtn""></td></tr></form>"
    	Else
    	    Response.Write "<tr><td width=""20%"">&nbsp;</td>"
    	    Response.Write "<td width=""80%"">" & gsPlainTextOpen & GLS_MBMaxFilesPerMsg & gsPlainTextClose & "</td></tr></form>"
    	End If
	End If
	Response.Write "</TABLE>"
	Response.Write "</TD></TR></TABLE>"
	If UBound(sFileName) > 0 Then
	    Response.Write "<BR><TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
	    Response.Write "<TR><TD>"
	    Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
	    Response.Write "<TR bgcolor=""" & gsTitleCellColor & """><td >" & gsColumnHeadOpen & GLS_TextFilesAttached & GLS_PromptSeparator & gsColumnHeadClose & "</td><td>&nbsp;</td></tr>"
	    bLineTag = True
	    For lItem = 1 to Ubound(sFileName)
	        sLineColor = AlternateTag(bLineTag, gsAltColorOne, gsAltColorTwo)
	        Response.Write "<TR bgcolor=""" & sLineColor & """><td>" & gsPlainTextOpen & sFileName(lItem) & gsPlainTextClose & "</td><td>" & gsPlainTextOpen & sFileTitle(lItem) & gsPlainTextClose & "</td></tr>"
	    Next
		Response.Write "</TR></TABLE>"
		Response.Write "</TD></TR></TABLE>"
	End If
	
	If lID > 0 Then
		Response.Write "<BR><TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
		Response.Write "<TR><TD>"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
		Response.Write "<TR bgColor=""" & pageBGColor & """>"
		Response.Write "<TD VALIGN=""TOP"" WIDTH=""20%"">" & gsFormTextOpen & GLS_MBOriginalMsg & gsFormTextClose & "</TD>"
		sTemp = Server.HTMLEncode(sOriginalBody)
		sTemp = Replace(sTemp, vbCrLf, "<br>")
		Response.Write "<TD WIDTH=""80%"">" & gsPlainTextOpen & sTemp & gsPlainTextClose & "</TD>"
		Response.Write "</TR></TABLE>"
		Response.Write "</TD></TR></TABLE>"
	End If
End Sub

Sub LoadValues
	sValues = "SELECT umbSubject, umbSystem, umbSystemID, umbFromRegID, " & _
	        "umbBody " & _
	        " FROM tblXUDUserMessageBase WHERE umbID=" & SQLVal(lID)
	Set rsValues = gobjConnect.Execute(sValues)
	If not rsValues.EOF Then
		sSubject = rsValues("umbSubject")
		sSystem = rsValues("umbSystem")
		lSystemID = rsValues("umbSystemID")
		lTo = rsValues("umbFromRegID")
		sOriginalBody = rsValues("umbBody")
	End If
	rsValues.Close
	set rsValues = Nothing
End Sub

Sub OutputFileViewJS
    Response.Write vbCrLf & vbCrLf & "<script language=""JavaScript"">" & vbCrLf
    Response.Write "<!--" & vbCrLf
    Response.Write "function XUD_FileView(psFile, psType) {" & vbCrLf
    Response.Write "    var xudFileViewWindow = window.open('XUDMessageBaseFileView.asp?file=' + psFile + '&type=' + psType,'XUDFileView','" & gsMBFileViewWindowParams & "');" & vbCrLf
    Response.Write "    xudFileViewWindow.focus();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "// -->" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

Sub ViewMessage
	vNow = Now
	OutputFileViewJS
	sSQL = "SELECT umbSystem, umbSystemID, umbSubject, umbRegID, umbFromRegID, umbFromName, " & _
	    " umbFromEmail, umbDate, umbHasAttachments, umbBody " & _
	    " FROM tblXUDUserMessageBase WHERE" & _
		" ((( umbReceiverDelete IS NULL OR umbReceiverDelete=" & SQLStr("N") & ") AND umbRegID=" & SQLVal(glUserID) & ")" & _
		" OR umbFromRegID=" & SQLVal(glUserID) & ")" & _
		" AND umbID=" & SQLVal(lID)
	
	SET rsMessage= gobjConnect.Execute(sSQL) 
	If NOT rsMessage.EOF Then
	    bHasAttachments = EvalBool(rsMessage("umbHasAttachments"))
		If rsMessage("umbRegID") = glUserID Then  'to reader
		    sView = "IN"
			sNav = "<A HREF=""XUDMessageBase.asp"">" & GLS_MBNavInbox & "</A>&nbsp;:&nbsp;"
		Else
		    sView = "OUT"
			sNav = "<A HREF=""XUDMessageBase.asp?CMD=SENTBOX"">" & GLS_MBNavSentbox & "</A>&nbsp;:&nbsp;"
		End If
		sNav = sNav & "<A>" & rsMessage("umbSubject") & "</A>"
		TableHead sNav
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
		Response.Write "<TR><TD>"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
	
		bUpdate= False	
		Response.Write "<TR BGCOLOR=""" & gsTitleCellColor & """><TD>"
		Response.Write gsColumnHeadOpen & GLS_TextSubject & GLS_PromptSeparator & gsColumnHeadClose
		Response.Write gsColumnHeadOpen & rsMessage("umbSubject") & gsColumnHeadClose
		Select Case UCase("" & rsMessage("umbSystem"))
			Case "AUC":
			    If FVal(rsMessage("umbSystemID")) > 0 Then
			        sLink = "<A HREF=""" & gsAucURL & "APViewItem.asp?ID=" & rsMessage("umbSystemID") & """>" & SystemTypeIcon("AUC") & "</A>"
			    Else
			        sLink = "<A HREF=""" & gsAucURL & "XcAuctionPro.asp"">" & SystemTypeIcon("AUC") & "</a>"
			    End If
			Case "CAD":
			    If FVal(rsMessage("umbSystemID")) > 0 Then
				    sLink = "<A HREF=""" & gsCadURL & "CPViewItem.asp?ID=" & rsMessage("umbSystemID") & """>" & SystemTypeIcon("CAD") & "</A>"
				Else
				    sLink = "<A HREF=""" & gsCadURL & "XcClassified.asp"">" & SystemTypeIcon("CAD") & "</a>"
			    End If
			Case "MSG": 
			    If FVal(rsMessage("umbSystemID")) > 0 Then
				    sLink = "<A HREF=""" & gsMSGURL & "MSGViewThread.asp?MsgID=" & rsMessage("umbSystemID") & """>" & SystemTypeIcon("MSG") & "</A>"
				Else
				    sLink = "<A HREF=""" & gsMSGURL & "Forum.asp"">" & SystemTypeIcon("MSG") & "</a>"
			    End If       
    		Case Else
    		    sLink = GLS_SymbNone
		End Select
		Response.Write "&nbsp;&nbsp;" & gsColumnHeadOpen & sLink & gsColumnHeadClose & "<BR>"
		Response.Write gsColumnHeadOpen & GLS_TextDate & GLS_PromptSeparator & gsColumnHeadClose
		Response.Write gsColumnHeadOpen & DispShortDateTime(rsMessage("umbDate")) & gsColumnHeadClose & "<BR>"
		If rsMessage("umbRegID") = glUserID Then  'to reader
			bUpdate = True
			Response.Write gsColumnHeadOpen & GLS_TextFrom & GLS_PromptSeparator & gsColumnHeadClose
			
			sFromDisplay = rsMessage("umbFromName")
			If rsMessage("umbFromRegID") = 0 Then sFromDisplay = sFromDisplay & GLS_MBNonRegSymbol
			
			Response.Write gsColumnHeadOpen & sFromDisplay & gsColumnHeadClose
			
			If len("" & rsMessage("umbFromEmail")) > 0 Then
			    Response.Write "<BR>" & gsColumnHeadOpen & GLS_TextEmail & GLS_PromptSeparator & gsColumnHeadClose
			    Response.Write gsColumnHeadOpen & "<A HREF=""mailto:" & rsMessage("umbFromEmail") & """>" & rsMessage("umbFromEmail") & "</A>"
			End If
		Else
			Response.Write gsColumnHeadOpen & GLS_TextToUsername & GLS_PromptSeparator & gsColumnHeadClose
			
		    sToDisplay = GetUserName(rsMessage("umbRegID"))
			
			Response.Write gsColumnHeadOpen & sToDisplay & gsColumnHeadClose
		End If
		Response.Write "</TD></TR>"
		Response.Write "<TR BGCOLOR=""" & PageBGColor & """><TD>"
		sDisplayBody = Server.HTMLEncode(rsMessage("umbBody"))
		sDisplayBody = Replace(sDisplayBody, vbCrLf, "<BR>")
		Response.Write gsPlainTextOpen & sDisplayBody & gsPlainTextClose
		Response.Write "</TD></TR>"
		'Response.Write "<TR BGCOLOR=""" & gsTitleCellColor & """><TD>"
		
		'***Buttons****
		Response.Write "<TR ><TD>"
	    Response.Write "<TABLE cellspacing=""0"" cellpadding=""2""><TR>"
			
		If FVal(rsMessage("umbRegID")) = glUserID  Then
		    If rsMessage("umbFromRegID") > 0 Then
    			Response.Write "<FORM METHOD=""POST"" ACTION=""XUDMessageBase.asp"">"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""COMPOSE"">"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ID"" VALUE=""" & lID & """>"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""System"" VALUE=""" & rsMessage("umbSystem") & """>"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""SystemID"" VALUE=""" & rsMessage("umbSystemID") & """>"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""To"" VALUE=""" & rsMessage("umbFromRegID") & """>"
    			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""OriginalBody"" VALUE=""" & Server.HTMLEncode(sOriginalBody) & """>"
    			Response.Write "<TD>"
    			Response.Write "<INPUT TYPE=""submit"" value=""" & GLS_TextReply & """ class=""XcBtn"">"
    			Response.Write "</TD>"
    			Response.Write "</FORM>"
    			'Response.Write "</TD>"
    		End If	
			Response.Write "<FORM METHOD=""POST"" ACTION=""XUDMessageBase.asp"">"
			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""DELETE"">"
			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Delete"" VALUE=""" & lID & """>"
			Response.Write "<TD>"
			Response.Write "<INPUT TYPE=""submit"" value=""" & GLS_TextDelete & """ class=""XcBtn"">"
			Response.Write "</TD>"
			Response.Write "</FORM>"
			 
		End If
		Response.Write "<FORM METHOD=""POST"" ACTION=""XUDMessageBasePrint.asp"">"
		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ID"" VALUE=""" & lID & """>"
		Response.Write "<TD>"
		Response.Write "<INPUT TYPE=""submit"" value=""" & GLS_TextPrint & """ class=""XcBtn"">"
		Response.Write "</TD>"
		Response.Write "</FORM>"
		
		Response.Write "</TR></TABLE>"
			  
		Response.Write "</TD></TR>"
		
		If rsMessage("umbFromRegID") = 0 Then
			    Response.Write "<TR><TD>" & gsPlainTextOpen & GLS_MBReplyUnregistered & gsPlainTextClose & "</TD></TR>"
		End If 
		
	Else
		TableHead ""
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
		Response.Write "<TR><TD>"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
		Response.Write "<TR><TD>" & gsPlainTextOpen & GLS_MBInvalidMessage & gsPlainTextClose & "</TD></TR>"
	End If
	rsMessage.Close
	set rsMessage = Nothing
	
	Response.Write "</TABLE>"
	Response.Write "</TD></TR></TABLE>"
	
	If bHasAttachments Then
	    sSQL = "SELECT * FROM tblXUDUserMessageMedia WHERE umbmUmbID = " & SQLVal(lID)
	    Set rsAttach = gobjConnect.Execute(sSQL)
	    
	    Response.Write "<img src=""XUDImages/pix.gif"" width=""10"" height=""3"">"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
		Response.Write "<TR><TD>"
		Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
	    Response.Write "<TR BGCOLOR=""" & gsTitleCellColor & """ ><TD colspan=""3"">" & gsColumnHeadOpen & GLS_TextAttachments & gsColumnHeadClose & "</td></tr>"
	    If Not rsAttach.Eof Then
	        Do While Not rsAttach.Eof
	            sType = UCase(Trim("" & rsAttach("umbmType")))
	            sValue = "" & rsAttach("umbmValue")
	            Response.Write "<TR BGCOLOR=""" & PageBGColor & """>"
	            'Select Case sType
	            '    Case "IMG":
	                    Response.Write "<td>" & gsPlainTextOpen & "<a href=""" & gsMBFileFolder & "/" & sValue & """ onClick=""XUD_FileView('" & sValue & "', '" & sType & "'); return false;"">" & sValue & "</a>&nbsp;" & gsPlainTextClose & "</td>"
	            '    Case Else
	            '        Response.Write "<td>" & gsPlainTextOpen & rsAttach("umbmValue") & "&nbsp;" & gsPlainTextClose & "</td>"
	            'End Select
	            Response.Write "<td>" & gsPlainTextOpen & rsAttach("umbmSize") & "&nbsp;" & gsPlainTextClose & "</td>"
	            Response.Write "<td>" & gsPlainTextOpen & DispShortDateTime(rsAttach("umbmCreated")) & gsPlainTextClose & "</td>"
	            Response.Write "</tr>"
	            rsAttach.Movenext
	        Loop
	    Else
	        Response.Write "<TR BGCOLOR=""" & PageBGColor & """><TD colspan=""3"">" & gsPlainTextOpen & GLS_MBErrListFiles & gsPlainTextClose & "</td></tr>"
	    End If
	    rsAttach.Close
	    Set rsAttach = Nothing
	    
	    Response.Write "</table></td></tr></table>"
	End If
		
	If bUpdate Then
		sUpdate= "UPDATE tblXUDUserMessageBase SET" & _
			" umbRead=" & SQLStr("Y") & "," & _
			" umbReadOn=" & SQLDate(vNow) & _
			" WHERE umbID=" & SQLVal(lID)
		gobjConnect.Execute(sUpdate)
	End If
End Sub

Sub ViewInbox
    If NOT gbMBSendAsEmail Or gbMBSendAdvMessage Then
    	UpdateMailFlag
    	sNav = "<A>" & GLS_MBNavInbox & "</A>"
    	TableHead sNav
    	sSQL =  "SELECT umbID, umbSystem, umbSystemID, umbSubject, umbRegID, umbFromRegID, umbFromName, " & _
    	    " umbFromEmail, umbDate, umbHasAttachments, umbRead, umbReplied  " & _
    	    " FROM tblXUDUserMessageBase" & _ 
    		" WHERE umbRegID=" & SQLVal(glUserID) & _
    		" AND (umbReceiverDelete=" & SQLStr("N") & " OR umbReceiverDelete Is NULL) " & _
    		" ORDER BY umbDate DESC"
    	Response.Write gsSectionTitleOpen & GLS_MBMessagesReceived & gsSectionTitleClose & "<BR>"	 
    	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
    	Response.Write "<TR><TD>"
    	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
    	
    	Response.Write "<TR BGCOLOR=""" & gsTitleCellColor & """>"
    	Response.Write "<TD>&nbsp;</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextFrom & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextReceived & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextSystem & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextSubject & gsColumnHeadClose & "</TD>"
    	Response.Write "</TR>"
    	
    	Set rsMail = Server.CreateObject("ADODB.Recordset")
    	rsMail.PageSize = giItemsPerPage
    	rsMail.CursorLocation = 3 'adUseClient
    	rsMail.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText
    	If Not rsMail.EOF Then
    		Response.Write "<FORM ACTION=""XUDMessageBase.asp"" METHOD=""POST"">"
    		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""DELETE"">"	
    		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Page"" VALUE=""" & iPageCurrent & """>"	
    		
    		lPageCount = rsMail.PageCount
    		If iPageCurrent < 1 Then iPageCurrent = 1
    		If iPageCurrent > lPageCount Then iPageCurrent = lPageCount
    		rsMail.AbsolutePage = iPageCurrent
    		
    		iLineFlag = True
    		sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)					
    		Do While (Not rsMail.EOF) AND (rsMail.AbsolutePage = iPageCurrent)
    			sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)
    			Response.Write "<TR BGCOLOR=" & sLineTag & ">"
    			If EvalBool(rsMail("umbRead")) Then
    				If EvalBool(rsMail("umbReplied")) Then
    					sImage = "<IMG BORDER=0 SRC= ""XUDImages/XUDMailReplied.gif"" ALT=""" & GLS_TextRead & """>"
    				Else
    					sImage = "<IMG BORDER=0 SRC= ""XUDImages/XUDMailRead.gif"" ALT=""" & GLS_TextRead & """>"
    				End If
    			Else
    				sImage = "<IMG BORDER=0 SRC= ""XUDImages/XUDMailUnRead.gif"" ALT=""" & GLS_TextUnread & """>"
    			End If
    			If EvalBool(rsMail("umbHasAttachments")) Then
    			    sImage = sImage & "<IMG BORDER=0 SRC= ""XUDImages/XUDMsgAttachments.gif"" ALT=""" & GLS_TextAttachments & """>"
    			End If
    			Response.Write "<TD>"
    			Response.Write  "<INPUT TYPE=""CHECKBOX"" Name=""Delete"" VALUE=""" & rsMail("umbID") & """>"
    			Response.Write "&nbsp;<A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & rsMail("umbID") & """>" & sImage & "</A>" 
    			Response.Write "</TD>"
    			
    			    sFromDisplay = rsMail("umbFromName")
    			    If rsMail("umbFromRegID") = 0 Then
    			        sFromDisplay = sFromDisplay & GLS_MBNonRegSymbol
    			    ElseIf IsUserVerified(rsMail("umbFromRegID")) Then
    			        sFromDisplay = sFromDisplay &  GLS_Verified
    			    End If    
    			
    			
    			Response.Write "<TD>" & gsPlainTextOpen &  sFromDisplay & gsPlainTextClose & "</TD>"
    			Response.Write "<TD>" & gsPlainTextOpen & DispShortDate(rsMail("umbDate")) & gsPlainTextClose & "</TD>"
    			Select Case UCase("" & rsMail("umbSystem"))
        			Case "AUC":
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        			        sLink = "<A HREF=""" & gsAucURL & "APViewItem.asp?ID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("AUC") & "</A>"
        			    Else
        			        sLink = "<A HREF=""" & gsAucURL & "XcAuctionPro.asp"">" & SystemTypeIcon("AUC") & "</a>"
        			    End If
        			Case "CAD":
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        				    sLink = "<A HREF=""" & gsCadURL & "CPViewItem.asp?ID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("CAD") & "</A>"
        				Else
        				    sLink = "<A HREF=""" & gsCadURL & "XcClassified.asp"">" & SystemTypeIcon("CAD") & "</a>"
        			    End If
        			Case "MSG": 
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        				    sLink = "<A HREF=""" & gsMSGURL & "MSGViewThread.asp?MsgID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("MSG") & "</A>"
        				Else
        				    sLink = "<A HREF=""" & gsMSGURL & "Forum.asp"">" & SystemTypeIcon("MSG") & "</a>"
        			    End If   
        		    CASE "NP"
        		        If FVal(rsMail("umbSystemID")) > 0 Then
        				    sLink = "<A HREF=""" & gsNPURL & "NPViewArticle.asp?ArticleID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("NP") & "</A>"
        				Else
        				    sLink = "<A HREF=""" & gsNPURL & "XcNewsPlus.asp"">" & SystemTypeIcon("NP") & "</a>"
        			    End If
        		    Case Else
        		        sLink = GLS_SymbNone
    			End Select
    			Response.Write "<TD>" & gsPlainTextOpen & sLink & gsPlainTextClose & "</TD>"
    			Response.Write "<TD><A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & rsMail("umbID") & """>" & gsPlainTextOpen & rsMail("umbSubject") & gsPlainTextClose & "</A></TD>"
    			Response.Write "</TR>"
    			rsMail.MoveNext
    		Loop
    		If gbMBAllowNonReg Then
    		    Response.Write "<TR><TD colspan=""5"">"
    	        Response.Write gsPlainTextOpen & GLS_MBNonRegSymbol & GLS_MBNonRegText & gsPlainTextClose
    	        Response.Write "</TD></TR>"
    		End If
    		Response.Write "<TR bgcolor=""" & gsPageBGColor & """><TD COLSPAN=""5"">"
    		Response.Write "<INPUT TYPE=""submit"" value=""" & GLS_TextDelete & """ class=""XcBtn"">"
    		Response.Write "</TD></TR>"
    		Response.Write "</FORM>"
    		If lPageCount > 1 Then
    		    sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)
    			Response.Write "<TR bgcolor=""" & sLineTag & """><TD COLSPAN=""5"">"
    			ShowPaging
    			Response.Write "</TD></TR>"
    		End If
    	Else 
    		Response.Write "<TR bgcolor=""" & gsPageBGColor & """><TD COLSPAN=""5"">"
    		Response.Write gsPlainTextOpen & GLS_TextNoMessages & gsPlainTextClose
    		Response.Write "</TD></TR>"
    	End If
    	rsMail.Close
    	set rsMail = Nothing
    	
    	Response.Write "</TABLE>"
    	Response.Write "</TD></TR></TABLE>"
    Else
        ComposeMessage
    End If    
End Sub

Sub ViewSentbox
    If NOT gbMBSendAsEmail Or gbMBSendAdvMessage Then
    	sSQL = "SELECT umbID, umbSystem, umbSystemID, umbSubject, umbRegID, umbFromRegID, umbFromName, " & _
    	    " umbFromEmail, umbDate, umbHasAttachments, umbRead, umbReadOn  " & _
    	    " FROM tblXUDUserMessageBase" & _ 
    		" WHERE umbFromRegID=" & SQLVal(glUserID) & _
    		" ORDER BY umbDate DESC"
    	sNav = "<A>" & GLS_MBNavSentbox & "</A>"
    	TableHead sNav
    	Response.Write gsSectionTitleOpen & GLS_MBMessagesSent & gsSectionTitleClose & "<BR>"	 	
    	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" BGCOLOR=""" & gsRegularBoxColor& """ WIDTH=""100%"">"
    	Response.Write "<TR><TD>"
    	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" BGCOLOR=""" & gsPageBGColor & """ WIDTH=""100%"">"
    	Response.Write "<TR BGCOLOR=""" & gsTitleCellColor & """>"
    	Response.Write "<TD>&nbsp;</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextTo & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextSent & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextRead & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextSystem & gsColumnHeadClose & "</TD>"
    	Response.Write "<TD>" & gsColumnHeadOpen & GLS_TextSubject & gsColumnHeadClose & "</TD>"
    	Response.Write "</TR>"
    	
    	Set rsMail = Server.CreateObject("ADODB.Recordset")
    	rsMail.PageSize = giItemsPerPage
    	rsMail.CursorLocation = 3 'adUseClient
    	rsMail.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText
    	If Not rsMail.EOF Then
    		lPageCount = rsMail.PageCount
    		If iPageCurrent < 1 Then iPageCurrent = 1
    		If iPageCurrent > lPageCount Then iPageCurrent = lPageCount
    		rsMail.AbsolutePage = iPageCurrent
    		iLineFlag = True
    		sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)					
    		Do While (Not rsMail.EOF) AND (rsMail.AbsolutePage = iPageCurrent)
    			sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)
    			Response.Write "<TR BGCOLOR=" & sLineTag & ">"
    			If evalBool(rsMail("umbRead")) Then
    				sImage = "<IMG BORDER=0 SRC= ""XUDImages/XUDMailRead.gif"" ALT=""" & GLS_TextRead & """>"
    			Else
    				sImage = "<IMG BORDER=0 SRC= ""XUDImages/XUDMailUnRead.gif"" ALT=""" & GLS_TextUnread & """>"
    			End If
    			If EvalBool(rsMail("umbHasAttachments")) Then
    			    sImage = sImage & "<IMG BORDER=0 SRC= ""XUDImages/XUDMsgAttachments.gif"" ALT=""" & GLS_TextAttachments & """>"
    			End If
    			Response.Write "<TD><A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & rsMail("umbID") & """>" & sImage & "</A></TD>"
    			
    			sToDisplay = GetUserName(rsMail("umbRegID"))
    			If IsUserVerified (rsMail("umbRegID")) Then
    			    sToDisplay = sToDisplay & GLS_Verified
    			End If       
    			Response.Write "<TD>" & gsPlainTextOpen & sToDisplay & gsPlainTextClose & "</TD>"
    			Response.Write "<TD>" & gsPlainTextOpen & DispShortDate(rsMail("umbDate")) & gsPlainTextClose & "</TD>"
    			Response.Write "<TD>" & gsPlainTextOpen 
    			If Len(Trim("" & rsMail("umbReadOn"))) > 0 Then
    				Response.Write DispShortDate(rsMail("umbReadOn")) 
    			Else
    				Response.Write GLS_SymbNone
    			End If
    			Response.Write gsPlainTextClose & "</TD>"
    
    			Select Case UCase("" & rsMail("umbSystem"))
        			Case "AUC":
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        			        sLink = "<A HREF=""" & gsAucURL & "APViewItem.asp?ID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("AUC") & "</A>"
        			    Else
        			        sLink = "<A HREF=""" & gsAucURL & "XcAuctionPro.asp"">" & SystemTypeIcon("AUC") & "</a>"
        			    End If
        			Case "CAD":
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        				    sLink = "<A HREF=""" & gsCadURL & "CPViewItem.asp?ID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("CAD") & "</A>"
        				Else
        				    sLink = "<A HREF=""" & gsCadURL & "XcClassified.asp"">" & SystemTypeIcon("CAD") & "</a>"
        			    End If
        			Case "MSG": 
        			    If FVal(rsMail("umbSystemID")) > 0 Then
        				    sLink = "<A HREF=""" & gsMSGURL & "MSGViewThread.asp?MsgID=" & rsMail("umbSystemID") & """>" & SystemTypeIcon("MSG") & "</A>"
        				Else
        				    sLink = "<A HREF=""" & gsMSGURL & "Forum.asp"">" & SystemTypeIcon("MSG") & "</a>"
        			    End If       
        			Case Else
        			    sLink = GLS_SymbNone
    			End Select
    			Response.Write "<TD>" & gsPlainTextOpen & sLink & gsPlainTextClose & "</TD>"
    			Response.Write "<TD><A HREF=""XUDMessageBase.asp?CMD=VIEW&ID=" & rsMail("umbID") & """>" & gsPlainTextOpen & rsMail("umbSubject") & gsPlainTextClose & "</A></TD>"
    			Response.Write "</TR>"
    			rsMail.MoveNext
    		Loop
    		If lPageCount > 1 Then
    		    sLineTag = AlternateTag(iLineFlag, gsAltColorOne, gsAltColorTwo)
    			Response.Write "<TR bgcolor=""" & sLineTag & """><TD COLSPAN=""6"">"
    			ShowPaging
    			Response.Write "</TD></TR>"
    		End If
    	Else 
    		Response.Write "<TR bgcolor=""" & gsPageBGColor & """><TD COLSPAN=""6"">"
    		Response.Write gsPlainTextOpen & GLS_TextNoMessages & gsPlainTextClose
    		Response.Write "</TD></TR>"
    	End If
    	
    	rsMail.Close
    	set rsMail = Nothing
    	
    	Response.Write "</TABLE>"
    	Response.Write "</TD></TR></TABLE>"
   Else
        ComposeMessage
   End If      	
End Sub

Sub TableHead (psEndText)
    Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" WIDTH=""" & gsTableWidth & """>"
	Response.Write "<TR><TD COLSPAN=""2"" ALIGN=""LEFT"">"
	If NOT gbMBSendAsEmail Or gbMBSendAdvMessage Then
    	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""0"" CELLSPACING=""0"" WIDTH=""100%"">"
    	sTempColor = gsBackTabColor
    	sTabTagOpen = gsUnselectedTabTextOpen
    	sTabTagClose = gsUnselectedTabTextClose
    	
    	If sView = "IN" Then 
    		sTempColor = gsMainTabColor
    		sTabTagOpen = gsSelectedTabTextOpen
    		sTabTagClose = gsSelectedTabTextClose
    	End If
    	Response.Write "<TR>"
    	Response.Write "<TD BGCOLOR=""" & sTempColor & """ WIDTH=""25%""><CENTER>" & sTabTagOpen
    	Response.Write "<A HREF=""XUDMessageBase.asp?CMD=INBOX"">" & GLS_MBNavInbox & "</A>"
    	Response.Write sTabTagClose & "</CENTER></TD>"
    	
    	Response.Write "<TD BGCOLOR=""" & gsEmptyColor & """><FONT SIZE=""1"">&nbsp;</FONT></TD>"
    	sTempColor = gsBackTabColor
    	sTabTagOpen = gsUnselectedTabTextOpen
    	sTabTagClose = gsUnselectedTabTextClose
    	
    	If sView = "OUT" Then 
    		sTempColor = gsMainTabColor
    		sTabTagOpen = gsSelectedTabTextOpen
    		sTabTagClose = gsSelectedTabTextClose
    	End If
    	
    	Response.Write "<TD BGCOLOR=""" & sTempColor & """ WIDTH=""25%""><CENTER>" & sTabTagOpen
    	Response.Write "<A HREF=""XUDMessageBase.asp?CMD=SENTBOX"">" & GLS_MBNavSentbox & "</A>"
    	Response.Write sTabTagClose & "</CENTER></TD>"
    	
    	Response.Write "<TD BGCOLOR=""" & gsEmptyColor & """><FONT SIZE=""1"">&nbsp;</FONT></TD>"
    	sTempColor = gsBackTabColor
    	sTabTagOpen = gsUnselectedTabTextOpen
    	sTabTagClose = gsUnselectedTabTextClose
    	
    	If sView = "COMPOSE" Then 
    		sTempColor = gsMainTabColor
    		sTabTagOpen = gsSelectedTabTextOpen
    		sTabTagClose = gsSelectedTabTextClose
    	End If
    	
    	Response.Write "<TD BGCOLOR=""" & sTempColor & """ WIDTH=""25%""><CENTER>" & sTabTagOpen
    	Response.Write "<A HREF=""XUDMessageBase.asp?CMD=COMPOSE"">" & GLS_MBNavCompose & "</A>"
    	Response.Write sTabTextClose & "</CENTER></TD>"
    	
    	Response.Write "<TD BGCOLOR=""" & gsEmptyColor & """><FONT SIZE=""1"">&nbsp;</FONT></TD>"
    	sTempColor = gsBackTabColor
    	sTabTagOpen = gsUnselectedTabTextOpen
    	sTabTagClose = gsUnselectedTabTextClose
    	
    	Response.Write "<TD BGCOLOR=""" & gsEmptyColor & """ width=""25%""><FONT SIZE=""1"">&nbsp;</FONT></TD>"
    	Response.Write "</TR>"
    	Response.Write "<TR><TD COLSPAN=""7"" bgcolor=""" & gsMainTabColor & """ HEIGHT=""2""><IMG BORDER=""0"" SRC=""XUDImages/pix.gif"" WIDTH=""1"" HEIGHT=""1""></TD></TR>"
    	
    	Response.Write "</TABLE>"
    End If	
	Response.Write "</TD></TR>"
	Response.Write "<TR><TD COLSPAN=""2"">"
End Sub

Sub TableFoot
	Response.Write "</TD></TR>"
	Response.Write "</TABLE>"
	ShowNavBar
End Sub

Function GetUserName(plID)
    dim lUserID
	lUserID = FVal(plID)
	sSQL = "SELECT regUserName from tblXUDUserRegistration WHERE regID=" & SQLVal(lUserID)
	set rsUser= gObjConnect.Execute(sSQL)
	If NOT rsUser.EOF Then 
		GetUserName = rsUser("regUserName")
	Else
	    
		GetUserName = ""
		
	End If
	rsUser.Close
	set rsUser = Nothing
End Function

Function GetUserEmail(plID)
    dim lUserID
	lUserID = FVal(plID)
	sSQL = "SELECT regEmail from tblXUDUserRegistration WHERE regID=" & SQLVal(lUserID)
	set rsUser= gObjConnect.Execute(sSQL)
	If NOT rsUser.EOF Then 
		GetUserEmail = rsUser("regEmail")
	Else
	    
		GetUserEmail = ""
		
	End If
	rsUser.Close
	set rsUser = Nothing
End Function

Sub UpdateMailFlag
	sUpdate = "UPDATE tblXUDUserRegistration SET regHasUserMail=" & SQLStr("N") & _
		" WHERE regID=" & SQLVal(glUserID)
	gobjConnect.Execute(sUpdate)
End Sub

Sub ShowPaging
	iLowRange = RoundDownToNearest(iPageCurrent, 10)
    If iLowRange < 1 Then
           iLowRange = 1
    End If
    iHighRange = iLowRange + 9
	Response.Write "<TABLE BORDER=""0"" CELLPADDING=""0"" CELLSPACING=""0"" WIDTH=""100%"">"
        Response.Write "<TR><TD valign=""center""><center><DIV CLASS=""XUDLink"">" & gsPlainTextOpen
        If iPageCurrent > 1 Then
            Response.Write "<A HREF=""XUDMessageBase.asp?" & sURLString & "&page=" & iPageCurrent - 1 & """><img src=""XUDImages/XUDpnPrevious.gif"" border=""0"" alt=""" & GLS_TextPrevious & """></A>&nbsp;&nbsp;&nbsp;"
        Else
        	Response.Write "<img src=""XUDImages/XUDpnPrevious.gif"" border=""0"" alt=""" & GLS_TextPrevious & """>&nbsp;&nbsp;&nbsp;"
        End If
        If iLowRange >= 10 Then
            Response.Write "<A HREF=""XUDMessageBase.asp?" & sURLString & "&page=" & iLowRange - 1 & """>-</A>"
        Else
            Response.Write ""
        End If
        
        sTemp = "&nbsp;"
        iPage = iLowRange
        Do While (iPage < iHighRange + 1) And (iPage <= lPageCount)
            If iPage <> iPageCurrent Then
                sTemp = sTemp & "<A HREF=""XUDMessageBase.asp?" & sURLString & "&page=" & iPage & """>" & iPage & "</A>&nbsp;&nbsp;"
            Else
                sTemp = sTemp & "<B>" & iPage & "</B>&nbsp;&nbsp;"
            End If
            iPage = iPage + 1
        Loop
        sTemp = sTemp & ""
        Response.Write sTemp
	
        If lPageCount > iHighRange Then
            Response.Write "<A HREF=""XUDMessageBase.asp?" & sURLString & "&page=" & iHighRange + 1 & """>+</A>&nbsp;"
        End If

        If  iPageCurrent < lPageCount Then
            Response.Write "&nbsp;&nbsp;&nbsp;<A HREF=""XUDMessageBase.asp?" & sURLString & "&page=" & iPageCurrent + 1 & """><img src=""XUDImages/XUDpnNext.gif"" border=""0"" alt=""" & GLS_TextNext & """></A>&nbsp;"
        Else
            Response.Write "&nbsp;&nbsp;&nbsp;<img src=""XUDImages/XUDpnNext.gif"" border=""0"" alt=""" & GLS_TextNext & """>&nbsp;"
        End If
    Response.Write gsPlainTextClose & "</DIV></center></TD></TR></TABLE>"
End Sub
%>