%
database = "onurpursuemp3.mdb"
connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(database)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connection
dim abc(27)
abc(1) = "A"
abc(2) = "B"
abc(3) = "C"
abc(4) = "D"
abc(5) = "E"
abc(6) = "F"
abc(7) = "G"
abc(8) = "H"
abc(9) = "I"
abc(10) = "J"
abc(11) = "K"
abc(12) = "L"
abc(13) = "M"
abc(14) = "N"
abc(15) = "O"
abc(16) = "P"
abc(17) = "Q"
abc(18) = "R"
abc(19) = "S"
abc(20) = "T"
abc(21) = "U"
abc(22) = "V"
abc(23) = "W"
abc(24) = "X"
abc(25) = "Y"
abc(26) = "Z"
abc(27) = "0-9"
l = Request.QueryString("l")
p = Request.querystring("p")
if p = "" then p = 1 end if
%>
Singers starting with:
<%For i = 1 to 27 %>
<%=abc(i)%><% next %>
Mp3 Downloads
Quick Search
Top Sites
Singers starting with: "<%=l%>"
<% Set rs = Server.CreateObject("ADODB.Recordset")
if l = "0-9" then
nere = "Select * From mp3s where (singer Like '0%' or singer Like '1%' or singer Like '2%' or singer Like '3%' or singer Like '4%' or singer Like '5%' or singer Like '6%' or singer Like '7%' or singer Like '8%' or singer Like '9%') and dil <> 'tr' order by singer asc;"
else
nere = "Select * From mp3s where singer Like '"&l&"%' and dil <> 'tr' order by singer asc;"
end if
rs.open nere, conn, 1, 3
rs.pagesize = 29
if not rs.eof then
rs.absolutepage = p
end if
for i = 1 to rs.pagesize
if rs.eof then exit for
%>- "><%=rs("singer")&" - "&rs("name")%>
<% rs.movenext
Next %>
Pages
<% for j =1 to rs.pagecount%><%=j%>
<% next %>
<% rs.close %>