<% @ LANGUAGE=VBScript %>
<%
IP = Request.ServerVariables("REMOTE_ADDR")
If Len(Request.ServerVariables("HTTP_VIA")) > 0 Then
IPMessage = "Your Proxy Server IP Address is: " & IP & ""
If Len(Request.ServerVariables("HTTP_X_FORWARDED_FOR")) > 0 Then IPMessage = IPMessage & " " & "Your IP Address is: " & Request.ServerVariables("HTTP_X_FORWARDED_FOR") & ""
Else
IPMessage = "Your IP Address is: " & 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 & "::Send To a Friend"
message = "Please enter your name, email, your friend's email and message to forward this link to a friend. "
action = "friend"
bvalue = "Forward to a Friend"
warning = "This form can only be used to forward ad link to your friends. Sending unsolicited email advertisements is strictly prohibited! "
warning = warning & IPMessage
Else
link = "" & adName & "::Reply to ad"
message = "Please enter your name, email and message to reply to ad author."
warning = "This form can only be used for reply to ad author. Sending unsolicited email advertisements is strictly prohibited! "
warning = warning & IPMessage
action = "reply"
bvalue = "Send Reply"
End If
Else
link = "Contact us"
message = "Please enter your name, email and message to contact us."
action = "contact"
bvalue = "Contact us"
warning = "This form can only be used to contact RapidClassified.com. Sending unsolicited email advertisements is strictly prohibited! "
warning = warning & IPMessage
End If
rEmail = session("User_logged_Email" & strUnique)
rName = session("User_logged_nick" & strUnique)
exitpoint = Session.SessionID \ RandomNumber
Session("prevent_spam" & strUnique) = exitpoint
%>