2 global.asa para la misma web
Publicado por colo (1 intervención) el 19/12/2001 11:50:38
Necesito usar dos archivos global.asa para la misma web
¿como los unifico?, yo hice lo siguiente pero funciona solo 1
Si alguien lo puede mirar y decirme si hay un error me sacaran de un problema. Gracias
<script language="vbscript" runat=server>
'chat
ReDim TopicName(0)
ReDim TopicDescription(0)
'carro
Sub Application_OnStart
Dim stax
stax = 0.21
Application("taxP") = stax
'chat
Application("TopicNames") = TopicName
Application("TopicDescriptions") = TopicDescription
Dim Users()
Redim Users(1)
Dim UsersGroup()
Redim UsersGroup(1)
Application("Users") = Users
Application("UsersGroup") = UsersGroup
Dim UsersIP()
Redim UsersIP(1)
Dim UsersTimeOn()
Redim UsersTimeOn(1)
Dim UsersIdleOn()
Redim UsersIdleTime(1)
Application("UsersIP") = UsersIP
Application("UsersTimeOn") = UsersTimeOn
Application("UsersIdleTime") = UsersIdleTime
End Sub
Sub Session_OnStart
'Shopping cart array
Const cartAttributes = 6
Const maxCartItems = 630
ReDim arrcart(cartAttributes,maxCartItems)
Session("MyCart") = arrcart
Session("cartItem") = 0
'chat
Session.Timeout=2
End Sub
'chat
Sub Session_OnEnd
Topic = Session("Topic")
Name = Session("Name")
Users = Application("Users")
UsersIP = Application("UsersIP")
UsersTimeOn
¿como los unifico?, yo hice lo siguiente pero funciona solo 1
Si alguien lo puede mirar y decirme si hay un error me sacaran de un problema. Gracias
<script language="vbscript" runat=server>
'chat
ReDim TopicName(0)
ReDim TopicDescription(0)
'carro
Sub Application_OnStart
Dim stax
stax = 0.21
Application("taxP") = stax
'chat
Application("TopicNames") = TopicName
Application("TopicDescriptions") = TopicDescription
Dim Users()
Redim Users(1)
Dim UsersGroup()
Redim UsersGroup(1)
Application("Users") = Users
Application("UsersGroup") = UsersGroup
Dim UsersIP()
Redim UsersIP(1)
Dim UsersTimeOn()
Redim UsersTimeOn(1)
Dim UsersIdleOn()
Redim UsersIdleTime(1)
Application("UsersIP") = UsersIP
Application("UsersTimeOn") = UsersTimeOn
Application("UsersIdleTime") = UsersIdleTime
End Sub
Sub Session_OnStart
'Shopping cart array
Const cartAttributes = 6
Const maxCartItems = 630
ReDim arrcart(cartAttributes,maxCartItems)
Session("MyCart") = arrcart
Session("cartItem") = 0
'chat
Session.Timeout=2
End Sub
'chat
Sub Session_OnEnd
Topic = Session("Topic")
Name = Session("Name")
Users = Application("Users")
UsersIP = Application("UsersIP")
UsersTimeOn
Valora esta pregunta
0