|
<%
If Request.Form("submit") = "Submit Quotation Request" Then
vNow = Now()
' v = Replace(Request.Form(""),"'","''")
vName = Replace(Request.Form("name"),"'","''")
vCompany = Replace(Request.Form("company"),"'","''")
vAddress1 = Replace(Request.Form("address1"),"'","''")
vCity = Replace(Request.Form("city"),"'","''")
vState = Replace(Request.Form("state"),"'","''")
vZip = Replace(Request.Form("zip"),"'","''")
vPhoneAC = Replace(Request.Form("phoneac"),"'","''")
vPhone = Replace(Request.Form("phone"),"'","''")
vExt = Replace(Request.Form("ext"),"'","''")
vFaxAC = Replace(Request.Form("faxac"),"'","''")
vFax = Replace(Request.Form("fax"),"'","''")
vEmail = Replace(Request.Form("email"),"'","''")
vWebSite = Replace(Request.Form("website"),"'","''")
vSendVia = Replace(Request.Form("sendvia"),"'","''")
vProjDesc = Replace(Request.Form("projdesc"),"'","''")
vCurrSol = Replace(Request.Form("currsol"),"'","''")
vServLevel = Request.Form("servlevel")
vInterest = 0
vBitOne = 1
vBitTwo = 2
vBitThree = 4
vBitFour = 8
vBitFive = 16
vBitSix = 32
vBitSeven = 64
vBitEight = 128
If Request.Form("appdev") = 1 Then vInterest = vInterest + vBitOne End If
If Request.Form("sysadm") = 1 Then vInterest = vInterest + vBitTwo End If
If Request.Form("busnet") = 1 Then vInterest = vInterest + vBitThree End If
If Request.Form("intcon") = 1 Then vInterest = vInterest + vBitFour End If
If Request.Form("emamar") = 1 Then vInterest = vInterest + vBitFive End If
If Request.Form("muldes") = 1 Then vInterest = vInterest + vBitSix End If
If Request.Form("manhos") = 1 Then vInterest = vInterest + vBitSeven End If
If Request.Form("noidea") = 1 Then vInterest = vInterest + vBitEight End If
'open database connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.open "DSN=wamaster;UID=wamaster;PWD=45ljdfo39;DATABASE=wamaster"
Set DataCmd = Server.CreateObject("ADODB.Command")
'insert Quotation Request
vSQL = "INSERT INTO quotereq (name,company,address1,city,state,zip,phoneac,phone,ext,faxac,fax,email, website,sendvia,"
vSQL = vSQL & "interest,projdesc,currsol,servlevel,servdatetime) "
vSQL = vSQL & "VALUES ('" & vName & "','" & vCompany & "','" & vAddress1 & "',"
vSQL = vSQL & "'" & vCity & "','" & vState & "','" & vZip & "','" & vPhoneAC & "',"
vSQL = vSQL & "'" & vPhone & "','" & vExt & "','" & vFaxAC & "','" & vFax & "',"
vSQL = vSQL & "'" & vEmail & "','" & vWebSite & "','" & vSendVia & "'," & vInterest & ","
vSQL = vSQL & "'" & vProjDesc & "','" & vCurrSol & "'," & vServLevel & ",'" & vNow & "')"
DataCmd.CommandText = vSQL
Set DataCmd.ActiveConnection = DataConn
Set rs_QuoteReq = Server.CreateObject("ADODB.Recordset")
Set rs_QuoteReq = DataCmd.execute
DataConn.close
set DataConn = nothing
%>
Thank you for your request. We will process your Quotation Request
and get back to you as quickly as possible, usually within two business days. A representative will contact you if further
information is required to provide you with a quotation.
Email quotation-request@webaxxess.com or call us toll-free at (888)
643-3003 if you have any further questions or require priority attention.
<%
Else
%>
<%
End If
%>
|