Forum di Clotz...errori...

[gelova]

Ciao a tutti volendo aggiungere ad un sito un forum non molto complesso ho dato un'occhiata in giro per scovare qualche script già pronto (dato che ne capisco poco) e ho trovato il forum di Clotz che per un uso modesto va benissimo il link è questo:
http://www.webmasterpoint.org/script...128/Forum.html

l'ho provato ma ho notato che presenta dei bug ad esempio, quando si risponde ad una discussione e successivamente si risponde nuovamente, cliccando su link "Elenco argomenti" esce fuori questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'IDCategoria ='.

/forum4/forumclotz/selarg01.asp, line 7

ripeto non essendo un esperto ho guardato il file selarg01.asp ma sembra apposto.
Qualcuno di voi avrebbe la pazienza di provarlo e dirmi dove stà l'errore ?

Grazie !
p.s.
Io ho trovato questo script ma se qualcuno potrebbe consigliarmi qualche altro funzionante simile a questo mi farebbe cosa gradita (ho pure provato il snitz forum ma troppo complicato per le mi esigenze)

[Mems]

Nelle query SQL, se ad un campo di tipo numerico non viene passato alcun valore, allora ecco che la query va in errore.
Chi ha progettato il sito, non ha tenuto conto di questa eventualità, ovvero, che la pagina possa essere chiamata senza passare alcun valore via form o queryString da aggiungere a quella query. Manca il controllo che evita l'errore.

[gelova]

Mems saresti così gentile da dirmi quale controllo e dove devo inserirlo ?

[Mems]

Il problema è in questa pagina:
/forum4/forumclotz/selarg01.asp, line 7
La riga 7, appunto.
Vediamo il codice di questa pagina?

[gelova]

Eccolo:

Set rs = Server.CreateObject("ADODB.Recordset")

strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & request.querystring("ID") & " ORDER BY Data Desc"
rs.Open strSQL,cn
Set objID=rs("ID")
Set objArgomento=rs("Argomento")
Set objData=rs("Data")
Set objNick=rs("Nick")
Set 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
%>

[Mems]

Mi serve tutta la pagina.

[gelova]

Servito:

<%
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")

strSQL="SELECT * FROM QArgomento WHERE IDCategoria = " & request.querystring("ID") & " ORDER BY Data Desc"
rs.Open strSQL,cn
Set objID=rs("ID")
Set objArgomento=rs("Argomento")
Set objData=rs("Data")
Set objNick=rs("Nick")
Set 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
aggiornamento</font></td>
<td class="Testata" align="center"><font size="-1">N&deg; Risposte</font></td>
</tr>
<%
Do Until rs.EOF
if pari then
%>
<tr class="rigapari">
<%else%>
<tr class="rigadispari">
<%end if%>

<td>&ID=<%=objID%>&argomento=<%=replace(objArgoment o," ","%20")%>"><%=objArgomento%></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
Set cn = nothing
Set rs = nothing
%>

[Mems]

Copia tale e quale l'intero codice.

<%
Set cn = Server.CreateObject("ADODB.Connection")
%>

<%
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
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> &ID=<%=objID%>&argomento=<%=replace(objArgomento," ","%20")%>"><%=objArgomento%></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
%>

[gelova]

Ok ! Non dà + errore solo che non va alla categoria "Elenco argomento" ma appare questo messaggio:
Spiacente, non e' stato specificato un parametro valido.

[Mems]

In tutti i casi appare quel messaggio?
Quel messaggio dovrebbe apparire quando nella url manca il valore numerico ID della categoria da selezionare.