<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.Form("submit") = "" then singer = TRIM( Request.QueryString( "singer" ) ) language = TRIM( Request.QueryString( "language" ) ) title = TRIM( Request.QueryString( "title" ) ) origin = TRIM( Request.QueryString( "origin" ) ) Else singer = TRIM( Request.Form( "singer" ) ) language = TRIM( Request.Form( "language" ) ) title = TRIM( Request.Form( "title" ) ) origin = TRIM( Request.Form( "origin" ) ) End if sortby = TRIM( Request.QueryString( "sort" )) if sortby = "" then sortby = "song_title" else if sortby = "language" then sortby = "language DESC" end if end if ' Open Database Connection %> <% recordsonpage = 40 if Trim(Request.QueryString("pagenum")) = "" then 'if pagenum = 0 OR pagenum = "" then pagenum = 1 pagenum = cInt(pagenum) else pagenum = Trim(Request.QueryString("pagenum")) pagenum = cInt(pagenum) end if ' if offset is zero then the first page will be loaded offset = request.querystring("offset") if offset = 0 OR offset = "" then requestrecords = 0 else requestrecords = requestrecords + offset end if %> FelipeLopez.net Karaoke Night
Welcome to FelipeLopez.net's Karaoke Night!

View My Song List
Sort or Search Karaoke Titles By:
Song Title:
Singer:
Song Language:
    Tagalog  English
Song Origin:
    Philippines  Foreign
 
  
<% Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.ActiveConnection = Con if title <> "" AND singer <> "" AND language <> "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND singer LIKE '%"&singer&"%' AND language ='"&language&"' AND song_origin ='%"&origin&"%' ORDER BY "&sortby&"" else if title <> "" AND singer <> "" AND language <> "" AND origin = "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND singer LIKE '%"&singer&"%' AND language ='"&language&"' ORDER BY "&sortby&"" else if title <> "" AND singer <> "" AND language = "" AND origin = ""then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND singer LIKE '%"&singer&"%' ORDER BY "&sortby&"" else if title <> "" AND singer = "" AND language = "" AND origin = ""then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' ORDER BY "&sortby&"" else if title = "" AND singer <> "" AND language = "" AND origin = ""then sqlString = "SELECT * FROM Songlist WHERE singer LIKE '%"&singer&"%' ORDER BY "&sortby&"" else if title = "" AND singer = "" AND language <> "" AND origin = ""then sqlString = "SELECT * FROM Songlist WHERE language = '"&language&"' ORDER BY "&sortby&"" else if title = "" AND singer = "" AND language = "" AND origin <> ""then sqlString = "SELECT * FROM Songlist WHERE song_origin = '"&origin&"' ORDER BY "&sortby&"" else if title <> "" AND singer <> "" AND language = "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND singer LIKE '%"&singer&"%' AND song_origin ='"&origin&"' ORDER BY "&sortby&"" else if title <> "" AND singer = "" AND language <> "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND language = '"&language&"' AND song_origin ='"&origin&"' ORDER BY "&sortby&"" else if title = "" AND singer <> "" AND language <> "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE singer LIKE '%"&singer&"%' AND language = '"&language&"' AND song_origin ='"&origin&"' ORDER BY "&sortby&"" else if title <> "" AND singer = "" AND language = "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND song_origin = '"&origin&"' ORDER BY "&sortby&"" else if title = "" AND singer <> "" AND language = "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE singer LIKE '%"&singer&"%' AND song_origin = '"&origin&"' ORDER BY "&sortby&"" else if title <> "" AND singer = "" AND language <> "" AND origin = "" then sqlString = "SELECT * FROM Songlist WHERE song_title LIKE '%"&title&"%' AND language = '"&language&"' ORDER BY "&sortby&"" else if title = "" AND singer <> "" AND language <> "" AND origin = "" then sqlString = "SELECT * FROM Songlist WHERE singer LIKE '%"&singer&"%' AND language = '"&language&"' ORDER BY "&sortby&"" else if title = "" AND singer = "" AND language <> "" AND origin <> "" then sqlString = "SELECT * FROM Songlist WHERE language = '"&language&"' AND song_origin ='"&origin&"' ORDER BY "&sortby&"" else sqlString = "SELECT * FROM Songlist ORDER BY "&sortby&"" end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if 'Response.Write(sqlString) rs.Open sqlString %>
SONG TITLE:   A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

SINGER NAME:   A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

<% do until rs.EOF allrecords = allrecords + 1 rs.movenext loop rs.Close Set rs = nothing Set prodRS = Server.CreateObject( "ADODB.Recordset" ) prodRS.ActiveConnection = Con prodRS.Open sqlString rcolor = 0 val=0 hiddenrecords = requestrecords do until hiddenrecords = 0 OR prodRS.EOF hiddenrecords = hiddenrecords - 1 prodRS.movenext if prodRS.EOF then lastrecord = 1 end if loop %> <% ' prints records in the table showrecords = recordsonpage recordcounter = requestrecords do until showrecords = 0 OR prodRS.EOF recordcounter = recordcounter + 1 %> > <% rcolor= rcolor + 1 showrecords = showrecords - 1 prodRS.movenext if prodRS.EOF then lastrecord = 1 end if loop %>
SONG TITLE SINGER LANGUAGE SONG ORIGIN CODE # SINGER ADD TO SONG LIST
<%=prodRS( "song_title" )%> "><%=prodRS( "singer" )%> <%=prodRS( "language" )%> <%=prodRS( "song_origin" )%>
 <%=prodRS( "song_code" )%>
<% Call checkURL CallURL = Session.Contents.Item("CallURL") %> ">
<%' Response.Write "" %>

*Note: You may click on the name of the Singer to view all songs by the Singer.
<% if requestrecords <> 0 then %><% else %><% end if %>    <% numpages = allrecords / 40 if (int(allrecords) mod int(40)) <> 0 then numpages = int(numpages)+1 end if pagelistcounter = 1 pages = 0 for pagelistcounter = 1 TO numpages %> <% if pagenum = pagelistcounter then Response.write "" Response.write pagelistcounter Response.Write "" else %> <% = pagelistcounter %> <% pages = pages + recordsonpage end if next %>    <% if lastrecord <> 1 then %> <% else %><% end if %>
<% prodRS.Close Set prodRS = nothing %>
Programmed by Felipe Lopez. Email: FelipeLopez@FelipeLopez.net
FelipeLopez.net