%
IP = Request.ServerVariables("REMOTE_ADDR")
If Len(Request.ServerVariables("HTTP_VIA")) > 0 Then
IPMessage = strText_ProxyIP & " " & IP & ""
If Len(Request.ServerVariables("HTTP_X_FORWARDED_FOR")) > 0 Then IPMessage = IPMessage & "
" & strText_YourIPAddress & " " & Request.ServerVariables("HTTP_X_FORWARDED_FOR") & ""
Else
IPMessage = strText_YourIPAddress & " " & IP & ""
End If
If Request.Querystring.count > 0 then
adID = Request.Querystring.Item(1)
adName = 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
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 = session("User_logged_Email" & strSUnique)
rName = session("User_logged_nick" & strSUnique)
exitpoint = Session.SessionID \ RandomNumber
Session("prevent_spam" & strSUnique) = exitpoint
%>
| <%= strText_Home %>::<%= link %> | |||||||||||||||
|
|
|||||||||||||||