billabong :: surf - skate - snow

<% Response.Buffer = False %> <% ' // FOR NEW BILLABONG SITE If Trim(Request.QueryString("regid")) = "NA" Then Response.Redirect "http://na.billabong.com" If Trim(Request.QueryString("regid")) = "ZA" Then Response.Redirect "http://www.billabong.com.au" If Trim(Request.QueryString("x")) = "1" Then Response.Cookies("regid") = Trim(Request.QueryString("regid")) End If %> <% Call start_oconn() %> <% SQL = "SELECT * FROM [home_page] WHERE id = '"& regid &"'" 'Response.Write(SQL &"

") Dim rs Set rs = oConn.Execute(SQL) If Not rs.EOF Then For n = 0 To 9 If Trim(rs("active_"& n)) <> "" And Trim(rs("image_"& n )) <> "" Then If Trim(rs("url_"& n )) <> "" Then output = output & "new Array("""& rs("url_"& n ) &""", """& rs("caption_"& n ) &""", """& rs("image_"& n ) &""", """& rs("active_"& n ) &""", """& rs("checked_"& n ) &""")," & vbNewLine Else output = output & "new Array("""", """& rs("caption_"& n ) &""", """& rs("image_"& n ) &""", """& rs("checked_"& n ) &""")," & vbNewLine End If i=i+1 End If Next End If %> billabong :: surf - skate - snow - wake <% If regid <> "NA" Then %>

<% If Trim(rs("url_b1")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b1") %>" <% If Trim(rs("checked_b1")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b1")) <> "" Then %><% End If %> <% If Trim(rs("url_b2")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b2") %>" <% If Trim(rs("checked_b2")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b2")) <> "" Then %><% End If %> <% If Trim(rs("url_b3")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b3") %>" <% If Trim(rs("checked_b3")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b3")) <> "" Then %><% End If %> <% If Trim(rs("url_b4")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b4") %>" <% If Trim(rs("checked_b4")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b4")) <> "" Then %><% End If %>

<% Else %>

<% If Trim(rs("url_b1")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b1") %>" <% If Trim(rs("checked_b1")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" border="0" alt="" /><% If Trim(rs("url_b1")) <> "" Then %><% End If %>

<% If Trim(rs("url_b2")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b2") %>" <% If Trim(rs("checked_b2")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" border="0" alt="" /> <% If Trim(rs("url_b2")) <> "" Then %><% End If %>

<% If Trim(rs("url_b3")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b3") %>" <% If Trim(rs("checked_b3")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" border="0" alt="" /> <% If Trim(rs("url_b3")) <> "" Then %><% End If %>

<% If Trim(rs("url_b4")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b4") %>" <% If Trim(rs("checked_b4")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" border="0" alt="" /><% If Trim(rs("url_b4")) <> "" Then %><% End If %>

<% End If %> <% rs.Close() Set rs = Nothing Call end_oconn() %>


<% If Trim(rs("url_b1")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b1") %>" <% If Trim(rs("checked_b1")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b1")) <> "" Then %><% End If %>	<% If Trim(rs("url_b2")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b2") %>" <% If Trim(rs("checked_b2")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b2")) <> "" Then %><% End If %>	<% If Trim(rs("url_b3")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b3") %>" <% If Trim(rs("checked_b3")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b3")) <> "" Then %><% End If %>	<% If Trim(rs("url_b4")) <> "" Then %>" onMouseOver="self.status=this.title; return true" onMouseOut="do_status()" title="<%= rs("caption_b4") %>" <% If Trim(rs("checked_b4")) <> "" Then Response.write "target=_blank" End If %>><% End If %>" width="160" border="0" alt="" /><% If Trim(rs("url_b4")) <> "" Then %><% End If %>