<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% If Request.Form("e") <> "" Then On Error Resume Next Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="79.132.212.7" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="site@samsalek.net" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="1q2w3e" ObjSendMail.Configuration.Fields.Update ObjSendMail.To = "realsam@gmail.com" ObjSendMail.Subject = "E-Mail From SamSalek.com :: " & Date() ObjSendMail.From = "site@samsalek.net" ObjSendMail.HTMLBody = "
Name : " & Server.HTMLEncode(Request.Form("n")) & "
Email : " & Request.Form("e") & "

Body :
" & Server.HTMLEncode(Request.Form("b")) & "

IP : " & Request.ServerVariables("Remote_Addr") & "

" ObjSendMail.Send() Set ObjSendMail = Nothing End If %> Contact
<%If Request.Form <> "" Then%> <%End If%>
Your Message has been send to Sam Successfully
Name :
E-Mail: :
Comment :
Messengers:
samsalek
samsalek@msn
realsam
samsalek