<%@ Language=VBScript %>
Classroom Furniture, Storage, Shop Online at Backyard Adventures Iowa
<%
Dim thisTest
Dim theSession
theSession = session("orderID")
thisTest = ""
if not theSession = "" then
Set oRsTransactionTest = oConnCustomer.Execute ("SELECT * FROM ordertransaction WHERE TranOrderID = "&theSession&"")
if not oRsTransactionTest.EOF then
testID = oRsTransactionTest("ApprovalCode")
if not testID = "0" then
thisTest = "same"
theSession = ""
session("IDState") = ""
session("orderID") = ""
end if
end if
end if
%>
We are changing our website. Please go to KidAdventureStore.com
If you are not redirected after 20 seconds click on the link below to go to our new site
