Log-In

Member Agency Corner

 

<% Dim adoCon, rsCorner, strSql Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bcarrd.mdb") Set rsCorner=Server.CreateObject("ADODB.Recordset") strSql = "SELECT * From membercorner ORDER by title" rsCorner.Open strSql,adoCon Do While not rsCorner.EOF Response.Write("
") Response.Write("") Response.Write(rsCorner("title") ) Response.Write("") Response.Write("
") %> <% rsCorner.MoveNext Loop rsCorner.Close Set rsCorner=Nothing Set adoCon=Nothing %>