Hvad betyder det ?? (loop)

Du har et eller andet Do et sted på siden... og så kan du evt. smække Loop på der hvor den skal loop\'e til

et forventet loop, hvad er linje 122.

du mangler et loop i enden af dit script - du har garanteret en \"do while\" el. lign tidligere i dit script

hmm noget kode?

det kunne tyde på du måske har sat en Do while igang uden at afslutte den med Loop

/nuno

linje 122    set Conn = nothing

Scripten:
<%
    dim mode, albumid, ringetoneid, land
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"test.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
            <%

    strSQL = \"SELECT * From album Where land = \" & session(\"lid\") & \" ORDER by id desc\"
    Set rs = myConn.Execute(strSQL)   
    do while not rs.eof
        %>



    <table border=\"0\" width=500>

    <%
    Do while NOT rs.EOF
    ColNum = 1
    Do while ColNum < 3
   
    %>   

               
    <TD ALIGN=LEFT VALIGN=top WIDTH=\"250\" height=\"19\"><font face=\"Verdana\" size=3><b><a href=\"album.asp?land=<%= rs(\"land\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"land\")%>
      </a></b></font>
      <%
            ID = rs(\"id\")
            response.write rs(\"id\")
            response.end
           
            sqlcount = \"SELECT * FROM land where id=\" & rs(\"id\") & \"\"
Set RScounts = Conn.Execute(sqlcount)

rcounts = RScounts(0)
Response.Write (\"(\" & rcounts & \")\")
Response.Write \"<br>\"
        subsql = \"SELECT  top 3 * FROM albumnavn where landID=\'\" & ID & \"\' order by albumnavn\"
   
      set rsalbumnavn = conn.Execute(subsql)
count = rsalbumnavn.RecordCount
count = 1
      do while not rsalbumnavn.EOF and count<=3           
           
            %>
      <font face=\"Verdana\" size=1><a href=\"melodi.asp?album=<%= rs(\"albumnavn\") %>&aid=<%= rs(\"id\") %>\"><%=rsalbumnavn(\"albumnavn\")%></a></font>
      <%
           
            rsalbum.movenext
            loop
           
            %>
    </TD>
           
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>

    <TD ALIGN=LEFT VALIGN=top WIDTH=\"250\" height=\"19\"><font face=\"Verdana\" size=3><b><a href=\"album.asp?land=<%= rs(\"land\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"land\")%>
      </a></b></font>
            <%
            ID = rs(\"id\")
            response.write rs(\"id\")
            response.end
           
            sqlcount = \"SELECT * FROM land where id=\" & rs(\"id\") & \"\"
Set RScounts = Conn.Execute(sqlcount)

rcounts = RScounts(0)
Response.Write (\"(\" & rcounts & \")\")
Response.Write \"<br>\"
        subsql = \"SELECT  top 3 * FROM albumnavn where landID=\'\" & ID & \"\' order by albumnavn\"
   
      set rsalbumnavn = conn.Execute(subsql)
count = rsalbumnavn.RecordCount
count = 1
      do while not rsalbumnavn.EOF and count<=3           
           
            %>
      <font face=\"Verdana\" size=1><a href=\"melodi.asp?album=<%= rs(\"albumnavn\") %>&aid=<%= rs(\"id\") %>\"><%=rsalbumnavn(\"albumnavn\")%></a></font>
      <%
           
            rsalbumnavn.movenext
            loop
           
            %>
    </TD>
<%
end if
ColNum = ColNum + 1
Loop
%>

    </TR>

   

<%
if NOT rs.EOF then 
rs.MoveNext 
end if
Loop
%>

    </TABLE>
   
    <% rs.close
    Conn.Close
    set Conn = nothing
    %>

</body>
</html>

.

..og husk kun at oprette sp. éen gang ;)