Funzioni per Connessione

[minnie71]

ho rifatto tutte le pagine iniziali, ma da sempre lo stesso errore.
GLOBAL.ASA
Sub Session_OnStart
application("connection_string")="Provider=Microso ft.Jet.OLEDB.4.0; Data Source=C:/Inetpub/wwwroot/GestioneVendite/DB/GestioneVendite.mdb"
application("UtentiConnessi")=Application("UtentiC onnessi") + 1
End Sub
Sub Application_OnStart
Session("login")=0
Session("sApp")=0
Session("ID_Utente")=0
Session("Totale")=0
End Sub
-----------------------------------
database.inc in cartella includes
Function OpenDataBase()
Dim connection_string
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
connection_string = Application("connection_string")
objConn.Open(connection_string)
End Function
Function CloseDataBase()
objRs.Close
Set objRs = Nothing
objConn.Close
set objConn = Nothing
End Function

Secondo te è giusto?

Se ho dei link che vanno a delle pagine che non ho ancora ricopiato nel prg new ma non le ho cliccate, non dovrebbe dare il problema giusto? io sono ancora alla HP!!!

[minnie71]

Ciao,
sono riuscita a risolvere la connessione, ma adesso mi da un problema sulla Fx che esegue le SELECT:
Function ExecuteSelect(sQuery)
Dim oRS
Dim sError
Dim Redirect
Dim objConn
On Error Resume Next
Set oRS = objConn.Execute(sQuery)
' If Err.Number <> 0 Then
' CloseDatabase
' sError = Err.Description
' sError = Server.URLEncode (sError)
' sQuery = Server.URLEncode (sQuery)
' Err.Clear
' Redirect = Session("PATH_ERRORE") & "Errata_Query.asp?Error=" & sError & "&Query=" & sQuery
' Response.Redirect Redirect
' End If
Set ExecuteSelect = oRS
End Function
Come errore mi da:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: '[undefined]'
/GestioneVendite/Lista_Offerte.asp, line 12
la select è giusta:
Dim sSQL
OpenDataBase()
'Creo Oggetto RecordSet
Set objRs = Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM Tab_Articoli WHERE Art_Canc='No' AND Art_Offerta='Si' order by Art_Categ"
'Eseguo la Query
Set objRs = ExecuteSelect(sSQL)
Che errore ha?

[Roby_72]

Non capisco bene l'utilità della funzione ma forse dovresti solo scrivere così dopo la query:

ExecuteSelect(sSQL)

perché è dentro la funzione che esegui il comendo vero e proprio.

Roby

[minnie71]

Ti spiego: mi hanno dato degli esempi da studiare.
Ho il Global.asa che scrive il path del db.mdb, un file.inc che contiene delle Fx tra cui Open/Close Db e le Fx di Select e di Variazione come Insert/Update/Delete.
Sto cercando di adattarle al mio sito, che prima andava benissimo con i frames, ma essendo obsoleti lo sto rifacendo con gli include ... contando che questo è il mio secondo sito in asp.
Secondo te devo solo tenere le Fx per Open/Close Db e tralasciare le altre in modo da essere tutto + chiaro?

GRAZIE

[Roby_72]

Se hai dimistichezza con tutte le funzioni che hai tu non c'è problema, ma se vuoi capire l'errore devi cominciare ad escludere un po' di cose non credi?

Roby

[minnie71]

Ciao, sarò testarda, ma devo capire dove sbaglio. Se faccio solo cose che so fare non imparo niente.
Ti dico che ho nelle pag asp:
GLOBAL.ASA

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
application("connection_string")="Provider=Microso ft.Jet.OLEDB.4.0;Data Source=C:/Inetpub/wwwroot/GestioneVendite/DB/GestioneVendite.mdb"
End Sub
Sub Application_OnStart
Session("login")=0
Session("sApp")=0
Session("ID_Utente")=0
Session("Totale")=0
End Sub
</SCRIPT>

DATABASE.INC

Function OpenDataBase()
Dim connection_string
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
connection_string = Application("connection_string")
objConn.Open(connection_string)
End Function
Function CloseDataBase()
objRs.Close
Set objRs = Nothing
objConn.Close
set objConn = Nothing
End Function
Function ExecuteSelect(sQuery)
Dim objRs
Dim sError
Dim Redirect
Dim objConn
On Error Resume Next
Set objRs = Server.CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then
CloseDatabase
sError = Err.Description
sError = Server.URLEncode (sError)
sQuery = Server.URLEncode (sQuery)
Err.Clear
Redirect = Session("PATH_ERRORE") & "Errata_Query.asp?Error=" & sError & "&Query=" & sQuery
Response.Redirect Redirect
End If
Set ExecuteSelect = objRs
End Function

PAG.ASP

Dim sSQL
OpenDataBase()
sSQL="SELECT * FROM Tab_Articoli WHERE Art_Canc='No' AND Art_Offerta='Si' order by Art_Categ"
Set objRs = Server.CreateObject("ADODB.Recordset") Continua ...

Come errore mi da:
Error Type:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
/GestioneVendite/Lista_Offerte.asp, line 33
objRs NON è aperto. Dove sbaglio?

Grazie Minnie

[minnie71]

RISOLTO TUTTO DA SOLA GRAZIE