<%
Sub SendEmail(sFrom, sTo,sBcc, sSubject, sBody)
'Declare variables
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "mail.abysspharma.com"
.Item(sch & "smtpserverport") = 25
.Item(sch & "smtpconnectiontimeout") = 60
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = sFrom
.To = sTo
.Bcc=sBcc
.Subject = sSubject
.HTMLBody = sBody
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
Dim tName, tEmail,tSubject,tMsg
tMsg="
"
tSubject="Enquiry"
tName=Trim(Request("txtEmail"))
Call SendEmail(tName,"nitin@abysspharma.com","nitin@appldelhi.com",tsubject,tMsg)
Response.write("Thanks for Sending us your mail. We shall get back to you very shortly")
%>
| Contact Person: | " & Trim(Request("textname")) & " |
| Company Name: | " & Trim(Request("textcompany")) & " |
| Address: | " & Trim(Request("textaddress")) & " |
| City: | " & Trim(Request("textcity")) & " |
| State/Province: | " & Trim(Request("textstate")) & " |
| Postal Code: | " & Trim(Request("textpost")) & " |
| Country: | " & Trim(Request("textcountry")) & " |
| Phone No: | " & Trim(Request("textphnu")) & " |
| Email: | " & Trim(Request("txtEmail")) & " |
| Feedback/Query: | " & Trim(Request("textmes")) & " |
