~: Feedback :~
 
 
   
We welcome your precious suggessions to write in below
<%if request.Form("action") <> 1 then%>
   
Name
   
Address
   
Zip Code
   
Email id
   
Phone no
   
Mobile no
   
Enquiry/Feedback
<%else%> <% function escapeString(str) str=replace(str,"<br>","
") str=replace(str,"'","''") escapeString = str end function function escapeStringWithCR(str) str = Replace(escapeString(str),chr(13) & chr(10),"
") escapeStringWithCR=str end function function userDate(dt) if not dt="" then min=Minute(dt) if len(min)=1 then min="0"&min userDate=day(dt) & " " & monthname(month(dt)) & " " & year(dt) end if end function name=request.form("name") address=request.form("address") zipcode=request.form("zipcode") fromadd=request.form("emailid") Phone=request.form("phoneno") mobile=request.form("mobileno") comment=request.form("mcomments") msg="" &_ "" &_ "" &_ "" &_ "" &_ ""&_ ""&_ "" &_ "" &_ ""&_ ""&_ "" &_ "" &_ ""&_ ""&_ "" &_ "" &_ ""&_ ""&_ "" &_ "" &_ ""&_ ""&_ "" &_ "" &_ ""&_ ""&_ "" &_ "" & _ "" & _ "" & _ "" & _ "
Enquiry Dated " & userDate(Date()) & "
Name" & name & "
Address" & escapeStringWithCR(address) & "
Zipcode" & zipcode & "
Phone No" & phone & "
Mobile No" & mobile & "
Email" & fromadd & "
Comment" & escapeStringWithCR(comment) & "
" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "hellomadurai.in" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = fromadd .To = "admin@goldmineinfotech.com" .Subject = "Enquiry from Hello Madurai Website " .HTMLBody = msg .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %>
"Thank you for your Enquiry/Feedback "

We will get back to you soon.

<%end if%>
 

 

 
Powered By : Goldmine Infotech Pvt Ltd