<% If request.querystring("submit")="" Then %>

Estimate

Client Quotation Request Form

Your Company Name
Your Name
Address
Telephone Number
Fax No.
E-Mail Address
Source Language 
Target Language
Additional Translation Languages
Approximate Word Count
Source Document
Target Document

<% Else dim cname,name,address,telephone,fax,email,slanguage,tlanguage,additional,wordcount,sdoc,tdoc dim MyMail,mes,mail cname=Trim(Request("companyName")) name=Trim(Request("visitorName")) address=Trim(Request("address")) telephone=Trim(Request("telephone")) fax=Trim(Request("fax")) email=Trim(Request("email")) slanguage=Trim(Request("source")) tlanguage=Trim(Request("target")) additional=Trim(Request("additional")) wordcount=Trim(Request("wordcount")) sdoc=Trim(Request("sourceDoc")) tdoc=Trim(Request("targetDoc")) mes="" mes="Client Quotation Request Form" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
Visitor Name  :  " & name & "
Company Name  :  " & cname & "
Address  :  " & address & "
Telephone No.  :  " & Telephone & "
Fax  :  " & fax & "
E-mail  :  " & email & "
Source Language  :  " & slanguage & "
Target Language  :  " & tlanguage & "
Additional Translation Languages  :  " & additional & "
Approximate Word Count  :  " & wordcount & "
Source Language  :  " & sdoc & "
Target Language  :  " & tdoc & "
" & _ "" ' Response.write mes Set MyMail = Server.CreateObject("CDONTS.NewMail") Mymail.BodyFormat=0 'Mymail.MailFormat=0 MyMail.From = email MyMail.To="info@emerze.com" MyMail.Subject="Client Quotation Request Form" MyMail.Body = Mes MyMail.Send ' Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.Host = "smtp.emerze.com" ' Mail.From = "Visitor of Emerze.com" ' Mail.FromName = ' Mail.AddAddress "estimate@emerze.com" ' Mail.Subject = "Client Quotation Request Form" ' Mail.Body = mes ' Mail.IsHTML = True ' Mail.Send Response.write "
Thanks for your Enquiry!
We will get back to you in 24 Hours!
" Set MyMail = Nothing End If %>