%
msgFrom = Request.Form("From")
msgFromId = Request.Form("From2")
generalQuestion = Request.Form("specqn1")
specificArea = Request.Form("specqn")
bodyMessage = Request.Form("Body")
'message content
txtmsg = "
From : " & msgFrom & vbcrLf & "
E Mail : " & msgFromId & vbcrLf & vbcrLf & "
Questions : " & generalQuestion & vbcrLf & "
Specific Area : " & specificArea & vbcrLf & vbcrLf & bodyMessage
'Response.Write txtmsg
'################ SMTPsvg mail component ###########################
' Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'
' rem change this RemoteHost to a valid SMTP address before testing
' Mailer.RemoteHost = "192.168.1.252"
' 'Mailer.RemoteHost = "smtp.Jalia.com"
' Mailer.FromName = Request.Form("From")
' Mailer.FromAddress = Request.Form("From2")
' Mailer.AddRecipient "Support", "shiva@itcs.com"
' 'Mailer.AddRecipient "Support", "support@Jalia.com"
' Mailer.Subject = generalQuestion
' Mailer.BodyText = txtmsg
'################ CDONTS mail component ###########################
Set Mailer = Server.CreateObject("CDONTS.Newmail")
Mailer.MailFormat = 0
Mailer.BodyFormat = 0
Mailer.From = Request.Form("From")
Mailer.To = "madhoshk@gmail.com"
Mailer.Subject = generalQuestion
Mailer.Body = Request.Form("From2") & vbCRLF & txtmsg
Mailer.Send
Set Mailer = NOTHING
'##################################################################
'if IsObject (Mailer) Then ' CDONTS mail
''if Mailer.SendMail=True then ' SMTPsvg mail
' Response.Write " sent successfully...
"
'else
'
' Response.Write " Mailing Failed... Error is:
"
' Response.Write Mailer.Response
'end if
%>
Thank You
|
Copyright © June 2002 Jalia Limited. All rights reserved. |