<%----%> Name : <%-- --%> Address : <%----%> Tel : <%-- --%> Fax : <%-- --%> Email : <%-- --%> Comments : <%-- --%>   <%-- --%>    <%----%> <%--<% case 2 Dim sendMessage sendMessage = sendMessage & "Name : " & Request.Form("name") & vbCrLf & " " sendMessage = sendMessage & "Address : " & Request.Form("address") & vbCrLf & " " sendMessage = sendMessage & "Tel No : " & Request.Form("telno") & vbCrLf & " " sendMessage = sendMessage & "Fax : " & Request.Form("fax") & vbCrLf & " " sendMessage = sendMessage & "Email : " & Request.Form("email") & vbCrLf & " " sendMessage = sendMessage & "Comments : " & Request.Form("comments") & vbCrLf & " " sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.fields.update on error resume next ' CDO mail object sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig ' CDO mail setttings cdoMessage.From = "ramesh.sabnis@gmail.com" cdoMessage.To = "ramesh.sabnis@gmail.com" cdoMessage.Subject = "Enquiry Form" cdoMessage.HtmlBody = sendMessage cdoMessage.Send ' destroy object, free memory Set cdoMessage = Nothing Set cdoConfig = Nothing If Err.Number <> 0 Then Response.Write("ERROR : Exception:" & vbCrLf & " Error number: " & Err.Number & vbCrLf & " Error description: " & Err.Description) Response.End else 'Response.Write("........ Gaffar Baig") & " " 'Response.Write sendMessage 'Response.End End If Response.Redirect "thankyou.html" End select %> --%> <%-- --%>     Home | About Us | Products |HVAC| Enquiry Form | Contact Us Copyright © 2010. DSON ENTERPRISES. All Rights Reserved. Puratech