ragazzi sapreste aiutarmi non riesco a capire dov'è l'errore:


mi da costante stringa senza terminazione

<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")

'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

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

nometabella= "news"

SQL = "select * from "& nometabella &""

'apro il rs
rs.Open sql, objConn
stringa = ""
do until rs.eof

For Each campo in rs.Fields
if not (campo.name = "id") then
'non stampa i campi non richiesti
stringa = stringa & campo &""
end if
next

rs.movenext
loop

'chiudo tutto
rs.close
set rs=nothing

objConn.close

grazie


set objconn=nothing
%>