Stampa dati a video

[tatiana_s]

Ciao a Tutti!
con l'aiuto di Roby (cioè l'ha fatto proprio lui!) sono riuscita a incrementare i click che vengono effettuati su ogni singolo prodotto!

Ora, sto cercando di prelevare i dati dal DB, Prendere i 5 prodotti con più click e stamparli a video,

Ma sono una frana in asp!

Ho provato a fare questo, ma mi da errore:

<%
Dim cn,ADODB

Set Conn = Server.CreateObject("ADODB.Connection")
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/ecom.mdb") & ";Persist Security Info = False" 
Conn.open StrConnect

sql = "SELECT TOP 5 click FROM Prodotti ORDER BY click DESC"
Set RS= Conn.Execute("ADODB.Recordset")
rs.Open sql, cn, 3, 3


 '---Assegno e stampo a video
	do while not(rs.eof)
		ID = RS("ID")
		Prodotto = RS("Prodotto")
		response.write(objRs("Prodotto") & objRs("id"))
		%>
<%
rs.movenext
loop
' Chiudo il RecordSet ed il relativo database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

questo è l'errore:
Microsoft JET Database Engine error '80040e14'

Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

/shop/include/inc_venduti.asp, line 9

Mi potete dare una mano a capire dove sbaglio!!!

Grazie a tutti

[fraude]

sql = "SELECT TOP 5 FROM Prodotti ORDER BY click DESC

[tatiana_s]

Originariamente inviato da fraude

sql = "SELECT TOP 5 FROM Prodotti ORDER BY click DESC

Scusami ma cosa intendi dirmi che l'errore è qui???

[Roby_72]

<%
Dim cn,ADODB

Set Conn = Server.CreateObject("ADODB.Connection")
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/ecom.mdb") & ";Persist Security Info = False" 
Conn.open StrConnect

sql = "SELECT TOP 5 * FROM Prodotti ORDER BY click DESC"
Set RS= Conn.Execute("ADODB.Recordset")
rs.Open sql, cn, 3, 3
do while not(rs.eof)
	ID = RS("ID")
	Prodotto = RS("Prodotto")
	response.write(objRs("Prodotto") &"("& objRs("click") &")
")
rs.movenext
loop
' Chiudo il RecordSet ed il relativo database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

Roby

[tatiana_s]

Grazie ancora dell'aiuto Roby
Purtroppo mi da ancora errore:

Microsoft VBScript runtime error '800a000d' 

Type mismatch 

/shop/include/inc_venduti.asp, line 14

ho modificato così:

<%
Dim cn,ADODB, ID, Prodotto, objRs

Set Conn = Server.CreateObject("ADODB.Connection")
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/ecom.mdb") & ";Persist Security Info = False" 
Conn.open StrConnect

sql = "SELECT TOP 5 * FROM Prodotti ORDER BY click DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
	ID = RS("ID")
	Prodotto = RS("Prodotto")
	response.write(objRs("Prodotto") &"("& objRs("click") &")
")
rs.movenext
loop
' Chiudo il RecordSet ed il relativo database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

Sai suggerirmi qualcosa?

Ho fatto dei piccoli passi in avanti anche grazie a te.

[Roby_72]

La riga 14????

Roby

[Roby_72]

response.write(Rs("Prodotto") &"("& Rs("click") &")
")

Roby

[tatiana_s]

Originariamente inviato da Roby_72
La riga 14????

Roby

Si scusami eccola:

	Prodotto = RS("Prodotto")
	response.write(objRs("Prodotto") &"("& objRs("click") &")
") rs.movenext

[Roby_72]

do while not(rs.eof)
prodotto = RS("prodotto")
click = rs("click")
response.write(Prodotto &" ("& click &")
")
rs.movenext

Roby

[tatiana_s]

Tutto OK,

Ultima cosa x inserire il link come faccio?

Grazie 1000000000