%@ Language=VBScript %>
<%
result = validate
if result = "" then
Set oRs = Server.CreateObject("ADODB.Recordset")
Set db = Server.CreateObject("ADODB.connection")
db.Open ConStr
mySQL = "select * from users where id=" & request("id")
oRs.Open mySQL, db, adOpenStatic, adLockOptimistic
If not oRs.EOF then
Email = oRs.Fields("Email")
Name = oRs.Fields("Name")
End if
oRs.close
Set db = nothing
Set oRs = Nothing
body = request("body") & chr(13) & _
chr(13) & _
"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" & chr(13) & _
"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" & chr(13) & _
"This message was sent using " & sitename & chr(13) & _
siteurl & chr(13) & _
"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" & chr(13) & _
"sender IP: " & Request.ServerVariables("REMOTE_ADDR")
subj = "[" & sitename & "] Personal Messsage."
Sendmail Email, subj, body, trim(request("email"))
'session("abuse_mail") = Email
' Response.Redirect "detail.asp?id=" & request("mktid")
response.write "Your response was successfully sent to " & request("name") & "
"
response.write "Press the BACK button to return."
else
response.redirect "error.asp?message=" & result & "Press the back button to try again."
end if
%>