<% '***************************************************************** ' creates a confirmation form that the user can use to mail or fax manually ' or to just verify the order details before proceeeding ' Version 4.00 Sept 8, 2001 '******************************************************************* ShopPageHeader ' Normal page header OpenOrderDB dbc ' Open the database GetCustomerSessionData ' make sure we have all session data in local variables GetCompanyInfo ' Write our own company information CartFormat "NOREMOVE" ' common format cart routine FormatSessionOrder If getconfig("XDisplayPrices")<>"No" then FormatCreditCard end if ShopPageTrailer ' Normal Shop page trailer ShopCloseDatabase dbc ' Close the database ' '********* Get company info Sub GetCompanyInfo Dim rsus Set rsus = Server.CreateObject ("ADODB.Recordset") rsus.Open "mycompany", dbc, adOpenForwardOnly,adLockReadOnly, adCmdTable if rsus.eof then rsus.close set rsus=nothing exit sub end if response.write "
" response.write LangMailForm01 response.write "
" response.write rsus("companyname") & "
" response.write rsus("address")& "
" response.write rsus("city") & " " & rsus("state") & " " & rsus("postalcode") & "
" Response.write rsus("country") & "
" response.write LangCustPhone & ": " & rsus("phonenumber") & "
" Response.write LangCustFax & ": " & rsus("faxnumber") & "
" response.write LangCustEmail & ": " & rsus("myemail") & "

" rsus.close set rsus=nothing End Sub Sub FormatSessionOrder Response.write "
" & FOrderTable DoHeader LangFormatCustomerInformation Dofield LangCustFirstName, strFirstName DoField LangCustLastName, strLastName DoField LangCustAddress ,strAddress DoField LangCustCity, strCity DoField LangCustState , strState DoField LangCustPostCode,strPostCode DoField LangCustCountry,strcountry DoField LangCustEmail,stremail DoField LangCustPhone,strphone DoField LangCustFax,strfax DoField LangCustCompany,strcompany If getconfig("xShippingForm")="Yes" then Doheader LangFormatShippingInformation DoField LangShippingMethod,GetSess("shipmethod") DoField LangShipName,GetSess("shipname") Dofield LangShipAddress,GetSess("shipaddress") DoField LangShipCity,GetSess("Shiptown") DoField LangShipState,GetSess("Shipstate") Dofield LangShipPostcode,GetSess("shipzip") Dofield LangShipCompany,GetSess("Shipcompany") DoField LangShipCountry,GetSess("Shipcountry") end if Response.write "" end sub ' Sub DoField (fieldname,fieldvalue) if fieldvalue="" or isNull(fieldvalue) then exit sub end if Response.write ForderFieldRow Response.write ForderFieldLeft & fieldname & ForderFieldLeftEnd Response.write FOrderFieldRight & fieldvalue & ForderfieldRightEnd end sub Sub DoHeader (mytext) Response.write FOrderRow Response.write FOrderHeaderColumn & mytext & ForderHeaderColumnEnd Response.write ForderRowEnd end sub Sub FormatCreditCard Response.write FOrderTable Doheader LangFormatPaymentInformation DoFieldX LangCheckoutCardNumber DoFieldx LangCheckoutCardName DoFieldx LangCheckoutExpiry DoFieldx LangCheckoutAddress DoFieldx LangCheckoutCVN Response.write "" If GeTSess("shipcomment") <> "" then %>

<%=LangOrderComments%>

<%=FOrdersComment%><%=GetSess("shipcomment")%>

<% end if End Sub ' Sub DoFieldx (fieldname) dim fieldvalue fieldvalue=" " Response.write ForderFieldRow Response.write ForderFieldLeft & fieldname & ForderFieldLeftEnd Response.write FOrderFieldRight & fieldvalue & ForderfieldRightEnd end sub %>