Dson Enterprises

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

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 %>

Puratech