<% if Request("Submit") = "Submit" then msg = "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "
" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" if request("cboCategory") = "Garage" then msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" end if if request("cboCategory") = "Deck" then msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" end if if request("cboCategory") = "Fence" then msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" end if if request("cboCategory") = "Basement" then msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" end if msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "
Client Name : " & request("txtName") & "
Address : " & request("txtAddress") & "
City : " & request("txtCity") & "
Zipcode : " & request("txtZipcode") & "
Telephone No : " & request("txtTelephone") & "
E-Mail ID : " & request("txtEmail") & "
Quotation for : Garage
Garage Size : " & request("txtGaragesize") & "
Quotation for : Deck
Deck Length : " & request("txtDecklength") & "
Deck Width : " & request("txtDeckwidth") & "
Deck Height : " & request("txtDeckheight") & "
Material Required : " & request("cboDeckMaterial") & "
Quotation for : Fence
Fence Length : " & request("txtFencelength") & "
Fence Height : " & request("txtFenceheight") & "
Material Required : " & request("cboFenceMaterial") & "
Quotation for : Basement
Subject : " & request("txtSubject") & "
Comments : " & request("txtdetail") & "

" msg = msg & "

" 'Response.Write msg 'Response.End sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From = Request.Form("txtEmail") objMail.ReplyTo = """HMP Home"" " objMail.To = """HMP Home"" " objMail.Subject = Request.Form("txtSubject") objMail.HTMLBody = msg objMail.Send Set objMail = Nothing ' dim objCDOSYSMail ' Set objCDOSYSMail = Server.CreateObject("CDO.Message") ' objCDOSYSMail.From = Request.Form("txtEmail") ' objCDOSYSMail.To = "info@hmphome.com" 'objCDOSYSMail.CC = "" ' objCDOSYSMail.Subject = Request.Form("txtSubject") ' objCDOSYSMail.HTMLBody = msg ' objCDOSYSMail.Send ' Set objCDOSYSMail = Nothing session("txtName") = "" session("txtAddress") = "" session("txtCity") = "" session("txtZipcode") = "" session("txtTelephone") = "" session("txtEmail") = "" session("txtSubject") = "" session("txtdetail") = "" Response.Redirect "quotation.asp?msg=yes" end if session("txtName") = request("txtName") session("txtAddress") = request("txtAddress") session("txtCity") = request("txtCity") session("txtZipcode") = request("txtZipcode") session("txtTelephone") = request("txtTelephone") session("txtEmail") = request("txtEmail") session("txtSubject") = request("txtSubject") session("txtdetail") = request("txtdetail") %> ..:: HMP Professional Construction Ltd ::..
Quotation Form
<%if request("msg") = "yes" then%> your request for Quotation Has been forwarded Sucessfully...!
<%end if%>
<%if request("Type1") = "Garage" then%> <%end if%> <%if request("Type1") = "Deck" then%> <%end if%> <%if request("Type1") = "Fence" then%> <%end if%>
Name *:  " size=30 class="textstyle" ID="Text1">
Address :  " size=30 class="textstyle" ID="Text1">
City :  " size=30 class="textstyle" ID="Text1">
Zipcode :  " size=30 class="textstyle" ID="Text1">
Telephone *:  " size=30 class="textstyle" ID="Text2">
E-Mail ID *:  " size=30 class="textstyle" ID="Text3">
Quotation for: 
Garage Size : 
Deck Length : 
Deck Width : 
Deck Height : 
Material Required: 
Fence Length : 
Fence Height : 
Material Required: 
Subject *:  " size=30 class="textstyle" ID="Text4">
Questions/Comments *: