<%@ 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 %>

<% Function validate dim message message = "" if Instr(1, request("email"), "@", 1) =0 then message="Incorrect E-mail address." if instr(1,request("email"),".",1) =0 then message="Incorrect E-mail address." 'If trim(request("email")) = session("abuse_mail") then message="You may send only 1 email per session to any particular email address.
Try again later." Select Case "" case request("email") message="You must provide your email address." case request("body") message="You must write some thing !" End select If message = "" then validate = "" else validate = false message = message & "
" validate = message End If End Function %>