<% set conn = Server.Createobject("adodb.connection") set rs = server.createobject("adodb.recordset") conn.open connstr if session("orderid") = "" then orderid="0" else orderid = session("orderid") end if if orderid = "0" then session("errmsg")="Your shopping cart is empty" response.redirect "http://www.spiritfitness.com/shop/form.asp" else rs.open "select * from orders where id = " & orderid, conn,3,1 if rs.eof then rs.close conn.close session("errmsg")="Order has not been created, can't update, please try again" response.redirect "http://www.spiritfitness.com/shop/abandon.asp" end if if rs("approved") then rs.close conn.close session("errmsg")="Order has been completed and paid for, can't update" response.redirect "http://www.spiritfitness.com/shop/abandon.asp" end if end if email=rs("email")&"" name=rs("billingname")&"" company=rs("billingcompany")&"" address1=rs("billingaddress1")&"" address2=rs("billingaddress2")&"" city=rs("billingcity")&"" state=rs("billingstate")&"" zip=rs("billingzip")&"" country=rs("billingcountry")&"" phone=rs("billingphone")&"" comments = rs("instructions")&"" rs.close if name="" then email =session("billingemail") name=session("billingname")&"" address1=session("billingaddress1")&"" company=session("billingcompany")&"" address2=session("billingaddress2")&"" city=session("billingcity")&"" state=session("billingstate")&"" zip=session("billingzip")&"" country=session("billingcountry")&"" phone=session("billingphone")&"" end if %>
Enter Billing Information
<% if session("errmsg") <> "" then %>

Error: <% =session("errmsg")%>

<% session("errmsg")="" end if %>
* Email Address
* Billing Name
Company
* Address
Address
Line 2
* City
 * State
* Zip Code
* Phone

 


Comments


Required fields indicated with an asterisk (*).