Newsgroup: it.comp.www.asp
Titolo: Global.asa e 3 Dbase

Ciao,
Scusate in anticipo se ho postato tutto il contenuto del file Global.asa, ma
mi ci sto avvicinando ora ad ASP.
Ieri sera ho provato a creare 3 database.
Ora vorrei cancellarne le tracce dal Global .asa come faccio?
Ho levato tutte le pagine .ASP e .MDB dal sito tranne il dataprova.mdb.
Ma ogni volta che mi si presenta la maschera di creazione di un DB su FP2000
mi richiama ancora i vecchi DBase.
Inoltre dove trovo una spiegazione esaustiva sul contenuto del Global.ASA
Quale é un buon libro dove imparare setp-by-step tutti i segreti dell'ASP e
dei collegamenti con DBase?
Grazie.
Ciao
==============================
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==FrontPage Generated - startspan==
Dim FrontPage_UrlVars(3)
'--Project Data Connection
Application("Nuova_pagina_1_ConnectionString") = "DRIVER={Microsoft Access
Driver (*.mdb)};DBQ=URL=fpdb/Nuova_pagina_1.mdb"
FrontPage_UrlVars(0) = "Nuova_pagina_1_ConnectionString"
Application("Nuova_pagina_1_ConnectionTimeout") = 15
Application("Nuova_pagina_1_CommandTimeout") = 30
Application("Nuova_pagina_1_CursorLocation") = 3
Application("Nuova_pagina_1_RuntimeUserName") = ""
Application("Nuova_pagina_1_RuntimePassword") = ""
'--Project Data Connection
Application("modulo_ConnectionString") = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=URL=fpdb/modulo.mdb"
FrontPage_UrlVars(1) = "modulo_ConnectionString"
Application("modulo_ConnectionTimeout") = 15
Application("modulo_CommandTimeout") = 30
Application("modulo_CursorLocation") = 3
Application("modulo_RuntimeUserName") = ""
Application("modulo_RuntimePassword") = ""
'--Project Data Connection
Application("Database1_ConnectionString") = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=URL=fpdb/dataprova.mdb"
FrontPage_UrlVars(2) = "Database1_ConnectionString"
Application("Database1_ConnectionTimeout") = 15
Application("Database1_CommandTimeout") = 30
Application("Database1_CursorLocation") = 3
Application("Database1_RuntimeUserName") = ""
Application("Database1_RuntimePassword") = ""
'--
Application("FrontPage_UrlVars") = FrontPage_UrlVars
'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
FrontPage_StartSession '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
On Error Resume Next
if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub
' discover the VRoot for the current page;
' walk back up VPath until we find global.asa
Vroot = Request.ServerVariables("PATH_INFO")
strG1 = "global.asa"
strG2 = "Global.asa"
iCount = 0
do while Len(Vroot) > 1
idx = InStrRev(Vroot, "/")
if idx > 0 then
Vroot = Left(Vroot,idx)
else
' error; assume root web
Vroot = "/"
end if
if FrontPage_FileExists(Server.MapPath(Vroot & strG1)) then exit do
if FrontPage_FileExists(Server.MapPath(Vroot & strG2)) then exit do
if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1)
iCount = iCount + 1
if iCount > 100 then
' error; assume root web
Vroot = "/"
exit do
end if
loop
' map all URL= attributes in _ConnectionString variables
Application.Lock
if Len(Application("FrontPage_VRoot")) = 0 then
Application("FrontPage_VRoot") = Vroot
UrlVarArray = Application("FrontPage_UrlVars")
for i = 0 to UBound(UrlVarArray)
if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i))
next
end if
Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
' convert URL attribute in conn string to absolute file location
strVal = Application(AppVarName)
strKey = "URL="
idxStart = InStr(strVal, strKey)
If idxStart = 0 Then Exit Sub
strBefore = Left(strVal, idxStart - 1)
idxStart = idxStart + Len(strKey)
idxEnd = InStr(idxStart, strVal, ";")
If idxEnd = 0 Then
strAfter = ""
strURL = Mid(strVal, idxStart)
Else
strAfter = ";" & Mid(strVal, idxEnd + 1)
strURL = Mid(strVal, idxStart, idxEnd - idxStart)
End If
strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL)
& strAfter
Application(AppVarName) = strOut
End Sub
Function FrontPage_FileExists(fspath)
On Error Resume Next
FrontPage_FileExists = False
set fs = CreateObject("Scripting.FileSystemObject")
Err.Clear
set istream = fs.OpenTextFile(fspath)
if Err.Number = 0 then
FrontPage_FileExists = True
istream.Close
end if
set istream = Nothing
set fs = Nothing
End Function
</SCRIPT>

puoi anche cancellare tutto il contenuto all'interno del global.asa
lasciando solo <script ....>
e
</script>
--
Francesco Rotondo
Tel&CO s.r.l. - Via Virgilio, 55
41100 Modena ITALY
Tel.: 
+39 059 8860118
Fax: 
+39 059 8860122
E-mail 
f.ro...@tlco.it
Site: 
http://www.tlco.it