Newsgroup: it.comp.www.asp
Titolo: [help]Errore 0115

Salve! Stamattina mi sono svegliato e improvvisamento trovo questo
errore sulle pagine che ospitano il mio sito:
errore 0115
trappable ecc.
(ieri sera ovviamentew tutto ok)
Se elimino il file global.asa va tutto ok, ma la cosa un po' mi
scoccia perché ci sono delle funzioni utili. Non ho proprio idee e
prima di ri-telefonare all'amministratore volevo sapere se qualcuno
aveva qualche idea (ovviamente a casa mia funziona...:)
Grazie a tutti per qualsiasi idea!
Aggiungo il listato di global.asa! (ho tolto le parti 'pericolose per
la privacy!)
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart
Server.ScriptTimeout = 100
'Executes when the application is started
	Dim ConnStr
	Password ="xxxx"
 
	Set conn = Server.CreateObject("ADODB.Connection")
	'1. Configuration for System DSN
   'ConnStr = "DSN=STORE;uid=;pwd=" & Password
 
 
 
	conn.open ConnStr
 
	sql = "SELECT * FROM Config_Table"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
	rs.MoveFirst
 
	Do while NOT rs.eof
		Application(rs("FieldName")) = rs("Content")
		rs.MoveNext
	Loop
	rs.Close
	set rs = nothing
	Application("intUsers") = 0
 
End Sub
Sub Session_OnStart
'Executes for every new session opened
	'On Error Resume Next
	Session("UserID") = Request.Cookies("UserID")
	If Session("UserID") = "" Then 
		Randomize
		Session("UserID") =  chr (int( 20 * Rnd +65 )) & int (
9999 * Rnd + 1) & chr (int( 20 * Rnd +65 )) & chr (int( 20 * Rnd +65
))
		Session("Cookie")= 0
		Else
		' Request user Information
		Session("Cookie")= 1
	End If	
	' Increment number of active sessions
	Application.Lock
	Application("intUsers") = int(Application("intUsers")) + 1
	Application.UnLock
 
	'Applies TimeOut if it is defined
	If Application("TimeOut") <> "" Then Session.Timeout = int
(Application("TimeOut"))
End Sub
Session.Timeout=20
Sub Session_OnEnd
'Executes for every session that ends
	' Decrement number of active sessions<br>
	Application.Lock
	Application("intUsers") = int(Application("intUsers")) - 1
	if  Application("intUsers") =0 then Application("intUsers")=1
	Application.UnLock
	'Delete unused Session temporal cart
	'Can't use Mappath method!
	On Error Resume Next
 	Set conn = Server.CreateObject("ADODB.Connection")
 	conn.open Application("ConnStr")
	sql = "DELETE FROM Carts WHERE CartID = '" & Session("CartID")
& "'"
    Set rs = conn.Execute (sql)
	rs.Close
	set rs = nothing
	'conn.Close
	'set conn = nothing
End Sub
</SCRIPT>

aveva qualche idea (ovviamente a casa mia funziona...:)
Se a casa tua funziona, e ieri sera funzionava e non hai
modificato il codice, l'unica e' un problema sul DB o sui
driver ODBC, dato che nel global ti connetti al database.
Se non hai modificato il codice, e' l'unica.
Davide

Davide
Grazie dei suggerimenti!
Dunque, ho scaricato il DB a casa mia e non ho problemi. Riguardo alla
connessione col DB, ci sono altri script che si connettono alla stessa
maniera e non danno problemi.  Alla fine ho provato a cancellare e
cancellare righe di codice, fino a che è rimasto:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart
End Sub
</SCRIPT>
E mi rida' l'errore... a questo punto sono perplesso...
Bye!