<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/mdb-database/loginx.mdb")
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="select * from tblNews order by ID"
objRS.Open sSQL, objConn, 3, 3
%>
<%
if not objRS.EOF then
do while not objRS.EOF
Response.Write objRS("id") & " " & objRS("Heading") & " " & objRS("Content") & "
"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<%
end if
%>
come si fa la paginazione?
o meglio dopo 10 creare altre pagine tipo 1 > 10??
Rispondi quotando
