Tiferet New Media

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsTrades Dim rsTrades_numRows Set rsTrades = Server.CreateObject("ADODB.Recordset") rsTrades.ActiveConnection = MM_DB001_STRING If request.querystring("SID") = "" Or request.querystring("SID") = "BandAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Band ASC" End If If request.querystring("SID") = "BandDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Band Desc" End If If request.querystring("SID") = "DateAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.ShowDate Asc" End If If request.querystring("SID") = "DateDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.ShowDate Desc" End If If request.querystring("SID") = "VenueAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Venue Asc" End If If request.querystring("SID") = "VenueDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Venue Desc" End If If request.querystring("SID") = "CityAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.City Asc" End If If request.querystring("SID") = "CityDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.City Desc" End If If request.querystring("SID") = "FormatAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Format Asc" End If If request.querystring("SID") = "FormatDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Format Desc" End If If request.querystring("SID") = "NotesAsc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Notes Asc" End If If request.querystring("SID") = "NotesDesc" Then rsTrades.Source = "SELECT * FROM Trades ORDER BY Trades.Notes Desc" End If rsTrades.CursorType = 0 rsTrades.CursorLocation = 2 rsTrades.LockType = 1 rsTrades.Open() rsTrades_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsTrades_numRows = rsTrades_numRows + Repeat1__numRows %> Tiferet New Media

yirm's trading list

The following items are available for trade. I will accept audio, video or Blanks & Postage. If you are interested in trading, please email yirm at tiferet daht com.

<% While ((Repeat1__numRows <> 0) AND (NOT rsTrades.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsTrades.MoveNext() Wend %>

<%If Request.QueryString("SID")="" Or Request.QueryString("SID")="BandAsc" Then%><%Else%><%End If %> Band <%If Request.QueryString("SID")="BandDesc" Then%><%Else%><%End If%>	<%If Request.QueryString("SID")="DateAsc" Then%><%Else%><%End If %> Date <%If Request.QueryString("SID")="DateDesc" Then%><%Else%><%End If%>	<%If Request.QueryString("SID")="VenueAsc" Then%><%Else%><%End If %> Venue <%If Request.QueryString("SID")="VenueDesc" Then%><%Else%><%End If%>	<%If Request.QueryString("SID")="CityAsc" Then%><%Else%><%End If %> City <%If Request.QueryString("SID")="CityDesc" Then%><%Else%><%End If%>	<%If Request.QueryString("SID")="FormatAsc" Then%><%Else%><%End If %> Format <%If Request.QueryString("SID")="FormatDesc" Then%><%Else%><%End If%>	<%If Request.QueryString("SID")="NotesAsc" Then%><%Else%><%End If %> Notes <%If Request.QueryString("SID")="NotesDesc" Then%><%Else%><%End If%>
<%=(rsTrades.Fields.Item("Band").Value)%>	<%=(rsTrades.Fields.Item("ShowDate").Value)%>	<%=(rsTrades.Fields.Item("Venue").Value)%>	<%=(rsTrades.Fields.Item("City").Value)%>	<%=(rsTrades.Fields.Item("Format").Value)%>	<%=(rsTrades.Fields.Item("Notes").Value)%>

<% rsTrades.Close() Set rsTrades = Nothing %>