|
<%
qstring = request.querystring("ArtistList")
If qstring = "" Then
qstring = "artists_a-f"
End If
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/artists.mdb")
oConn.Open
oRS.Open "SELECT * FROM artists WHERE category='" & qstring & "'", oConn, 3, 2
Dim x
Dim y
Dim z
Dim length
'Changing the value of length, determines how many pictures are displayed per row.
length = 4
z=oRS.RecordCount
response.write ""
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
|
