the slipstream of thoughtless thoughts
<% Dim adoCon Dim rs Dim strSQL Dim blog Dim previous dim blogidnumber dim indexvalue dim photonumber dim albumname dim picnumber dim idlength dim albumlength dim nextnum dim count dim prevnum Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../spfreaknet.mdb") blog = Request.QueryString("BlogID") strSQL = "SELECT * FROM randomthoughts ORDER BY blognumber DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, adoCon blogurl = rs("blogfile") indexvalue = rs("index") %>
<% rs.movefirst do while not rs.eof blogidnumber= rs("blognumber") %> <% rs.movenext loop rs.close %>
<% response.write rs("blognumber") %>
<% response.write rs("date") %>