Script fra ActiveDeveloper.dk der ikke vil spille med min MySQL
Hej eksperter! Jeg har tidligere spurgt herinde omkring dette problem - men fandt aldrig en løsning. Har fundet et script på ActiveDeveloper.dk - http://activedeveloper.dk/articles/279/ - længere nede fortæller de hvordan man får forrige og næste side på men det virker ikke.Her er min kode:
<%
'Først skal vi have antallet af poster
ObjCountSQL = "SELECT COUNT(*) AS records FROM machines WHERE customer=" & strId
Set objRs = ObjConn.Execute(ObjCountSQL)
intRecords = CLng(objRs("records"))
objRs.Close
intValue = (intRecords - intStart)
If intPageSize > intValue Then
intPageSize = intValue
end if
'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = int(1)
else
intPage = int(intPage)
end if
intPageSize = int(5)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
SQL = "SELECT * FROM machines WHERE customer=" & strId & " LIMIT " & intStart & ", " & intPageSize & ""
Set RS = objconn.Execute(SQL)
if rs.EOF or rs.BOF then
else
do until rs.eof
response.write("Her er posten...")
'Udskriver en "sideliste"
For i = 1 to intPages
if i = intPage then
Response.Write "<b>" & i & "</b> "
else
Response.Write "<a href=""paging.asp?page=" & i & """>"
Response.Write i
Response.Write "</a> "
end if
next
'Tilbage
IF intPage > 1 THEN
Response.Write "<a href='index.asp?section=ShowSubCategories&page=" & intpage - 1 & "'>Forige</a>"
end if
'Frem
IF intPage < intPageCount THEN
Response.Write "<a href='index.asp?section=ShowSubCategories&page=" & intpage + 1 & "'>Næste</a>"
end if
%>
Mvh
madeindk
