<%
'*****************************************************************
' creates a confirmation form that the user can use to mail or fax manually
' or to just verify the order details before proceeeding
' Version 5.00 Jan 9, 2003
'*******************************************************************
ShopPageHeader ' Normal page header
Response.write ""
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
Response.write "
"
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
shopwriteheader getlang("LangMailForm01")
response.write rsus("companyname") & "
"
response.write rsus("address")& "
"
response.write rsus("city") & " " & rsus("state") & " " & rsus("postalcode") & "
"
Response.write rsus("country") & "
"
response.write getlang("LangCustPhone") & ": " & rsus("phonenumber") & "
"
Response.write getlang("LangCustFax") & ": " & rsus("faxnumber") & "
"
response.write getlang("LangCustEmail") & ": " & rsus("myemail") & "
"
rsus.close
set rsus=nothing
End Sub
Sub FormatSessionOrder
Response.write "
" & FOrderTable
DoHeader getlang("LangFormatCustomerInformation")
Dofield getlang("LangCustFirstName"), strFirstName
DoField getlang("LangCustLastName"), strLastName
DoField getlang("LangCustAddress") ,strAddress
DoField getlang("LangCustCity"), strCity
DoField getlang("LangCustState") , strState
DoField getlang("LangCustPostCode"),strPostCode
DoField getlang("LangCustCountry"),strcountry
DoField getlang("LangCustEmail"),stremail
DoField getlang("LangCustPhone"),strphone
DoField getlang("LangCustFax"),strfax
DoField getlang("LangCustCompany"),strcompany
If getconfig("xShippingForm")="Yes" then
Doheader getlang("LangFormatShippingInformation")
DoField getlang("LangShippingMethod"),GetSess("shipmethod")
DoField getlang("LangShipName"),GetSess("shipname")
Dofield getlang("LangShipAddress"),GetSess("shipaddress")
DoField getlang("LangShipCity"),GetSess("Shiptown")
DoField getlang("LangShipState"),GetSess("Shipstate")
Dofield getlang("LangShipPostcode"),GetSess("shipzip")
Dofield getlang("LangShipCompany"),GetSess("Shipcompany")
DoField getlang("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 getlang("LangFormatPaymentInformation")
DoFieldX getlang("LangCheckoutCardNumber")
DoFieldx getlang("LangCheckoutCardName")
DoFieldx getlang("LangCheckoutExpiry")
DoFieldx getlang("LangCheckoutAddress")
DoFieldx getlang("LangCheckoutCVN")
Response.write ""
If GeTSess("shipcomment") <> "" then
shopwriteheader getlang("LangOrderComments")
shopwriteerror GetSess("shipcomment")
response.write "
"
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
%>