%
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"
%>
Singers starting with:
<%For i = 1 to 27 %>
<%=abc(i)%><% next %>
Mp3 Downloads
Quick Search
Top Sites
Top Downloaded 30 Mp3
<% Set rs = Server.CreateObject("ADODB.Recordset")
nere = "Select * From mp3s order by hit desc;"
rs.open nere, conn, 1, 3
For i = 1 to 30
if rs.eof then exit for
%>- "><%=Left(rs("singer")&" - "&rs("name"),40)%>
<% rs.movenext
Next %>
<% rs.close %>
Last Added 30 Mp3
<% Set rs = Server.CreateObject("ADODB.Recordset")
nere = "Select * From mp3s order by id desc;"
rs.open nere, conn, 1, 3
For i = 1 to 30
if rs.eof then exit for
%>- "><%=Left(rs("singer")&" - "&rs("name"),40)%>
<% rs.movenext
Next %>
<% rs.close %>