If objrs.EOF con virgolette?

[WSIWebMaster]

Saluti.

In una pagina ho questo codice

	  Dim MyDB
      MyDB = "/welcome/mdb-database/welcome.mdb"

	  Dim objConn, objRs
	  Set objConn = Server.CreateObject("ADODB.Connection")
	  Set objRs = Server.CreateObject("ADODB.Recordset")
	  objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(MyDB)

	  i = 1
	  reg = i
	  
	  Do while i <= 20

	  objRs.Open "SELECT * FROM centri where idregione = " & reg & "", objConn, 3, 3
	  
	  If ojrs.EOF Then 	 
 
	  response.write("cippa")
  
	  Else
	  
	  response.write(CentroRegione(i) & ":
")
	  
	  Do while Not objrs.eof
	  
	  response.write(objrs("centro") & "
")

      Loop
	  
	  End If
  
	  response.write("
")
	  i= i+1
	  
	  objrs.Close
	  Reg = nothing
	  	  
	  Loop

Purtroppo, però, quando eseguo la pagina, mi da come errore che, alla riga segnata in rosso, mangano delle virgolette... perché?!

[optime]

al solito - come dice robbby - il regolamento è un semplice soprammobile. aggiungo la mia standing ovation standard per il titolo del thread.

[maximum]

Se idRegione non è stringa puoi fare così:

objRs.Open "SELECT * FROM centri where idregione = " & reg, objConn, 3, 3

[WSIWebMaster]

Originariamente inviato da optime
al solito - come dice robbby - il regolamento è un semplice soprammobile. aggiungo la mia standing ovation standard per il titolo del thread.

Ho letto e modificato...

[WSIWebMaster]

Originariamente inviato da maximum
Se idRegione non è stringa puoi fare così:

objRs.Open "SELECT * FROM centri where idregione = " & reg, objConn, 3, 3

Continua però a riferirmi lo stesso errore.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/welcome/new/centers.asp, line 137

La linea in questione è quella che contiene If objrs.EOF Then

[maximum]

Prova così:

Dim MyDB
MyDB = "/welcome/mdb-database/welcome.mdb"

Dim objConn, objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(MyDB)

i = 1
reg = i
	  
Do while i <= 20

     objRs.Open "SELECT * FROM centri where idregione = " & reg, objConn, 3, 3
	  
     If ojrs.EOF Then 	 
 
        response.write("cippa")
  
      Else
	  
        response.write(CentroRegione(i) & ":
")
	  
        Do while Not objrs.eof
	  
             response.write(objrs("centro") & "
")

        Loop
	  
      End If
  
      response.write("
")
      i= i+1
	  
Loop

objrs.Close
Reg = nothing

[WSIWebMaster]

Chiedo scusa se ho occupato la mattinata con ste

Mi ero dimenticato una b.

[maximum]

Una che!?

[WSIWebMaster]

Una "b", la lettera... nel codice ho scritto "ojrs.EOF" invece di "objrs.EOF"...

[WSIWebMaster]

Credo che però approfitterò ancora di voi.

Ora il codice funziona correttamente, ma c'è un altro problema.

All'inizio mi dava un problema di buffering.

Ho aggiunto alla pagina <%response.buffer=false%> e adesso la pagina resta in caricamento all'infinito.

Il codice corretto è questo:

	  Dim MyDB
      MyDB = "/welcome/mdb-database/welcome.mdb"

	  Dim objConn, objRs
	  Set objConn = Server.CreateObject("ADODB.Connection")
	  Set objRs = Server.CreateObject("ADODB.Recordset")
	  objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(MyDB)

	  i = 1
	  
	  Do while i <= 20
	  reg = i

	  objRs.Open "SELECT * FROM centri where idregione = " & reg, objConn, 3, 3
	  
	  If objrs.EOF Then
	  
	  response.write("cippa")
  
	  Else
	  
	  response.write(CentroRegione(reg) & ":
")
	  
	  Do while Not objrs.eof
	  
	  response.write(objrs("centro") & "
")

      Loop
	  
	  End If
  
	  response.write("
")
	  i= i+1
	  
	  objrs.Close
	  	  
	  Loop
  
	  Objrs = Nothing
	  objconn.Close
	  objconn = Nothing

E l'errore mostrato:

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/welcome/new/centers.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

A cosa potrebbe essere dovuto questo nuovo problema?