Oprettelse af tabel til håndtering af mine records

Eks:

response.write "<table>"
maxColPrRow = 4
colPrRow = 0
do while not rs.EOF
  if colPrRow = 0 then Response.Write "<tr>"
  Response.Write "<td>"
'UDSKRIV thumpnail her
      %>
        <A HREF="java script:popUp('billede_popup4.asp?id= <%= rs("ID") %>',700,400);"><IMG SRC="<% = rs("thumbnail") %>" BORDER="0"></A>
        <%

  Response.Write "</td>"
  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
 
  rs.MoveNext
loop
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"

Får en intern server fejl, men prøver lige at tilpasse lidt...

hvad er forskellen på Wend og loop?

loop høre til

do while not rs.EOF


Wend høre til

while not rs.EOF

Har lige prøvet at rode lidt... Har du nogen forslag til hvad fejlen kan skyldes?

Nej, den fejl kan betyde alt mellem himmel og jord. Prøv i IE at slå denne fra:
funktioner -> internetindstillinger -> avanceret -> fjern kryds i "ved meddelelse om uskadelige http-fejl"

Så skulle du gerne få en bedre fejl kode..
Eller prøv at vise den del af koden som du har lavet om i..

Det hjalp: Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/picturetest1.asp, line 180

Får denne fejl - måske du lige kunne hjælpe med at rette fejlen der... Kode følger.

Nu kommer der lige en masse kode, men linie 180 er den sidste der slutter med end if

response.write "<table>"
maxColPrRow = 4
colPrRow = 0
do while not rs.EOF
  if colPrRow = 0 then Response.Write "<tr>"
  Response.Write "<td>"
'UDSKRIV thumpnail her
      %>
        <A HREF="java script:popUp('billede_popup4.asp?id= <%= rs("ID") %>',700,400);"><IMG SRC="<% = rs("thumbnail") %>" BORDER="0"></A>
        <%

  Response.Write "</td>"
  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
 
  rs.MoveNext
loop
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"
   
    'Display Paging Buttons
                Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
                    ' Display <<
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
                        Response.Write(vbcr & "<td align=center class='text'><b>")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & "<input type=submit value=' << Første  ' style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' << Første  ' style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display <
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
                        Response.Write(vbcr & "<td align=center><b>")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & "<input type=submit value=' < Tilbage  ' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}' DISABLED><input type=hidden name=PageTo value=1>")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' < Tilbage  ' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}'>")
                            Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
                        End If
                       
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display >
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & "<input type=submit value='  Næste >' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
                        Else
                            Response.Write(vbcr & "<input type=submit value='  Næste >' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}'>")
                            Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display >>
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{solid; border-color:#FFF6F2; background-color:#FFF6F2; border-width: 1px; font: 10px tahoma; size='18'}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    Response.Write("</tr>")
                    Response.Write("<tr>")
                        Response.Write("<td colspan=4 align=center><b class='text'>Side </b><b class='text'>" &  nPageTo & "</b><b class='text'>/</b><b class='text'>" & RS.PageCount & "</b>")
                        Response.Write("</td>")
                    Response.Write("</tr>")
                    Response.Write("</table>")
end if

Har du en linie som begynder med

while xxxxxxx  ?

Denne her:    While not RS.EOF and nRowCount > 0

Ved at skrive sådan til sidst:
end if
wend
end if

Åbner min side men der kommer denne fejl:


ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/picturetest1.asp, line 83

Arh så du har også paging på siden?

Så prøv at rette :

do while not rs.EOF

Til:
While not RS.EOF and nRowCount > 0


Og ret:

rs.MoveNext
loop

Til dette:

        nRowCount = nRowCount - 1
        RS.MoveNext
    Wend

Denne fejl: Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/picturetest1.asp, line 182

Prøv at rette de øverste fra:

response.write "<table>"
maxColPrRow = 4
colPrRow = 0
do while not rs.EOF
  if colPrRow = 0 then Response.Write "<tr>"
  Response.Write "<td>"
'UDSKRIV thumpnail her
      %>
        <A HREF="java script:popUp('billede_popup4.asp?id= <%= rs("ID") %>',700,400);"><IMG SRC="<% = rs("thumbnail") %>" BORDER="0"></A>
        <%

  Response.Write "</td>"
  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
 
  rs.MoveNext
loop
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"


Til...:

response.write "<table>"
maxColPrRow = 4
colPrRow = 0
While not RS.EOF and nRowCount > 0
  if colPrRow = 0 then Response.Write "<tr>"
  Response.Write "<td>"
'UDSKRIV thumpnail her
      %>
        <A HREF="java script:popUp('billede_popup4.asp?id= <%= rs("ID") %>',700,400);"><IMG SRC="<% = rs("thumbnail") %>" BORDER="0"></A>
        <%

  Response.Write "</td>"
  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
  nRowCount = nRowCount - 1
  rs.MoveNext
Wend
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"

Denne fejl: Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/picturetest1.asp, line 185

Det er den sidste linie - end if
Forresten tusind tak for hjælpen, jeg ligger det på hylden for idag, men genoptager arbejdet i morgen. Hvis du har lyst har jeg lagt hele koden til filen på http://www.kunop.dk/udskriv.doc - så kan det være det bliver lettere at løse.

Mvh. Kenneth

Efter linien:

    nRowCount = RS.PageSize


Har du denne linie,
    While not RS.EOF and nRowCount > 0

Prøv at fjerne den.

Jeg er nød til at smutte for idag..Jeg håber du kommer vidre med det.

--->Eagleeye - Den kode du forslog først virker, hvis jeg fjerner paging fra min kode. Du vidste jo ikke, at jeg brugte paging, så det får du point for. Nu ser jeg, om jeg kan tilpasse paging til udskriften, så jeg også kan få løst det problem! Ellers er der nok ikke nogen vej udenom, at jeg snart opretter et nyt spørgsmål omkring paging, men jeg undersøger lige sagen.

Tak for hjælpen