<% if request.form("action") = "addQuo" then str = "" smtpserver1 = "smtp.mobile2u.com.my" smtpuser1 = "lim@visgear.com" smtppwd1 = "985399" smtpemail1 = "lim@visgear.com" receiver = "lim@visgear.com" fullname = request.Form("fullname") company = request.form("company") contact = request.Form("contact") fax = request.Form("fax") email = request.Form("email") bestcall = request.Form("bestcall") contactvia = request.Form("contactvia") hear = request.Form("hear") remarks = request.Form("remarks") if request.form("chkDomain") = "yes" then str = str + "- Domain Name Registration
" end if if request.form("chkWebHost") = "yes" then str = str + "- Web Hosting
" end if if request.form("chkEShop") = "yes" then str = str + "- M2U Eshop
" end if if request.form("chkCoLocation") = "yes" then str = str + "- Server Co-Location
" end if if request.form("chkDedicatedServer") = "yes" then str = str + "- Dedicated Server
" end if if request.form("chkSiteSupport") = "yes" then str = str + "- On Site Support
" end if if request.form("chkMarketing") = "yes" then str = str + "- Online Marketing
" end if if request.form("chkWebDev") = "yes" then str = str + "- Web Site Development
" end if if request.form("chkSysDev") = "yes" then str = str + "- System / Application Development
" end if if request.form("chkECommerceDev") = "yes" then str = str + "- E-Commerce Development
" end if if Len(fullname) = 0 or Len(contact) = 0 then response.Redirect("HQuotation.asp?mode=fail") end if vvvmymail = smtpuser1 smtpserver = smtpserver1 smtpuser = smtpuser1 smtppwd = smtppwd1 smtpemail = vvvmymail sendname = fullname 'email = request.Form("email") topic = "Customer Quotation Request" 'body = trim(request.Form("CompanyName")) mailbody=mailbody &"Customer Quotation Request

---

" mailbody=mailbody &"" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody &"

Full Name	:	" & fullname & "
Company	:	" & company & "
Contact No.	:	" & contact & "
Fax No.	:	" & fax & "
Email	:	" & email & "
Best Call Time	:	" & bestcall & "
Contact Via	:	" & contactvia & "
Know about us	:	from: " & hear & "
Area of Interest	:	" & str & "
Remarks	:	" & remarks & "

" if sendname <> "" and email <> "" then set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "utf-8" jmail.ContentType = "text/html" jmail.From = smtpuser jmail.FromName = sendname jmail.ReplyTo = email jmail.Subject = topic jmail.AddRecipient receiver jmail.Body = mailbody jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd 'jmail.AddRecipientCC cc 'jmail.AddRecipientBCC bcc end if isgo = jmail.Send(smtpserver) jmail.Close set jmail = nothing response.redirect("HQuotation.asp?mode=success") end if %>

Quotation <% if request.QueryString("mode") = "success" then response.Write("Thank you! Your quoataion has been sent! Visgear MSC team will contact you as soon as possible. ") elseif request.QueryString("mode") = "fail" then response.Write("Please insert all the require fields. ") end if %> * Indicate require field. Full Name * Company Name Contact No. * Fax No. Email Best Call Time Working Hour Anytime Contact Me Via Phone Fax Email SMS Where did you hear about us? -- Please Select -- Internet Search Engine Newspaper / Magazine Friend Reseller Other Area of Interest: Domain Name Registration Web Hosting Visgear MSC E-Shop Server Co-Location Dedicated Server On Site Support Online Marketing Web Site Development Software / Application Development E-Commerce Development Remarks