<%
connstring = "Provider=SQLOLEDB.1;User ID=cosmicdiscos;PWD=not093;Initial Catalog=cosmicdiscos;Data Source=210.23.135.70;Connect Timeout=90"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open connstring
set rssongs=cnn.execute("select * from songlist order by artist, songtitle, ID")
if rssongs.eof then
response.write("There are no songs listed")
end if
%>
<%
if not rssongs.eof then
while not rssongs.eof
%>
| <%response.write(rssongs("songtitle"))%> |
<%response.write(rssongs("artist"))%>
|
<%
rssongs.movenext
wend
end if
rssongs.close
set rssongs=nothing
%>
|