Kan ikke selv finde fejlen!!
Hej,Nu har jeg prøvet hele dagen at finde fejlen i denne kode men uden held ;( Nu er jeg ikke helt så hård til asp så håber virkelig nogle kan hjælpe så jeg kan komme videre..
Den skriver:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="top" ALIGN="center">
<%
intPage = Request.querystring("side")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tekst.mdb")
Set rs = Conn.Execute("select id, firmanavn, billede from referencer order by id Desc;")
strTal = 0
Do until rs.eof
if strTal = 3 Then
strTal = 0
response.write "</TR><TR VALIGN=""top"" ALIGN=""center"">"
end if
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
Response.Write "<TD><A HREF=""vis_reference.asp?id=" & rs("id") & """><IMG SRC=""referencer/" & rs("billede") & "li.gif"" BORDER=""0"" WIDTH=""168"" HEIGHT=""92"" ALIGN=""bottom"" ALT="""" style=""filter:alpha(opacity=80)"" name=""" & rs("id") & """ onMouseDown=""this.filters.alpha.opacity=90"" onMouseover=""this.filters.alpha.opacity=100"" onMouseout=""this.filters.alpha.opacity=80""><BR>" & rs("id") & "</A> " & rs("firmanavn") & "<BR><BR></TD>"
strTal = strTal + 1
intRecCount = intRecCount - 1
rs.movenext
loop
End if
rs.close
set rs = nothing
%>
</TR>
</TABLE><BR>
<%
Response.Write "<BR><BR><DIV STYLE=text-align:right><IMG SRC=../images/linie.gif BORDER=0 WIDTH=180 HEIGHT=1 ALIGN=bottom ALT=><BR><FONT STYLE=""font-size: 11px;"">Side <B>" & intPage & "</B> af <B>" & intPageCount & "</B> "
Response.Write "- </FONT>"
For intNum = 1 To intPageCount
Response.Write "<a href=kategori.asp?forumid=" & Request.QueryString("forumid") & "&side=" & intNum & " class=class>" & intNum & "</a> "
Next
Response.Write "<BR>"
If Clng(intPage) > 1 Then
Response.Write "<a href=kategori.asp?forumid=" & Request.QueryString("forumid") & "&side=" & intPage - 1 & "><IMG SRC=/images/tilbage.gif BORDER=0 WIDTH=42 HEIGHT=13 ALIGN=bottom ALT=></a>"
Else
Response.Write "<IMG SRC=/images/tilbage.gif BORDER=0 WIDTH=42 HEIGHT=13 ALIGN=bottom ALT=>"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=kategori.asp?forumid=" & Request.QueryString("forumid") & "&side=" & intPage + 1 & "><IMG SRC=/images/fremad.gif BORDER=0 WIDTH=42 HEIGHT=13 ALIGN=top ALT=></a> "
Else
Response.Write "<IMG SRC=/images/fremad.gif BORDER=0 WIDTH=42 HEIGHT=13 ALIGN=top ALT=>"
End If
%>
