<%
Option Explicit
If IsEmpty(Request.Form("CheckOut")) Then
  Response.Redirect "./shopping_cart.asp"
End If
Dim conn
Dim RSPageText
Dim RSFooter
Dim PageText
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'CheckOutComplete')"
set RSPageText = conn.execute("select ExtendedText, BriefText from ASPPageText " _
  & "where PageName = 'CheckOutComplete'")
PageText= RSPageText("ExtendedText")
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
conn.Execute "update ASPSessions set " _
  & "BillName = '" & ConvertIt(Request.Form("BillName"),"'","'") & "', " _
  & "EmailAddress = '" & ConvertIt(Request.Form("EmailAddress"),"'","'") & "', " _
  & "Phone = '" & ConvertIt(Request.Form("Phone"),"'","'") & "', " _
  & "BillAddress1 = '" & ConvertIt(Request.Form("BillAddress1"),"'","'") & "', " _
  & "BillAddress2 = '" & ConvertIt(Request.Form("BillAddress2"),"'","'") & "', " _
  & "BillCSZ = '" & ConvertIt(Request.Form("BillCSZ"),"'","'") & "', " _
  & "ShipName = '" & ConvertIt(Request.Form("ShipName"),"'","'") & "', " _
  & "ShipAddress1 = '" & ConvertIt(Request.Form("ShipAddress1"),"'","'") & "', " _
  & "ShipAddress2 = '" & ConvertIt(Request.Form("ShipAddress2"),"'","'") & "' , " _
  & "ShipCSZ = '" & ConvertIt(Request.Form("ShipCSZ"),"'","'") & "', " _
  & "CCType = '" & ConvertIt(Request.Form("CCType"),"'","'") & "', " _
  & "CCNumber = '" & ConvertIt(Request.Form("CCNumber"),"'","'") & "', " _
  & "CCExpiration = '" & ConvertIt(Request.Form("CCExpiration"),"'","'") & "', " _
  & "Comments = '" & ConvertIt(Request.Form("Comments"),"'","'") & "', " _
  & "Phone2 = '" & ConvertIt(Request.Form("Phone2"),"'","'") & "' " _
  & "where SessionID = " & Session("SessionID")
%>
