<%
Option Explicit
Dim conn
Dim RSFooter
Dim RSTotal
Dim RSShipping
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'Shipping')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
set RSTotal = conn.execute("select Sum(ItemPrice) as TheTotal from " _
  & "ASPSessionItems where SessionID = " & Session("SessionID"))
set RSShipping = conn.execute("select ShippingChargeID, Location " _
  & "From ASPShippingCharge")
%>
