<%
'*****************************************************************
' creates a confirmation form that the user can use to mail or fax manually
' or to just verify the order details before proceeeding
' VP-ASP 6.50 address 2
' Dec 3, 2003
'*******************************************************************
ShopPageHeader ' Normal page header
Response.write ""
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
'
'********* Get company info
Sub GetCompanyInfo
dim dbc
OpenOrderDB dbc ' Open the database
Dim rsus
Set rsus = Server.CreateObject ("ADODB.Recordset")
rsus.Open "mycompany", dbc, adOpenForwardOnly,adLockReadOnly, adCmdTable
if rsus.eof then
rsus.close
set rsus=nothing
shopclosedatabase dbc
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") & "
"
'VP-ASP 6.50 - show extra information
if rsus("other1") > "" then
response.write rsus("other1") & "
"
end if
if rsus("other2") > "" then
response.write rsus("other2") & "
"
end if
if rsus("other3") > "" then
response.write rsus("other3") & "
"
end if
if rsus("other4") > "" then
response.write rsus("other4") & "
"
end if
response.write "
"
rsus.close
set rsus=nothing
ShopCloseDatabase dbc ' Close the database
End Sub
Sub FormatSessionOrder
Response.write "
" & FOrderTable
DoHeader getlang("LangFormatCustomerInformation")
Dofield getlang("LangCustFirstName"), strFirstName
DoField getlang("LangCustLastName"), strLastName
DoField getlang("LangCustAddress") ,strAddress
DoField getlang("LangCustAddress")& "2" ,strAddress2
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("LangShipAddress")& "2",GetSess("shipaddress2")
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")
DoField getlang("LangDeliverydate"),getsess("deliverydate")
DoField getlang("LangDeliverytime"),getsess("deliverytime")
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
%>