Sub Application_OnStart
':: app database connection string
application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("database/database.mdb") & ""
'application("cn_str") = "provider=SQLOLEDB.1;server=serverip_or_address;da tabase=database_name;uid=userid;pwd=password"
application("cn_str") = "{RUNSETUP}"
':: initilize app variables from database
set cn = Server.CreateObject("ADODB.Connection")
on error resume next
cn.Open application("cn_str")
set rs = cn.Execute("SELECT * FROM AppSettings")
for each field in rs.Fields
application(field.Name) = field.Value
next
on error goto 0
End Sub