<% response.buffer=True On Error Resume Next Func = Request.QueryString("Func") if isempty(Func) then Func = 1 end if %> <% Select case Func case 1 %>

Please fill up the form for any enquiry. * indicates required fields   Name Company Name Tel No: Fax Email Queries             <% case 2 Dim sendMessage sendMessage = sendMessage & "Full Name : " & Request.Form("fname") & vbCrLf & " " sendMessage = sendMessage & "Company name: " & Request.Form("cname") & vbCrLf & " " sendMessage = sendMessage & "E-Mail : " & Request.Form("email") & vbCrLf & " " sendMessage = sendMessage & "Designation : " & Request.Form("designation") & vbCrLf & " " sendMessage = sendMessage & "Address : " & Request.Form("address") & vbCrLf & " " sendMessage = sendMessage & "Pin Code : " & Request.Form("pincode") & vbCrLf & " " sendMessage = sendMessage & "City : " & Request.Form("city") & vbCrLf & " " sendMessage = sendMessage & "Telephone : " & Request.Form("telno") & vbCrLf & " " sendMessage = sendMessage & "Mobile : " & Request.Form("mobile") & vbCrLf & " " sendMessage = sendMessage & "Fax : " & Request.Form("fax") & vbCrLf & " " sendMessage = sendMessage & "Cartridge Model no : " & Request.Form("cartridgeno") & vbCrLf & " " sendMessage = sendMessage & "Printer Model no : " & Request.Form("printerno") & vbCrLf & " " sendMessage = sendMessage & "Your 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 = "info@powerprint.in" cdoMessage.To = "info@powerprint.in" cdoMessage.BCc = "gaffar@epuratech.com" cdoMessage.Subject = "Order 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 %>

© Copyright 2009. Santapet Polymers Puratech