<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Level3RS__MMColParam
Level3RS__MMColParam = "20"
If (Request("MM_EmptyValue") <> "") Then
Level3RS__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
set Level3RS = Server.CreateObject("ADODB.Recordset")
Level3RS.ActiveConnection = MM_DP77conn_STRING
Level3RS.Source = "SELECT * FROM subcatlevel3 WHERE subcategoryid = " + Replace(Level3RS__MMColParam, "'", "''") + ""
Level3RS.CursorType = 0
Level3RS.CursorLocation = 2
Level3RS.LockType = 3
Level3RS.Open()
Level3RS_numRows = 0
%>
<%
Dim bargainRS__MMColParam
bargainRS__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then bargainRS__MMColParam = Request("MM_EmptyValue")
%>
<%
set bargainRS = Server.CreateObject("ADODB.Recordset")
bargainRS.ActiveConnection = MM_DP77conn_STRING
bargainRS.Source = "SELECT * FROM subcategories WHERE categoryid = " + Replace(bargainRS__MMColParam, "'", "''") + ""
bargainRS.CursorType = 0
bargainRS.CursorLocation = 2
bargainRS.LockType = 3
bargainRS.Open()
bargainRS_numRows = 0
%>
<%
Dim GerlsRS__MMColParam
GerlsRS__MMColParam = "3"
if (Request("MM_EmptyValue") <> "") then GerlsRS__MMColParam = Request("MM_EmptyValue")
%>
<%
set GerlsRS = Server.CreateObject("ADODB.Recordset")
GerlsRS.ActiveConnection = MM_DP77conn_STRING
GerlsRS.Source = "SELECT * FROM subcategories WHERE categoryid = " + Replace(GerlsRS__MMColParam, "'", "''") + ""
GerlsRS.CursorType = 0
GerlsRS.CursorLocation = 2
GerlsRS.LockType = 3
GerlsRS.Open()
GerlsRS_numRows = 0
%>
<%
Dim GuysRS__MMColParam
GuysRS__MMColParam = "2"
if (Request("MM_EmptyValue") <> "") then GuysRS__MMColParam = Request("MM_EmptyValue")
%>
<%
set GuysRS = Server.CreateObject("ADODB.Recordset")
GuysRS.ActiveConnection = MM_DP77conn_STRING
GuysRS.Source = "SELECT * FROM subcategories WHERE categoryid = " + Replace(GuysRS__MMColParam, "'", "''") + ""
GuysRS.CursorType = 0
GuysRS.CursorLocation = 2
GuysRS.LockType = 3
GuysRS.Open()
GuysRS_numRows = 0
%>
<%
Dim AccessRS__MMColParam
AccessRS__MMColParam = "4"
if (Request("MM_EmptyValue") <> "") then AccessRS__MMColParam = Request("MM_EmptyValue")
%>
<%
set AccessRS = Server.CreateObject("ADODB.Recordset")
AccessRS.ActiveConnection = MM_DP77conn_STRING
AccessRS.Source = "SELECT * FROM subcategories WHERE categoryid = " + Replace(AccessRS__MMColParam, "'", "''") + ""
AccessRS.CursorType = 0
AccessRS.CursorLocation = 2
AccessRS.LockType = 3
AccessRS.Open()
AccessRS_numRows = 0
%>
<%
Dim ProductsRS__MMColParam
ProductsRS__MMColParam = "20"
If (Request("MM_EmptyValue") <> "") Then
ProductsRS__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
set ProductsRS = Server.CreateObject("ADODB.Recordset")
ProductsRS.ActiveConnection = MM_DP77conn_STRING
ProductsRS.Source = "SELECT * FROM products WHERE level3 = '" + Replace(ProductsRS__MMColParam, "'", "''") + "' ORDER BY catalogid ASC"
ProductsRS.CursorType = 0
ProductsRS.CursorLocation = 2
ProductsRS.LockType = 3
ProductsRS.Open()
ProductsRS_numRows = 0
%>
<%
Dim Repeat4__numRows
Repeat4__numRows = -1
Dim Repeat4__index
Repeat4__index = 0
AccessRS_numRows = AccessRS_numRows + Repeat4__numRows
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
ProductsRS_numRows = ProductsRS_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
GerlsRS_numRows = GerlsRS_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = -1
Dim Repeat3__index
Repeat3__index = 0
GuysRS_numRows = GuysRS_numRows + Repeat3__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Bondage Pants
<%
While ((Repeat3__numRows <> 0) AND (NOT GuysRS.EOF))
%>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
GuysRS.MoveNext()
Wend
%>
<%
While ((Repeat2__numRows <> 0) AND (NOT GerlsRS.EOF))
%>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
GerlsRS.MoveNext()
Wend
%>
<%
While ((Repeat4__numRows <> 0) AND (NOT AccessRS.EOF))
%>
<%
Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
AccessRS.MoveNext()
Wend
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT ProductsRS.EOF))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
ProductsRS.MoveNext()
Wend
%>
Bondage Pants We have Dogpile's original bondage pants that
they've been doing fer years & years, with zipper pockets and removeable bondage
straps ... All styles and colors, don't be fooled by the imitations
- these are the bondage pants that started it all. Top quality
construction and plenty of detail make these pants the favorite of
all yer punk
heros, and local town hooligans. Order bondage pants now from
DP-77!!!
Price <%= FormatCurrency((Level3RS.Fields.Item("styleNumber").Value), 2, -2, -2, -2) %>
<%
Level3RS.Close()
%>
<%
bargainRS.Close()
%>
<%
GerlsRS.Close()
%>
<%
GuysRS.Close()
%>
<%
AccessRS.Close()
%>
<%
ProductsRS.Close()
%>
