<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.emailsrvr.com" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "mail@coimbatoreyellowpages.com" .Item(cdoSendPassword) = "mai123" .Update End With %> <% if request.Form("button") <> "" then strfirstname=request.Form("name") strlastname=request.Form("lastname") srtphone=request.Form("phone") strmobile=request.Form("mobile") strcity=request.Form("city") strcountry=request.Form("country") stremail=request.Form("email") strmessage=request.Form("textmessage") 'response.Write(stremail) 'response.Write("
") msg = "" msg = msg&"" msg = msg&"" msg = msg&"" msg = msg&"" msg = msg&"" msg = msg&"
Enquiry From Stable Pump
Name:"&strfirstname &"
Email:"&stremail &"
Phone:"&srtphone &"
Message:"&strmessage &"
" Set objMessage11 = Server.CreateObject("CDO.Message") Set objMessage11.Configuration = objConfig With objMessage11 '.To = "php04@nissiinfotech.net" .To = "sharpin@vsnl.com" .From =stremail .Subject = "Enquiry from stable pump" .HTMLBody =msg .Send End With Set objMessage11 = Nothing dim mesg mesg =" Mail Sent Successfully " end if %>

<%=mesg%>

SEND ENQUIRY
Name   *
Email :  *
Phone :   *
Message :   *