Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
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")