Legolas io ho scritto così:

<%
ID = request.queryString("ID")

if len(ID) > 0 and isNumeric(ID) then
Set rs = Server.CreateObject("ADODB.Recordset")
if isnumeric(trim(request.querystring("ID") )) Then
'esegui query

strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & ID & " ORDER BY Data Desc"
rs.Open strSQL,cn
objID = rs("ID")
objArgomento = rs("Argomento")
objData = rs("Data")
objNick = rs("Nick")
objnRisp = rs("nRisp")
    if rs.EOF then 
        response.write("<h3>Spiacente, non e' stata fatta nessuna richiesta per questo argomento.</h3>")
    else
        dim pari 'booleano per identificare se siamo in una riga pari o in una dispari
    pari = false
end if

%>

non ho messo :

else
'eventuale messaggio di errore

perchè vi era già

Dimmi solo se va bene

<%
ID = request.queryString("ID")

if len(ID) > 0 and isNumeric(ID) then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & ID & " ORDER BY Data Desc"
rs.Open strSQL,cn
objID = rs("ID")
objArgomento = rs("Argomento")
objData = rs("Data")
objNick = rs("Nick")
objnRisp = rs("nRisp")
if rs.EOF then
response.write("<h3>Spiacente, non e' stata fatta nessuna richiesta per questo argomento.</h3>")
else
dim pari 'booleano per identificare se siamo in una riga pari o in una dispari
pari = false
end if
End If
%>

Continua a darmi errore alla linea 58 cioè questo:

Microsoft VBScript compilation  error '800a0400' 
 Expected statement 
 /forum3/selarg01.asp, line 58 
end if
^

Questa è la pag selarg01.asp

<%
Set cn = Server.CreateObject("ADODB.Connection")
%>
<!--#include file="frmOpencn.asp"-->
<%
ID = request.queryString("ID")

if len(ID) > 0 and isNumeric(ID) then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & ID & " ORDER BY Data Desc"
rs.Open strSQL,cn
objID = rs("ID")
objArgomento = rs("Argomento")
objData = rs("Data")
objNick = rs("Nick")
objnRisp = rs("nRisp")
if rs.EOF then
response.write("<h3>Spiacente, non e' stata fatta nessuna richiesta per questo argomento.</h3>")
else
dim pari 'booleano per identificare se siamo in una riga pari o in una dispari
pari = false
end if
End If
%>
    <table width="100%" cellpadding="1">
        <tr align="left">
            <td class="Testata"> Messaggio</td>
            <td class="Testata" align="center">Proposto da</td>
            <td class="Testata" align="center"><font size="-1"> Ultimo<br>aggiornamento</font></td>
            <td class="Testata" align="center"><font size="-1">N° Risposte</font></td> 
        </tr>
    <% 
        Do Until rs.EOF 
            if pari then
    %> 
            <tr class="rigapari">
    <%
            else
    %>
            <tr class="rigadispari">
    <%
            end if
    %>
            <td> <a href="msg01.asp?catID=<%=request.querystring("ID")%>&ID=<%=objID%>&argomento=<%=replace(objArgomento," ","%20")%>"><%=objArgomento%></a></td>
            <td align="center"><%=objNick%></td>
            <td align="center"><%= objData%></td>
            <td align="center"><%= objnRisp-1%></td> 
        </tr>
    
    <% 
    pari = not pari ' inverto il valore della variabile booleana
    
    rs.movenext 
    loop
    %>
    </table>
    <% 
        end if 
    rs.close
    Set rs = nothing
else
    response.write("<h3>Spiacente, non e' stato specificato un parametro valido.</h3>")
end if
cn.close
Set cn = nothing
%>

<%
Set cn = Server.CreateObject("ADODB.Connection")
%>
<!--#include file="frmOpencn.asp"-->
<%
ID = request.queryString("ID")

if len(ID) > 0 and isNumeric(ID) then
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & ID & " ORDER BY Data Desc"
    rs.Open strSQL,cn
    objID = rs("ID")
    objArgomento = rs("Argomento")
    objData = rs("Data")
    objNick = rs("Nick")
    objnRisp = rs("nRisp")
    if rs.EOF then
        response.write("<h3>Spiacente, non e' stata fatta nessuna richiesta per questo argomento.</h3>")
    else
        dim pari 'booleano per identificare se siamo in una riga pari o in una dispari
        pari = false
%>
    <table width="100%" cellpadding="1">
        <tr align="left">
            <td class="Testata"> Messaggio</td>
            <td class="Testata" align="center">Proposto da</td>
            <td class="Testata" align="center"><font size="-1"> Ultimo<br>aggiornamento</font></td>
            <td class="Testata" align="center"><font size="-1">N° Risposte</font></td> 
        </tr>
<% 
    Do Until rs.EOF 
        if pari then
%> 
        <tr class="rigapari">
<%
        else
%>
        <tr class="rigadispari">
<%
        end if
%>
            <td> <a href="msg01.asp?catID=<%=request.querystring("ID")%>&ID=<%=objID%>&argomento=<%=replace(objArgomento,"20")%>"><%=objArgomento%></a></td>
            <td align="center"><%=objNick%></td>
            <td align="center"><%= objData%></td>
            <td align="center"><%= objnRisp-1%></td> 
        </tr>
    
<% 
        pari = not pari ' inverto il valore della variabile booleana
    
        rs.movenext 
    loop
%>
    </table>
<% 
    end if 
    rs.close
    Set rs = nothing
else
    response.write("<h3>Spiacente, non e' stato specificato un parametro valido.</h3>")
end if
cn.close
Set cn = nothing
%>

Mi dà ancora errore questa volta qui:

<td> <a href="msg01.asp?catID=<%=request.querystring("ID")%>&ID=<%=objID%>&argomento=<%=replace(objArgomento,"20")%>"><%=objArgomento%></a></td>
            <td align="center"><%=objNick%></td>
            <td align="center"><%= objData%></td>
            <td align="center"><%= objnRisp-1%></td> 
        </tr>

replace(objArgomento,"20")

la funzione replace vuole tre parametri obbligatori:

i parametri indicati tra parentesi sono opzionali
Replace(stringa, trova, sostituisci, (inizio), (conta), (tipoConfronto))

Legolas apprezzo tantissimo i tuoi sforzi ma di ASP sono zero e credo che questo script dovrebbe essere controllato da cima a fondo perchè mi sà che fa acqua da tutte le parti, per evitarti ulteriori "appallamenti" vorrei chiederti se conosci qualche script simile ma funzionante che posso tranquillamente utilizzare senza sbattermi la testa (purchè non si tratti delo Snitz forum xchè è complicatissimo ).
La mia esigenza è quella di inserire in un sito una sezione tipo " L'esperto risponde " e quindi molto simile ad un forum, questo script era l'ideale ma evidentemente soffre ancora di qualche bug !
Grazie ancora Legolas !

io sono per il "fai da te" perchè è molto più semplice e gratificante.

Comunque l'unico forum che mi viene in mente è proprio lo snitz, che personalmente non reputo complicato, se non ricordo male basta setare i percorsi del db efa tutto il resto da solo o quasi