Problema con Objeto Session

[freemojorisin]

Hola.

Tengo un problemilla al cargar un sitio. En el global.asa tengo este codigo.

Código:

SUB Application_OnStart
	Application("strBookId")= 2
END SUB


Sub Session_OnStart
	'Response.CacheControl="private"
	'Response.Expires=0
	'on error resume next
	dim con
	dim cmdLinks, cmdExample
	dim rsLinks, rsExample
	dim arrExample
	dim arrHeadword(0,0)
	dim paramBookId
	dim str
	
	set con = server.CreateObject("ADODB.Connection")
	'con.Open "DSN=DKEEXP;UID=un_usr;PWD=un_pass"
	'con.Open "DSN=ED;UID=sa;PWD=sa"
	set cmdLinks = server.CreateObject("ADODB.Command")
	set rsLinks = server.CreateObject("ADODB.Recordset")
	
	Dim serverNAME, alosada_STRING, DatabaseName, DbUsername, DbPassword
	serverNAME = "blablabla.brinkster.com"
	DatabaseName = "!!!!!!"
	DbUsername = "!!!!!!"
	DbPassword = "********"

	alosada_STRING = "Provider=SQLOLEDB;Data Source='" & serverNAME & "';Initial Catalog=" & Database_Name & ";User Id=" & DbUsername & ";Password=" & DbPassword & ";"
	
	con.Open(alosada_STRING)
			
	cmdLinks.ActiveConnection = con
	cmdLinks.CommandType =4
	cmdLinks.CommandText = "sp_getGooglePictureLinks"
	set paramBookId = cmdLinks.CreateParameter("bookid",3,,,Application("strBookId"))
	cmdLinks.Parameters.append paramBookId
	set rsLinks = cmdLinks.Execute()
			
	sectionDict.Add "sec2Title","dinosaurios"
	sectionDict.Add "sec2ImgPrefix","gifs/dinosaurs/exdino"
	sectionDict.Add "sec2SpanClass","dinolink"
	sectionDict.Add "sec2SpanClassHome","dinolink"
	sectionDict.Add "sec2NoResultClass","noresultsdino"
	sectionDict.Add "sec2GoogleImg","gifs/dino/exdino_googledirectory.gif"
	sectionDict.Add "sec2GoogleLink", cstr(rsLinks("GoogleLink"))
	sectionDict.Add "sec2PicLink", cstr(rsLinks("ClipartLink"))
	sectionDict.Add "sec2body","bodydinored"
	sectionDict.Add "sec2css", "styles/styles_dino.css"
	sectionDict.Add "sec2bgcolor", "#F5D6D6"
	sectionDict.Add "sec2listcolor", "#CC3333"
			
	arrHeadword(0,0)=""
	set cmdExample = server.CreateObject("ADODB.Command")
	set rsExample = server.CreateObject("ADODB.Recordset")
	cmdExample.ActiveConnection = con
	cmdExample.CommandType = 4
	cmdExample.CommandText = "sp_getexampleheadwords"
	set rsExample = cmdExample.Execute()
	
	If not rsExample.BOF=true and rsExample.EOF=true then
		arrExample = rsExample.GetRows()
		Session("arrExample") = arrExample
	End If
	
	Session("arrHeadword")=arrHeadword
	set Session("sectionDict") = sectionDict
	
	set Session("con") = con
	Session("strSectionId")=2
	set rsLinks = nothing
	set rsExample = nothing
	set cmdExample = nothing
	set cmdLinks = nothing	
End sub

Sub Session_OnEnd 
	set con = nothing
End Sub

y en la pagina variables.asp de la carpeta includes tengo este codigo

Código:

secID = "sec" & Application("strBookId")
	set secDict = Session("sectionDict")
	strTitle = secDict.Item(secID & "Title")
	strImgPrefix = secDict.Item(secID & "ImgPrefix")
	strSpanClass = secDict.Item(secID & "SpanClass")
	strSpanClassHome = secDict.Item(secID & "SpanClassHome")	
	strCss = secDict.Item(secID & "css")
	strbgcolor = secDict.Item(secID & "bgcolor")
	strImgArrow = secDict.Item(secID & "arrow")
	strGoogleLink = secDict.Item(secID & "GoogleLink")
	strGoogleImg = secDict.Item(secID & "GoogleImg")
	strPicLink = secDict.Item(secID & "PicLink")
	strNoResultClass = secDict.Item(secID & "NoResultClass")
	strBodyClass = secDict.Item(secID & "body")
	strListColor = secDict.Item(secID & "listcolor")

Al cargar la pagina de inicio del site me sale este error.

Microsoft VBScript runtime error '800a01a8'

Object required: 'Session(...)'

/projects/ED/includes/variables.asp, line 3

La verdad no se que puede ser.

Gracias por su colaboracion

[pinchoso]

el problema esta en --> set secDict = Session("sectionDict")

en tu Global.asa --> set Session("sectionDict") = sectionDict

no uses el SET a ver si funciona, yo nunca he usado SET y siempre me han funcionado bien las varaibles de sesión

[freemojorisin]

Hola!!!

Hice lo que pinchoso me sugirio y me sigue saliendo el mismo error.

Por favor ayudenme con esto que llevo mas de una semana tratando de encontrar el error y no he podido solucionarlo.

Les agradezco

[Myakire]

Atiende primero el mensaje privado que te acabo de mandar

[Myakire]

Bueno, sobre aviso no hay engaño ...

Eliminar el set te debió haber quitado el problema, ya que claramente era incorrecto su uso.
Pero si no es así, seguramente tienes deshabilitadas las sesiones desde el IIS, revisa eso.

[freemojorisin]

Pero cuando le quito el set me aparece el mismo error...no se si este mal la declaracion en el variables.asp

Gracias

[Myakire]

veo que aún no atiendes lo del mensaje privado, creo que que en verdad es necesario que lo hagas.

Y sobre las session, ¿verificaste que tienes habilitadas las sesiones en el IIS?

[AlZuwaga]

Iniciado por Myakire

veo que aún no atiendes lo del mensaje privado, creo que que en verdad es necesario que lo hagas.

Bueno, eso ya está solucionado, gracias (de parte de freemojorisin) por avisar Myakire.
Ahora me pregunto si esa info habrá quedado en la caché de google

[freemojorisin]

ya verifique lo me que me dijiste en el mensaje privado...en cuanto al tema de las sesiones las tengo habilitadas en la aplicacion.

He tratado de modificar el codigo por todos lados y no me quiere funcionar el sitio.

[monkyta]

Ese error que te da es porque el global.asa no se esta ejecutando.
Verifica por el MMC que tengas bien creada la aplicacion; tambien que el archivo global.asa este en el directorio que debe de estar.....ese es el problema