0

メニューのネストされたループを作成しようとしていますが、エラーが返されます。誰かがこの問題を解決するのを手伝ってくれませんか。または、ループがどこで失敗したかを特定することさえできます。

Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/asp/default.asp, line 64
loop until RS.EOF

コード

msql = "SELECT * FROM tblMenu ORDER BY [link_position] ASC"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSsub = Server.CreateObject("ADODB.Recordset")
RS.Open msql, Conn, 1,3
RSsub.Open msql

If Not RS.EOF Then
    Do
        Response.Write "<li><a href="""& RS("link")&""" title ="""& RS("link_title")&""">"& RS("link_name") &"</a>"

        If NOT RSsub.EOF Then
            Response.Write("<ul>" & vbcrlf)
            Do While NOT RSsub.EOF
                Response.Write(RSsub("sub_menu") & vbcrlf)
                RSsub.MoveNext
            Loop
            Response.Write("</ul>" & vbcrlf)
            RSsub.Close

            Response.Write("</li>" & vbcrlf)        
            RS.MoveNext
    loop until RS.EOF
End if

期待される出力

<li><a href="some-link" title="">Record from DB</a>
    <ul>
        <li><a href="some-link">Records from DB</a></li>
    </ul>
</li>
4

2 に答える 2

4

に行方不明End IfですIf NOT RSsub.EOF Then。

于 2013-06-29T06:06:57.207 に答える