<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim conn dim rs dim strSql set conn=server.createObject("ADODB.Connection") 'conn.open "DBQ=d:\www\shikari.nl\database\punk_archief1.mdb;DRIVER={Microsoft Access Driver (*.mdb)};" conn.open "DBQ=d:\www\bacteria.nl\database\punk_archief.mdb;DRIVER={Microsoft Access Driver (*.mdb)};" 'conn.open "DBQ=H:\www\punkarchief.nl\database\punk_archief.mdb;DRIVER={Microsoft Access Driver (*.mdb)};" set rs = server.createObject("ADODB.Recordset") strSql = "SELECT id_band, name from bands order by name" rs.open strSql, conn, 3, 3 %> Punk archive <% do until rs.eof response.Write("") rs.movenext loop %>
Click on a band name to view details.

 

" & rs("name") & "