<% IPMessage = strText_YourIPAddress & " " & IP & "" If Request.Querystring.count > 0 then adID = Request.Querystring.Item(1) If not isNumeric(adID) Then Response.End adName = Server.HTMLEncode(Request.Querystring.Item(2)) userID = Right(adID, 6) If Request("friend") = 1 Then tofriend = true link = "" & adName & "::" & strText_SendToFriend & "" message = strText_HeadFriend action = "friend" bvalue = strText_ForwardtoFriend warning = strText_FormToFriend & "
" & strText_Unsolicited & "
" warning = warning & IPMessage ElseIf Request("report") = 1 Then link = "" & adName & "::" & strText_Report & "" message = strText_HeadReport warning = strText_FormReport & "
" & strText_Unsolicited & "
" warning = warning & IPMessage action = "report" bvalue = strText_Report Else If Sess_Array(48) = Session.SessionID Or CBool(Sess_Array(35)) then moderator = True If not moderator And cfg_reply And Len(CStr(Sess_Array(29))) < 2 then UpdateSessions False Response.Redirect "info.asp?id=5" End If link = "" & adName & "::" & strText_ReplytoAd & "" message = strText_HeadReply warning = strText_FormReply & "
" & strText_Unsolicited & "
" warning = warning & IPMessage action = "reply" bvalue = strText_SendReply End If Else link = "" & strText_Contactus & "" message = strText_HeadContact action = "contact" bvalue = strText_Contactus warning = strText_FormToContact & web_name & "
" & strText_Unsolicited & "
" warning = warning & IPMessage End If rEmail = Sess_Array(50) rName = Sess_Array(51) exitpoint = Session.SessionID \ RandomNumber Sess_Array(20) = exitpoint %>


<% Call Build_List_Top("center", "400", "xl_content") RSA_keys = GenerateKeys Sess_Array(71) = RSA_keys stopspam = RandomNumber stopspam1 = RandomNumber Sess_Array(70) = stopspam Sess_Array(72) = stopspam1 Response.Write "" str_Form_Email = "" str_Form_Email = str_Form_Email & "" str_Form_Email = str_Form_Email & "" str_Form_Email = str_Form_Email & "" str_Form_Email = str_Form_Email & "" ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" If tofriend then Response.Write "" Response.Write "" ylb = Empty ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% End If Response.Write "" Response.Write "" Response.Write "" %> <% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" & message & "
" Response.Write "
" & strText_AllFieldsRequired & "
" & strText_YourName & ":" str_Form_Email = " " ylb = Empty ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% Response.Write "*
" & strText_YourEmail & ":" str_Form_Email = " " ylb = Empty ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% Response.Write "*
" & strText_FriendEmail & ":" str_Form_Email = " *
" & strText_YourMessage & ":" str_Form_Email = " " ylb = Empty ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% Response.Write "*
" & strText_Length & ": - " & strText_CharactersLeft & " " Response.Write "- " & strText_CopyYourself & "
" Response.Write "
" & strText_Note & " " & warning & "
" str_Form_Email = "" & vbcrlf ylb = Empty ylb = Encrypt(str_Form_Email, Sess_Array(71), Sess_Array(17)) %> <% Call Build_List_Bottom() %>