| |
Media Samples
<%
oConn.open oCS
sql="Select * From MediaSrc order by medium, Album ASC"
oRS.open sql, oCS, 3,1
If not oRS.eof then
rCount = oRS.RecordCount
strTestMedia=oRS("medium")
Do While not oRS.Eof
intAlbum=oRS("aId")
strAlbum=oRS("Album")
strImage=oRS("image")
strMedia=oRS("medium")
%>
|
<%
sql2="Select * From Media where aId = " & intAlbum & " order by sOrder ASC"
oRS2.open sql2, oCS, adopenstatic
If not oRS2.eof then
Do While not oRS2.Eof
strLink="media/" & oRS2("file")
response.write "| " & oRS2("song") & " | "
oRS2.MoveNext
Loop
End If
oRS2.close
%>
|
<%
rCount=rCount-1
oRS.MoveNext
Loop
End If
oRS.close
oConn.close
%>
|
|
|
