contare i commenti da tabella

[zeweb]

vorrei contare i commenti relativi ad un ID contenuti in una tabella!


<%
'---Dichiarazione variabili
Dim SQL, RS, Num_Commenti
%>
<% SQL = " SELECT * FROM Commenti WHERE Codice = '"& QSID &"'"
QSID = Request.QueryString("ID")
Set RS = Conn.Execute(SQL)
RS.Open SQL, Conn, 1
Num_Commenti = RS.RecordCount
%>
<%=Num_Commenti%>

[Sypher]

Originariamente inviato da zeweb
vorrei contare i commenti relativi ad un ID contenuti in una tabella!


<%
'---Dichiarazione variabili
Dim SQL, RS, Num_Commenti
%>
<% SQL = " SELECT * FROM Commenti WHERE Codice = '"& QSID &"'"
QSID = Request.QueryString("ID")
Set RS = Conn.Execute(SQL)
RS.Open SQL, Conn, 1
Num_Commenti = RS.RecordCount
%>
<%=Num_Commenti%>

e allora? :master:

[zeweb]

scusami mi da questo errore !

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/shop/include/inc_commenti.asp, line 7

[zeweb]

nulla !

<%
'---Dichiarazione variabili
Dim SQL, RS, Num_Commenti
id = Request.QueryString("id")
%>
<% SQL = " SELECT * FROM Commenti where id = id "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn, 1
Num_Commenti = RS.RecordCount
%>
<%=Num_Commenti%>

errore :

Syntax error in string in query expression 'id = '76'.

/shop/include/inc_commenti.asp, line 8

[Sypher]

Originariamente inviato da zeweb
vorrei contare i commenti relativi ad un ID contenuti in una tabella!


<%
'---Dichiarazione variabili
Dim SQL, RS, Num_Commenti
%>
<%
QSID = Request.QueryString("ID")
SQL = " SELECT * FROM Commenti WHERE Codice = '"& QSID &"'"
Set RS = Conn.Execute(SQL)
RS.Open SQL, Conn, 1
Num_Commenti = RS.RecordCount
%>
<%=Num_Commenti%>

se codice è numerico togli gli apici!

[Shagrat]

<% 
'---Dichiarazione variabili 
Dim SQL, RS, Num_Commenti 
%> 
<% SQL = " SELECT * FROM Commenti WHERE Codice = '"& QSID &"'" 
QSID = Request.QueryString("ID") 
Set RS = Conn.Execute(SQL) 
RS.Open SQL, Conn, 1   
Num_Commenti = RS.RecordCount 
%> 
<%=Num_Commenti%>

questa cosa puzza fin qui da me

[zeweb]

cosa vuol dire che mi devo lavare ?

[Shagrat]

1)non dichiari che RS è un recordset

Set RS = server.CreateObject("ADODB.Recordset")

2)

Set RS = Conn.Execute(SQL)
RS.Open SQL, Conn, 1

gli fai fare 2 volte la stessa cosa...con i RS è meglio usare la seconda

RS.Open SQL,Conn

[Sypher]

Originariamente inviato da Shagrat

<% 
'---Dichiarazione variabili 
Dim SQL, RS, Num_Commenti 
%> 
<% SQL = " SELECT * FROM Commenti WHERE Codice = '"& QSID &"'" 
QSID = Request.QueryString("ID") 
Set RS = Conn.Execute(SQL) 
RS.Open SQL, Conn, 1   
Num_Commenti = RS.RecordCount 
%> 
<%=Num_Commenti%>

questa cosa puzza fin qui da me

[zeweb]

ho provato così ma mi legge (-1) ???

<% 
'---Dichiarazione variabili 
Dim ObjCOnn, strSQL, rs, Num_Commenti 
%> 
<% 
id=request.querystring("id") 

Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/_private/Tekshop.mdb") 
set rs=server.createobject("ADODB.Recordset") 
strSQL = "select * from Commenti where id = " & id
rs.Open strSQL, objConn 
Num_Commenti = RS.RecordCount 
%>
<%=Num_Commenti%>