Feed Back


Goldmine Infotech Private Limited

 
We thank you for visiting our site and welcome your comments / queries to help us to serve you better.
 
<%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 mailer(fromadd,toadd,subject,msg) dim mymail set mymail=server.CreateObject("cdonts.Newmail") mymail.MailFormat =0 mymail.BodyFormat =0 mymail.from=fromadd mymail.to=toadd mymail.subject=subject mymail.body=msg mymail.send set mymail=nothing 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") emailid=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" & emailid & "
Comment" & escapeStringWithCR(comment) & "
" mailer "admin@goldmineinfotech.com","goldmineinfotech@gmail.com","Enquiry from hellothiruvannamalai.com",msg%>
"Thank you for your Enquiry/Feedback"

We will get back to you soon.

<%end if%>
 
 
 

Powered by : Goldmine Infotech Pvt Ltd.,