
May 17th, 2000, 03:48 PM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
  
Time spent in forums: < 1 sec
Reputation Power: 24
|
|
|
<i><b>Originally posted by : Susie Spencer (newvi6user@hotmail.com)</b></i><br /><br />Hi Berry,<br /><br />I just wrote this a couple of days ago and it does what I think you want yours to do. Just modify the code to fit your needs:<br /><br /><%<br /><br /> strSQL = "SELECT PgmNo, CourseName, PgmCity, PgmState, PgmDate, PgmFee " &_<br /> "FROM Programs ;"<br /><br /> Set oConn=Server.CreateObject("ADODB.Connection")<br /> oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("pmireg.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5"<br /> <br /> set oRS = Server.CreateObject("ADODB.Recordset")<br /> oRs.Open strSQL, oConn, adOpenStatic, adLockOptimistic, adCmdText<br /><br /> Do While Not oRs.EOF<br /> If Request.Form("chk" & oRs("pgmNo")) = "on" Then<br /> <br /> Set programNo = oRs.Fields("pgmNo")<br /> Set courseName = oRs.Fields("CourseName")<br /> Set programCity = oRs.Fields("pgmCity")<br /> Set programSt = oRs.Fields("pgmState")<br /> Set programDate = oRs.Fields("pgmDate")<br /> Set programFee = oRs.Fields ("pgmFee")<br /><br />%><br /><br /><tr><br /> <td width="150"><font size="2" face="verdana" color="#333399"><br /> <% =programNo %></td><br /> <td width="300"><font size="2" face="verdana" color="#333399"><br /> <% =courseName %> </td><br /> <td width="200"><font size="2" face="verdana" color="#333399"><br /> <% =programCity %>, <% =programSt %> </td><br /> <td width="100"><font size="2" face="verdana" color="#333399"><br /> <% =programDate %></td><br /> <td width="200"><font size="2" face="verdana" color="#333399"><br /> <% =programFee %></td><br /></tr><br /><%<br /> End If<br /> oRs.MoveNext<br /> Loop<br />%><br /></table><br /><BR><br /><table border=0 align="center"><br /> <tr><br /> <td ><input TYPE="SUBMIT" VALUE="Next"><br /></table> <br /><%<br />oRs.Close<br />oConn.Close<br /> <br />Set oRs = Nothing<br />Set oConn = Nothing<br />%><br /><br />Good luck.<br /><br /><br />------------<br />berry at 5/17/2000 6:00:11 AM<br /><br />I have been trying to retrieve set of rows from the database against checked checkboxes.<br /><br />checkbox colI col II col III col IV<br /><br />if checkbox is selected I need to fetch the rows in next page.Please suggest a solution<br /><br />
|