25-05-2005, 14:41
|
|
|
חבר מתאריך: 08.04.05
הודעות: 11
|
|
אחי לא עובד קבל את הקוד אולי תידע מה הבעיה
<%Dim Con,Rs
Set Con = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Con.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dolpin1.mdb") & ""
Con.Open%>
<%
Dim currPage,i,pCount, numRecs
%>
<%
currPage= 5
numRecs = 1
%>
<%
rs.PageSize = numRecs
rs.CacheSize = numRecs
%><%
If Not request("currPage") = "" Then
currPage= Request("currPage")
End If
%>
<%Rs.Open "select * from to1",Con,3,1%>
<%
if Not rs.EOF Then
pCount=rs.pageCount
rs.AbsolutePage=CurrPage
End If
%>
<br><%=Rs.Fields("name")%>
<br><%=Rs.Fields("link")%><%
Do While Not rs.EOF AND i < rs.pagesize
' Data manipulation
i=i+1
rs.MoveNext
Loop
%><%
for i = 1 to pCount
if Cint(i) = Cint(currPage) then
Response.Write " <b>"& i &"</b> "
Else
Response.Write " <a href=""dani.asp?currPage=" & i & """>"& i &"</a> "
End If
Next
%>
|