<% strUserName = session("UserName") strAction = request("cmdSort") strSortType = request("SortType") strSortType2 = request("SortType2") strAccessLevel = session("AccessLevel") PageNo = cInt(request.form("page")) sSQL = request.form("strSQL") If PageNo = "" then PageNo=1 end if If PageNo < 1 then PageNo=1 end if 'sSearchFor = Request.form("SearchFor") 'iType = Request.form("Type") sPriceType = Request.form("PriceType") sFromYear = Request.form("FromYear") sToYear = Request.form("ToYear") sPriceSort = request("PriceSort") sSQL = "Select * from CDListing where ShowDate >= #" & Date() & "# order by ShowDate" Set rsSearch = Server.CreateObject("ADODB.Recordset") rsSearch.Open sSQL, objADO, 1, 3 if not rsSearch.EOF then strUserName = rsSearch("UserName") ' Create a recordset object to store specific table information Set objLogin = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblLogin where (UserName = '" + strUserName + "')" 'Set the recordset object equal to the SQL query string objLogin.Open SQL, objADO, 1, 3 end if Set rsGenre = Server.CreateObject("ADODB.Recordset") SQL = "Select * from TblLogin where UserName = '" + strUserName + "'" rsGenre.Open SQL, objADO, 3, 3 PageNo = cInt(request.form("page")) sSQL = request.form("strSQL") If PageNo = "" then PageNo=1 end if If PageNo < 1 then PageNo=1 end if TotalRecs = rsSearch.recordcount rsSearch.Pagesize=5 TotalPages = cInt(rsSearch.pagecount) if PageNo > TotalPages then PageNo = TotalPages end if if not rsSearch.eof then rsSearch.absolutepage=PageNo end if %> <% Sub DisplayCDThumbnails%>

SHOW DATE: <%= rsSearch("ShowDate")%>

<% if rsSearch("BandId") <> "0" then %> <% sSQL = "SELECT * FROM TblLogin where LoginId =" & rsSearch("BandId") Set rsBand = Server.CreateObject("ADODB.Recordset") rsBand.Open sSQL, objADO, 3, 3 %> <%If Len(rsBand("Picture1")) > 0 Then If UCase(Left(rsBand("Picture1"),7))="HTTP://" Then%> ">" width="100" border="0"> <%Else%> ">" width="100" border="0"> <%End If Else%> "> <%End If%> <% Else%> <% end if %> <% if rsSearch("ClubId") <> "0" then %> <% sSQL = "SELECT * FROM TblLogin where LoginId =" & rsSearch("ClubId") Set rsClub = Server.CreateObject("ADODB.Recordset") rsClub.Open sSQL, objADO, 3, 3 %> <%If Len(rsClub("Picture1")) > 0 Then If UCase(Left(rsClub("Picture1"),7))="HTTP://" Then%> ">" width=100 border="0"> <%Else%> ">" width=100 border="0"> <%End If Else%> "> <%End If%> <% Else%> <% end if %> <% if Session("accesslevel") = "1" or strUserName = RSSearch("UserName") then %> &Action=Edit">   "> <% end if %> ">[ View Show Details ]

<% if not rsSearch("Band") = "" then %>Band:  <%=rsSearch("Band")%> <%end if%> <% if not rsSearch("ShowDate") = "" then %>Show Date:  <%=rsSearch("ShowDate")%> <%end if%> <% if not rsSearch("Genre") = "" then %>Genre:  <%=rsSearch("Genre")%> <%end if%> <% if not rsSearch("Club") = "" then %>Club:  <%=rsSearch("Club")%> <%end if%> Show Location: <% if not rsSearch("City") = "" then %> <%=rsSearch("City")%>, <%end if%> <% if not rsSearch("State") = "" then %> <%=rsSearch("State")%> <%end if%> <%if len(rsSearch("Description")) > 0 then Response.Write left(rsSearch("Description"),150) & "... " %> <% else response.write "Description Not Given " end if %> ">[ View Show Details ]

<%End Sub%>

<% if WarningErrMsg <> "" then %> <% end if %> <% if rsSearch.RecordCount = "0" then %> <% end if %> VIEW ALL SHOWS Error(s):<%= warningErrMsg %> There are not any shows listed that match your search criteria. Click Here to try your search again.

<% x = 0 For x = 1 to 5 If rsSearch.eof then Exit For Else %> <%If Not rsSearch.EOF Then Call DisplayCDThumbnails%> <%If Not rsSearch.EOF Then rsSearch.MoveNext%> <% End If Next %> <% if TotalRecs <> "0" then %> Page <%=PageNo%> of <%=TotalPages%> <%=TotalRecs%> show(s) found. <% end if %>