"" then 'Connect to Database strConnStr = "Provider=SQLOLEDB.1;Data Source=myhost;UID=myuser;PWD=mypwd" set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tbl_shnlist WHERE ShowDate = '" & ShowDate & "'" rs.Open strSQL, strConnStr ' Get Data from Database RecordSet if not rs.BOF and not rs.EOF then ShowDate = rs("ShowDate") Band = rs("Band") Venue = rs("Venue") Audio = rs("Audio") Shn = rs("Shn") Online = rs("Online") Notes = rs("Notes") end if ' Close Database Connection rs.Close else end if ?>

ShowDate: Band: Choose Band <% dim BandList dim NewBand dim strConnStrNewBand dim rsNewBand dim strSQLNewBand 'Connect to Database strConnStrNewBand = "Provider=SQLOLEDB.1;Data Source=myhost;UID=myuser;PWD=mypwd" set rsNewBand = Server.CreateObject("ADODB.RecordSet") 'Define SQL String strSQLNewBand = "SELECT DISTINCT Band FROM tbl_shnlist ORDER BY Band" rsNewBand.Open strSQLNewBand, strConnStrNewBand 'Create loop to get data records do while not rsNewBand.EOF 'Get values from database BandList = rsNewBand("Band") %> ><% =BandList %> <% 'back into ASP to complete loop rsNewBand.MoveNext loop 'Close Database Connection rsNewBand.Close %> OR New Band: Venue: Audio: >0 >1 >2 >3 >4 >5 >6 >7 >8 >9 >10 >11 >12 >13 >14 >15 >16 Shn: >0 >1 >2 >3 >4 >5 >6 >7 >8 >9 >10 >11 >12 >13 >14 >15 >16 Online: >Yes >No Additional Notes: <% =Notes %>