bladre funktion
Følgende skal virke, så når man klikker på next, tager den de næste 10 records i db\'en ... men jeg tror jeg er kørt fast ...<%
\'åbn datasrc
Dim strDNS, db
strDSN = \"intranet\"
Set db = Server.CreateObject(\"ADODB.Connection\")
db.Open strDSN , \"sa\", \"\"
GetCustomersCount = \"SELECT count(customer_id) FROM customers\"
set rsCustomers = db.Execute(GetCustomersCount)
GetCustomers = \"SELECT * FROM customers ORDER BY customer_name\"
set rsCustomers = db.Execute(GetCustomers)
%>
<%
maxRows = 10
if (request.queryString(\"startrow\") = \"\") then
i = i
startRow = 1
else
i = request.QueryString(\"startRow\")
end if
do while (i < maxRows)
i = i +1
response.write i & \" \" & rsCustomers(\"customer_name\") & \"<br>\"
rsCustomers.MoveNext
Loop
%>
<% if i > 20 then%>
<a href=\"bladre2.asp?startRow=<%= i - 1 %>\">last</a>
<% end if %>
<a href=\"bladre2.asp?startRow=<%= i + 1 %>\">next</a>
does anybody know how to do this?
