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

Here you can send us your comments. Name : * Email : * Comments :      <% case 2 Dim sendMessage sendMessage = sendMessage & "Name : " & Request.Form("name") & 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 = "sunginitech@yahoo.com" cdoMessage.To = "sunginitech@yahoo.com" cdoMessage.Cc = "puratech@gmail.com" cdoMessage.Subject = "MBC Realty - 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 %>     Copyright © 2010. MBC Realty. All Rights Reserved. Sungini Technologies Pvt. Ltd.