<%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <%Response.Buffer = True%> <% dim temp dim temp2 dim quoteid dim total dim StrSQL dim objrec,objrec2 total = 0 temp = "1" 'Open Connection set objConn = Server.CreateObject("ADODB.Connection") objConn.open StrConnect 'open quote table and add new quote Set objRec = Server.CreateObject ("ADODB.Recordset") objRec.Open "quote", objConn, adOpenStatic, adLockOptimistic, adCmdtable objRec.AddNew objRec.Fields("total") = Request.Form("total") objRec.Fields("quotedate") = date() objrec.fields("qbaseprice") = getbasicprice() objRec.Update objrec.close set objrec = nothing 'find id of new quote set objRec = server.CreateObject("ADODB.Recordset") objrec.Open "SELECT MAX(id) as table_id FROM quote", Objconn, adOpenStatic if isnull(objrec("table_id")) then quoteid= 1 else quoteid =cint(objrec("table_id")) end if objrec.close set objrec = nothing 'Link items to quote set objrec = Server.CreateObject("ADODB.Recordset") StrSQL = "SELECT category.id, category.name FROM category WHERE (((category.active)=True));" objrec.Open StrSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText do while not objrec.EOF if NOT Request.Form(objrec("name"))="" then 'open itemquote table and add quote items Set objRec2 = Server.CreateObject ("ADODB.Recordset") objRec2.Open "itemquote", objConn, adOpenStatic, adLockOptimistic, adCmdtable objRec2.AddNew objRec2.Fields("itemid") = cint(Request.Form(cstr(objrec("name")))) objRec2.Fields("qprice") = cint(Request.Form(cstr(objrec("name")) & "p")) objRec2.Fields("quoteid") =quoteid objRec2.Update objrec2.close set objrec2 = nothing end if objrec.movenext() loop objrec.close set objrec = nothing %> PARAMOUNT - ACU ON-LINE QUOTATION SYSTEM


Welcome to E-Quote for:



Click below to generate a quotation:

If you require further assistance at any time, please contact: 1300 66 68 68
 
All systems include a Premium 3 Year On-Site Warranty. Any fault during this period can be logged directly through the ITCS Helpdesk (ie. you do not need to contact us directly, we communicate with ITCS to expedite repairs). All prices are quoted exclusive of GST at the request of the "Australian Catholic University".