%if instr((Request.ServerVariables("HTTP_HOST")),"localhost") > 0 then elseif instr((Request.ServerVariables("HTTP_HOST")),"www") = 0 then if Request.Querystring = "" then newloc = "http://www.partytimebr.net" & Request.ServerVariables("URL") response.Redirect(newloc) else Response.Redirect("http://www.partytimebr.net" & Request.ServerVariables("URL") & "?" & Request.Querystring) end if end if %> <% Function HTMLDecode(encodedstring) if encodedstring <> "" then Dim tmp, i tmp = encodedstring tmp = Replace( tmp, "'" , "’") tmp = Replace( tmp, chr(150) , "–") tmp = Replace( tmp, chr(151) , "—") tmp = Replace( tmp, chr(146) , "’") tmp = Replace( tmp, chr(34) , """) tmp = Replace( tmp, chr(148) , """) tmp = Replace( tmp, chr(233) , "é") 'tmp = Replace( tmp, chr(148) , """) end if HTMLDecode = tmp End Function %> <% if Request("UserName") <> "" then Session("UserName") = Request("UserName") end if %> <% session.Timeout = 500 if isarray(session("product_cart")) <> True then Dim product_cart() Session("product_cart")=product_cart end if if session("Num") = "" Then session("OldNum") = 0 End If %> <% loc = Request.ServerVariables("URL") if (loc = "/cart/login.asp") or ( loc = "/cart/myacct.asp?" ) or ( loc = "/cart/myacct.asp" ) Then if (Session("a") = "")then Session("a") = Request.ServerVariables("URL") & "?" & Request.Querystring end if else Session("a") = Request.ServerVariables("URL") & "?" & Request.Querystring Session("a1") = Request.ServerVariables("URL") & "?" & Request.Querystring end if 'response.Write( Session("a1"))%>
Big Hill Birthday
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|
Halloween Categories Halloween Costumes Halloween Costume Accessories Party Time Rentals |
Popular Categories Birthday Party Supplies Graduations Party Supplies Luau Party Supplies Theme Party Supplies Wedding Party Supplies |
Company About Party Time Security Policy Terms & Conditions Shipping Costs |
Help Contact Us Return Policy Site Map |
| |
||||