Flette global.asa fil sammen med en anden global.asa fil

Hejza alle sammen,

Jeg har en global.asa fil der ser sådan ud:

<SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\">
Sub Application_OnStart
    \' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application(\"ActiveUsers\") = 0
End Sub

Sub Application_OnEnd
    \' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    \' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    \' Reducer antallet af brugere med 1, når en session afsluttes
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1
    Application.UnLock
End Sub
</SCRIPT>
og den tæller hvor mange brugere der er på siden.

Jeg har så en anden en, og den ser sådan ud:

<script language=VBScript runat=Server>

Sub application_OnStart
application.lock

\'Chat indstillinger:\'
\'Fysisk databasesti + filnavn (skal starte med et drevbogstav)\'
application(\"chat_db_sti\") = \"xxx.xxx\"

\'Viste beskeder i chat:\'
application(\"chat_antal_beskeder\") = 15

\'Tilladt antal online brugere i chatten:\'
application(\"chat_antal_brugere\") = 40

\'Antal minutter inden inaktive brugere logges af chatten:\'
application(\"chat_autologud\") = 1

\'Afsender-email adresse på breve med info om glemt brugernavn og adgangskode (skal indeholde @):\'
application(\"chat_afsender_adr\") = \"admin@netzilla.dk\"

\'Afsender navn på breve med info om glemt brugernavn og adgangskode:\'
application(\"chat_afsender_navn\") = \"NetZilla\"

\'Tekst inden brugernavn og adgangskode i mail:\'
application(\"chat_mail_1\") = \"Dine brugerdata til netZilla.dk er følgende:\"

\'Tekst efter brugernavn og adgangskode i mail:\'
application(\"chat_mail_2\") = \"Med venlig hilsen\" & vbcrlf & vbcrlf & \"Os på NetZilla\"

\'Emnelinie i mail med info om glemt brugernavn og adgangskode:\'
application(\"chat_mail_emne\") = \"Dine dataer til NetZilla\"

\'SMTP-server til afsendelse af email:\'
application(\"mailserver\") = \"vip.cybercity.dk\"

application.unlock
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & application(\"chat_db_sti\")
sql = \"delete * from linier\"
conn.execute(sql)
sql = \"delete * from paa_brugere\"
conn.execute(sql)
conn.close
End Sub

Sub Session_OnStart
session.timeout = application(\"chat_autologud\")
End Sub

Sub Session_OnEnd
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & application(\"chat_db_sti\")
sql = \"delete * from paa_brugere where id = \" & session.sessionid
conn.execute(sql)
    if session(\"username\") <> \"\" then
    sql = \"insert into linier ( tekst , fra ) values( \'\" & session(\"username\") & \" glemte at logge af og blev derfor sparket af H til af Admin kl. \" & time & \"\' , \'Chatten\' )\"
    conn.execute(sql)
    end if
conn.close
fjern = false
End Sub

Sub application_OnEnd
End Sub

</script>

Er der nogen der kan flette de to sammen, så de stadigvæk virker ?