if isempty(Session("SessionID")) then
  CurrentDateTime = Now
  conn.Execute "insert into WICustomers (SessionDateTime) values ('"_
    & CurrentDateTime & "')"
  set RSSession = conn.Execute("select SessionID from WICustomers "_
    & "where SessionDateTime = '" & CurrentDateTime & "'")           Session("SessionID") = RSSession("SessionID")
end if
''''''''''
set RSTotal = conn.Execute("select Sum(TotalPrice) as TheTotal from
  WIOrderItems "_
    & "where SessionID = " & Session("SessionID"))
if RSTotal("TheTotal") * Application("ShipPercent") > Application
  ("MinShip") then
    TopShipping = RSTotal("TheTotal") * Application("ShipPercent") 
else
  TopShipping = Application("MinShip")
end if
'''''''''''
Response.Redirect "https://www.netstats2000.com/bud/html/"_
  & shopping_cart.asp?SessionID=" & Session(SessionID")
