%@ Language=vbscript %>
<%
if Request.Form("recipient") <>"" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "mail.gtaonline.com"
JMail.Sender =Request.form("recipient")
JMail.AddRecipient "info@gtaonline.com"
JMail.Body= Request.form("body")
JMail.Priority = 1
IF NOT JMail.execute THEN
Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "
" & vbcrlf )
Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "
" & vbcrlf )
Response.Write( "LOG: " & JMail.Log & "
" & vbcrlf )
ELSE
Response.Redirect("index.asp")
END IF
else
%>
|
|
|
|||||||||||||||||