<% sUserName = request("ID") sSQL = "Select * from CDListing where UserName = '" + sUserName + "'" sSQL = sSQL & " order by ShowDate" Set rsSearch = Server.CreateObject("ADODB.Recordset") rsSearch.Open sSQL, 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 Len(rsSearch("Picture1")) > 0 Then If UCase(Left(rsSearch("Picture1"),7))="HTTP://" Then%> " border="0" width="240" height="160"> <%Else%> " border="0" width="240" height="160"> <%End If Else%> <%End If%> <% if Session("accesslevel") = "1" or strUserName = RSSearch("UserName") then %> &Action=Edit">   "> <% end if %>

<% 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) & "... " %> ">More <% else response.write "Description Not Given " end if %>

<%End Sub%>

<% if WarningErrMsg <> "" then %> <% end if %> <% if rsSearch.RecordCount = "0" then %> <% end if %> SHOW SEARCH RESULTS Error(s):<%= warningErrMsg %> You currently do not have any shows listed with us. Click Here to add a show.

<% 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 %>