%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
posted = request.form ("submit")
if posted = "Submit" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Customize the following 5 lines with your own information. ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
vtoaddress = "vp.membership@periyartmc.com"
vmailhost = "mail.periyartmc.com"
vfromaddress = "notify@periyartmc.com"
vfrompwd = "not999"
vsubject = "Request to Join"
'' DO NOT CHANGE ANYTHING PAST THIS LINE ''
vfromname = request.form ("TName")
vbody = request.form ("TBody")
vrplyto = request.form ("TEmail")
vphone = request.form ("Tphone")
vmsgbody = "This Mail is forwarded by : " & vfromname & "
" & "Email: " & _
vrplyto & "
" & "Contact No. : "& vphone & "
" & "Message : " & vbody
'validation
Dim validationOK
validationOK=true
If (Trim(vfromname)="") Then validationOK=false
If (Trim(vbody)="") Then validationOK=true
If (Trim(vrplyto)="") Then validationOK=false
If (Trim(vphone)="") Then validationOK=false
If Not (IsNumeric(vphone)) Then validationOK=false
If (validationOK=false) Then Response.Redirect("mailerror.htm?" & vfromname)
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = vfromaddress
objEmail.Password = vfrompwd
objEmail.Host = vmailhost
objEmail.From = vfromaddress
objEmail.AddAddress vtoaddress
objEmail.Subject = vsubject
objEmail.Body = vmsgbody
objEmail.IsHTML = True
objEmail.Send
' redirect to success page
Response.Redirect("ok.htm?" & vfromname)
vErr = Err.Description
if vErr <> "" then
response.write vErr & "
There was an error on this page."
else
response.write "Thank you, your message has been sent."
End If
Set objEmail = Nothing
response.write "Thank you, your message has been sent2."
end if
%>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||