"
message=message&"| SUBJECT : Enquiry from Website |
"
if Request("fname")<>"" then
message=message&"| Name | "&Request("fname")
message=message&" |
"
end if
if Request("compname")<>"" then
message=message&"| Company | "&Request("compname")&" |
"
end if
if Request("designation")<>"" then
message=message&"| Designation | "&Request("designation")&" |
"
end if
if Request("address")<>"" then
message=message&"| Address | "&Request("address")
message=message&" |
"
end if
if Request("email")<>"" then
message=message&"| Email | "&Request("email")&" |
"
end if
if Request("telephone")<>"" then
message=message&"| Telphone | "&Request("telephone")&" |
"
end if
if Request("fax")<>"" then
message=message&"| Fax | "&Request("fax")&chr(10)&" |
"
end if
if Request("details")<>"" then
message=message&"| Details | "&replace(replace(Request("details"),"'","''"),vbcrlf,"
")&" |
"
end if
message=message&"
"
message=message&"
"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email@domain.com"
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = "tajgroup@tajapi.com"
ObjSendMail.Subject = "Enquiry from Website - www.tajapi.com"
ObjSendMail.From = request("email")
' we are sending a text email.. simply switch the comments around to send an html email instead
ObjSendMail.HTMLBody = message
'ObjSendMail.TextBody = "abc"
ObjSendMail.Send
Set ObjSendMail = Nothing
Response.Redirect "http://www.tajapi.com/index_api.htm"
%>