Home Home Pictures Recipes CDs and DVDs Links About

CDs and DVDs

I'm stupid

CDs | DVDs

<% If Request("Media") <> "" Then set cnnDB = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") cnnDB.Open strConn strSQL = "SELECT MediaID FROM Media WHERE Media='" & Request("Media") & "'" rs.Open strSQL, cnnDB If NOT rs.EOF AND NOT rs.BOF Then iMediaID = rs(0) End if rs.Close If Request("Media") = "CD" Then strSQL = "SELECT A.Artist, Title, Year FROM Title T LEFT JOIN Artist A ON T.ArtistID = A.ArtistID WHERE MediaID=" & iMediaID & " ORDER BY Artist, Year" Elseif Request("Media") = "DVD" Then strSQL = "SELECT Title, Year FROM Title WHERE MediaID=" & iMediaID & " ORDER BY Title, Year;" End if 'Response.Write strSQL 'Response.End rs.Open strSQL, cnnDB, 3, 3 %>

<%=rs.RecordCount%> items found

<% If request("Media") = "CD" Then %> <% Elseif request("Media") = "DVD" Then %> <% End if %> <% Do While NOT rs.EOF AND NOT rs.BOF Response.Write "" If Request("Media") = "CD" Then Response.Write "" End if Response.Write "" Response.Write "" Response.Write "" rs.MoveNext Loop rs.Close cnnDB.Close set rs = Nothing set cnnDB = Nothing %>
Artist Title Year
Title Year
" & rs("Artist") & "" & rs("Title") & "" & rs("Year") & "
<% End if %>