提示错误如下：



<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
    <%
    dim rs,strsql20,rs2,strsql21,grid
    set rs=Server.CreateObject("ADODB.RecordSet")
    strSql20 = "Select * From [Groups]  Order by GroupID "
    rs.open strSql20,conn,3,3    
    
do while not(rs.eof or err)
    grid = cint(rs("GroupID"))
     response.Write("<li><strong><a href=de.asp?GroupID="&rs("GroupID")&">"&rs("GroupName")&"</a></strong></li>")
    response.write(grid)    
    
    strsql21= "Select * From [Forums] Where GroupID='grid'"
    Set rs2=Conn2.Execute(strSql21)
    do  while not (rs2.eof or err)
            response.Write("<br>????<a href=ShowForum.asp?ForumID="&rs2("ForumID")&">"&rs2("ForumName")&"</a>")
    
        rs2.movenext
         loop
    
    rs.movenext
loop
%>
  
   </table>

[[it] 本帖最后由 kkyu 于 2008-4-17 22:35 编辑 [/it]]

strsql21= "Select * From [Forums] Where GroupID='grid'"
改成
strsql21= "Select * From [Forums] Where GroupID="&grid
试一下