fejls betydning

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=160

det blev jeg så ikke klogere af &:-D

Må man se det kode du får fejlen på ? :O)

DGP

her er den:

strSQL = "Select * From spm Where bruger_id = " & Request.Querystring("id") & " order by dato"
set rs = conn.execute(strSQL)

If Not (RS.BOF Or RS.EOF) Then

    rs.PageSize = 10        'Hvor mange Records der skal vises på hver side
    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på
    intRecCount = rs.PageSize    'Antallet af records på side
    intPageCount = rs.PageCount    'Antallet af sider

    Do While Not rs.EOF And intRecCount > 0

strSQL2 = "Select COUNT(*) as ialt From svar Where svar_type='s' and status='mulig' and svar_id=" & rs("id")
set rs2= conn.execute(strSQL2)

response.write "<tr><td width='20px'>"

if rs("accepteret") = "ja" Then
response.write "<img src='blo.gif' width='10' height='10'>"
else
if rs2("ialt")=0 then
response.write "<img src='gron.gif' width='10' height='10'>"
else
response.write "<img src='orange.gif' width='10' height='10'>"
end if
end if
response.write "</td><td width='150px'><h3><a class='link' href='forumspm.asp?id=" & rs("id") & "'>"
dim tittttel
tittttel = rs("titel")
titttel = Server.HTMLEncode(tittttel)
response.write(tittttel)
response.write "</a></h3></td><td width='150px'><h3>" & rs("kategori") & "</h3></td><td width='30px' align='right'><h3>" & rs("point") & "</h3></td><td width='160px'><h3>&nbsp;</h3></td></tr>"
antal = intPage-1
rs.movenext
loop
end if
response.write "</table>"
rs.close
set rs = nothing

fejlen ligger i denne linie:

    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på

intPage har vel heller ikke fået tildelt nogen værdi til at starte med!?

Du må mangle noget alá:

If Request.Querystring("page") = "" Then
    intPage = 1
End If

Altså i toppen...

takker for din hjælp dgp gider du at ligge et svar ?

Jo selvfølgelig, men fik du løst dit problem ?

ja det gjorde jeg &:-D det skulle køre nu.....