Formula restituisce errore

[fraude]

Ciao perchè questa formula restituisce:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement

set rs = server.createObject("ADODB.Recordset")
rs.open sql, ConnDown, 1, 3
nRs = rs.RecordCount  

response.write nRs &"
"

formula = (9 * nRS) / 10
response.write formula

[Roby_72]

Sicuro sia lì l'errore'

Roby

[fraude]

errore sulla riga 26, che è:

formula = (9 * nRS) / 10

Expected statement

[Roby_72]

response.write nRs:response.end &"
"

Che dice questa?

Roby

[fraude]

restituisce sulla riga:

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error

escludendo la formula il codice funziona e mi stampa a video il numero dei records estratti.

[Roby_72]

mmmm

[Roby_72]

Prova a togliere le parentesi tanto non servono...
Però mi sembra strana sta cosa.

Roby

[fraude]

posto il code completo forse l'errore è da un'altra parte...:

 <%

Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"dbase.mdb")

SQL = "SELECT valore FROM tabella order by valore asc" 

set rs = server.createObject("ADODB.Recordset")
rs.open sql, ConnDown, 1, 3
nRs = rs.RecordCount  

if rs.eof then
response.write ("<center>
Non risultano al momento records da consultare per il valore selezionato.</center>") & "
"
else
While Not rs.eof	
valore = rs("valore")
response.write valore &"
"
rs.MoveNext
wend
end if

response.write nRs

formula = 9 * nRS / 10
response.write formula &"
"

rs.Close
ConnDown.Close

Set rs = Nothing
Set ConnDown = Nothing

%>

[Roby_72]

Fai un po' di debug riga per riga...
Io, sarà l'ora, ma l'errore non lo vedo.

Roby

[fraude]

trovato... :

set rs = server.createObject("ADODB.Recordset")
rs.open sql, ConnDown, 1, 3
nRs = rs.RecordCount  
response.write nRs &"
"

if rs.eof then
response.write ("<center>
Non risultano al momento records da consultare per il valore selezionato.</center>") & "
"
else
While Not rs.eof	
valore = rs("valore")
response.write valore &"
"
rs.MoveNext
wend
end if

formula = (9 * nRs) / 10
response.write formula &"
"

rs.Close
ConnDown.Close

Set rs = Nothing
Set ConnDown = Nothing