Ma xchè nn ve le fate a mano, tieni il mio global.asax e fallo fruttare
<script language="VB" runat="server" debug="true">

private function ScegliPercorso()
Const Sito="remoto "
dim Percorso,VPercorso,DBClienti,DBIntra,DBG
B,DBNews,DBArticlesPlus
select case Sito
case "remoto"
VPercorso="/" 'in remoto usare questi valori
case else
VPercorso="/fatturandox/" 'in locale usare questi valori
end select
Percorso=server.mappath(VPercorso)
if right(Percorso,1) <> "\" or right(Percorso,1) <> "/" then Percorso=Percorso & "\" 'se manca l'ultimo slash lo aggiunge
Percorso=left(Percorso,instrrev (Percorso,"\",instrrev (Percorso,"\")-1))
Application("giorgio")="Provider=Microsoft.Jet.OLE DB.4.0;Data Source=" & Percorso & "db\miodb.mdb; Jet OLEDBatabase Password=+èpe p2;"

application("sito")="mio sito"
end function
sub Application_OnStart
ScegliPercorso()
end sub
</SCRIPT>