|
<%
Set CN = Server.CreateObject("ADODB.Connection")
CN.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../_system/_db/egypteng.mdb")
Set RSP = Server.CreateObject("ADODB.Recordset")
RSP.open "SELECT * FROM Problems WHERE Problems.View=True",CN
Set objID = RSP("ProblemID")
Set objName =RSP("Name")
Set objDate =RSP("ProblemDate")
Set objProblem = RSP("Problem")
if not RSP.Eof then
while not RSP.Eof
%>
<%
Response.write(" ")
RSP.movenext
wend
end if
CN.Close
%>
|