Originariamente inviato da Fool
Ho il codice
<font face="Verdana" size="2">ELENCO DELLE DISCUSSIONI NEL FORUM
<%
dim id, titolo, ModeratoreForum
id = Request.QueryString("id")
forum = Request.QueryString("Titolo")
ModeratoreForum=Session("ModeratoreForum")
SQL="SELECT * FROM ElencoDiscussioni WHERE Rilievo<>1 AND Forum = '" & id & "'"
Set rec = Server.CreateObject("ADODB.Recordset")
Set rec=objConn.Execute(SQL)
%>
<%
SQL2="SELECT * FROM ElencoForum WHERE ID = '" & id & "'"
Set rec2 = Server.CreateObject("ADODB.Recordset")
Set rec2=objConn.Execute(SQL2)
%>
iTell Forum > <%=rec2("Titolo")%>
</font>
<font face="Verdana" size="1">( Moderatori
<%=rec2("Moderatore")%> )
</font>
<font face="Verdana" size="2">
</font>
<table border="1" width="100%" cellspacing="0" cellpadding="3" style="border-collapse: collapse" bordercolor="blue" id="table1">
<tr>
<td align="center" height="25" width="157" bgcolor="#0000FF">
<font face="Verdana" size="1" color="#FFFFFF">
Stato</font></td>
<td align="center" height="25" bgcolor="#0000FF">
<font face="Verdana" size="1" color="#FFFFFF">
Titolo</font></td>
<td align="center" height="25" width="126" bgcolor="#0000FF">
<font face="Verdana" size="1" color="#FFFFFF">Data</font></td>
<td align="center" height="25" width="274" bgcolor="#0000FF">
<font face="Verdana" size="1" color="#FFFFFF">Autore</font></td>
<% if ModeratoreForum=1 then %>
<td align="center" height="25" width="184" bgcolor="#0000FF">
<font face="Verdana" size="1" color="#FFFFFF">Mod.</font></td>
<% end if %>
</tr>
<%
if rec.EOF then
%>
<center>
<font face="Verdana" size="2">
Nessuna discussione aperta
</font>
</center>
<%
end if
SQL3="SELECT * FROM ElencoForum WHERE Rilievo='1' AND ID = '" & id & "'"
Set rec3 = Server.CreateObject("ADODB.Recordset")
Set rec3=objConn.Execute(SQL2)
if rec3.EOF then
do while not(rec3.eof) %>
<tr>
<td width="157">
<font face="Verdana" size="2">
</font>
</td>
<td>In rilievo: <a href="LeggiDiscussione.asp?id=<%=rec3("IDDiscussio ne")%>&Titolo=<%=rec3("Titolo")%>">
<font face="Verdana" size="2"><%=rec3("Titolo")%></font></td>
<td width="126"><%=rec3("data")%></td>
<td width="274"><font face="Verdana" size="2"><%=rec3("Autore")%></font></td>
<% if ModeratoreForum=1 then %>
<td width="184"><font size="1" face="Verdana"><a href=ModCancella.asp?id=<%=rec3("IDDiscussione")%> &Forum=<%=id%>>Cancella</a> - Sposta - Modifica</font></td>
<% end if %>
</tr>
<% rec3.movenext
loop
end if
%>
<%
do while not(rec.eof) %>
<tr>
<td width="157">
<font face="Verdana" size="2">
</font>
</td>
<td><a href="LeggiDiscussione.asp?id=<%=rec("IDDiscussion e")%>&Titolo=<%=rec("Titolo")%>&Forum=<%=forum% >">
<font face="Verdana" size="2"><%=rec("Titolo")%></font></td>
<td width="126"><%=rec("data")%></td>
<td width="274"><font face="Verdana" size="2"><%=rec("Autore")%></font></td>
<% if ModeratoreForum=1 then %>
<td width="184"><font size="1" face="Verdana"><a href=ModCancella.asp?id=<%=rec("IDDiscussione")%>& Forum=<%=id%>>Cancella</a> - Sposta - Modifica</font></td>
<% end if %>
</tr>
<% rec.movenext
loop
%>
</table>
<font face="Verdana" size="1">Lancia una nuova discussione</font></p>
pero non funge
Dovrebbe prima fare un ciclo e visualizzare le discussioni con rilievo = 1 e dopo tutte le altre...
mi date una mano?