<%@ LANGUAGE = "VBScript" %>
<%
stage=request.querystring("stage")
'Check if user is signed in
if session("custid")="" or session("custid")=null then
response.redirect("signin.asp")
end if
'Check if anything in shopping cart
If IsArray(Session("cart")) = false Then
Dim acart(19,1)
Session("cart") = acart
response.redirect("error.asp?msg=" & Server.URLEncode("Your shopping cart is empty."))
end if
acart=Session("cart")
' If delivery details have already been filled in
if (not(session("fname")="" or session("lname")="" or session("address1")="" or session("address2")="" or session("city")="" or session("state")="" or session("zip")="" or session("country")="")) and stage<>"update" then
response.redirect("payment.asp")
end if
'if delivery details have been partially filled in then turn the "deliver to someone else radio button on
if session("fname")<>"" or session("lname")<>"" or session("address1")<>"" or session("address2")<>"" or session("city")<>"" or session("state")<>"" or session("zip")<>"" or session("country")<>"" then
delivertome=""
delivertother="checked"
else
delivertome="checked"
delivertother=""
end if
%>
<%= storename %>
<%
header
categorymenu
%>
delivery information
· Please tell us where to deliver your order. <%= request.querystring("msg") %>