Problemer med session

Det kan være, at siden (der fejlagtigt sender dig til loginsiden) er hentet fra cachen, engang hvor du ikke var logget ind..

Prøv at rydde din oversigt/cache.

/theSurfer

Som standard varer en session 20 minutter, men det kan være at din host af en eller anden årsag har sat den til mindre, og at den derfor er udløbet når du trykker på linket.

Prøv at sætte en session.timeout i din kode.

<%
Session.Timeout = 20
%>

Det var i hvert fald ikke cachen/oversigten, for har lige prøvet fra en anden computer, og der skete det samme.

Det gør også det samme selvom jeg sætter session.timeout til 20.

Kan det have noget at gøre med at jeg går til den anden side via et link, og at det ikke er response.redirect der leder mig hen til siden??

Nej, det skulle gerne virke med links.. jeg har selv lavet et eksempel.. ser lige om jeg kan finde det..

/theSurfer

det er virkelig underligt.

Alt virker fint når jeg tester det på min IIS server på min egen computer, men det virker ikke når jeg uploader det til mit webhotal. Det fatter jeg ikke.

Hvis det virker på din computer, og det ikke virker på serverens, må det være en indstilling på serveren..

/theSurfer

ja, det må det jo egentlig være. Men jeg synes bare de andre ting jeg har lavet i forbindelse med det her, har virket når jeg hjar uploadet det.

Man kan da håbe på det går over.

Prøv det her: http://activedeveloper.dk/download/default.asp?mode=showdownload&id=69

Virker det, både på din computer og online?

/theSurfer

PS: Det er ikke mig der har lavet scriptet på http://activedeveloper.dk/download/default.asp?mode=showdownload&id=69

Jeg faldt bare over det.. kunne ikke finde min egen kode.. skal vist ha' sorteret lidt :-)

/theSurfer

det er noget lignende jeg har. det sjo er at jeg godt kan logge (med det der ligger på mit webhotel) og komme til den første "indlogget" side, hvor den også tager sessionen med over (jeg udskriver det nemli). Prøver jeg at refreshe eller gå til den næste side, så "mister" den sessionen......

<%

'Konstanter til at styre tabel layout
Public Const TAB_TABLE = "<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=1 BGCOLOR=""#66AAFF"">"
Public Const TAB_TR = "<TR>"
Public Const TAB_FONT = "<FONT FACE=""verdana"" SIZE=1>"
Public Const TAB_TD = "<TD BGCOLOR=""#FFFFFF"">"
Public Const TAB_TDR = "<TD BGCOLOR=""#FFFFFF"" ALIGN=""RIGHT"">"
Public Const TAB_IFONT = "</FONT>"
Public Const TAB_ITD = "<BR></TD>"
Public Const TAB_ITR = "</TR>"
Public Const TAB_ITABLE = "</TABLE>"

'Kør de forskellige info funktioner og vis tabellerne
Response.Write "<H2>Server Status</H2>"
Response.Write ServerInfo
Response.Write GlobalInfo
Response.Write ScriptingInfo
Response.Write ComponentInfo
Response.Write ADOInfo
Response.Write DriveInfo
Response.Write "<P><FONT SIZE=1>Server Status v1.0 af Lars Snyder [pila@mailme.dk]</FONT>"

'*** Funktion der returnerer tabel-streng med oplysninger om serveren ***
Public Function ServerInfo()
'Header
ServerInfo = TAB_TABLE
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & "<TD COLSPAN=2>" & TAB_FONT & "<B>Oplysninger om serveren</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Navn og adresse
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Navn og adresse</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables("SERVER_NAME") & " (" & Request.ServerVariables("LOCAL_ADDR") & ")" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Fysisk rodmappe
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Fysisk rodmappe</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables("APPL_PHYSICAL_PATH") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Dato og tid
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Dato og tid</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT
ServerInfo = ServerInfo & FormatDateTime(Now(), vbGeneralDate) & " (vbGeneralDate)" & "<BR>"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbLongDate) & " (vbLongDate)" & "<BR>"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbShortDate) & " (vbShortDate)" & "<BR>"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbLongTime) & " (vbLongTime)" & "<BR>"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbShortTime) & " (vbShortTime)"
ServerInfo = ServerInfo & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Software
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Software</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables("SERVER_SOFTWARE") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Script Engine ID
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Script Engine ID</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & ScriptEngine & " v" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & " (Build " & ScriptEngineBuildVersion & ")" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Protokol
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Protokol</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables("SERVER_PROTOCOL") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Gateway
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Gateway</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables("GATEWAY_INTERFACE") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

'Timeout
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & "<B>Timeout</B>" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Server.ScriptTimeout & " sekunder (Script)" & "<BR>"
ServerInfo = ServerInfo & Session.Timeout & " minutter (Session)" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

ServerInfo = ServerInfo & TAB_ITABLE
ServerInfo = ServerInfo & "&nbsp;<BR>"
End Function

'*** Funktion der returnerer tabel-streng med oplysninger om objekter i global.asa ***
Public Function GlobalInfo()
'Header
GlobalInfo = TAB_TABLE
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & "<TD COLSPAN=2>" & TAB_FONT & "<B>Oplysninger om objekter i global.asa</B>" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

'Tools
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & "<B>Tools</B>" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal("Tools") Then
GlobalInfo = GlobalInfo & TypeName(Tools)
Else
GlobalInfo = GlobalInfo & "?"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

'MyInfo
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & "<B>MyInfo</B>" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal("MyInfo") Then
GlobalInfo = GlobalInfo & TypeName(MyInfo)
Else
GlobalInfo = GlobalInfo & "?"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

'Counters
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & "<B>Counters</B>" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal("Counters") Then
GlobalInfo = GlobalInfo & TypeName(Counters)
Else
GlobalInfo = GlobalInfo & "?"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

GlobalInfo = GlobalInfo & TAB_ITABLE
GlobalInfo = GlobalInfo & "&nbsp;<BR>"
End Function

'*** Funktion der returnerer tabel-streng med oplysninger om Scripting klasser ***
Public Function ScriptingInfo()
'Header
ScriptingInfo = ScriptingInfo & TAB_TABLE
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & "<TD COLSPAN=2>" & TAB_FONT & "<B>Oplysninger om Scripting klasser</B>" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

'Scripting.Dictionary
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & "<B>Scripting.Dictionary</B>" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject("Scripting.Dictionary") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

'Scripting.FileSystemObject
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & "<B>Scripting.FileSystemObject</B>" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject("Scripting.FileSystemObject") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

'ADODB.Connection
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & "<B>ADODB.Connection</B>" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject("ADODB.Connection") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

ScriptingInfo = ScriptingInfo & TAB_ITR
ScriptingInfo = ScriptingInfo & TAB_ITABLE
ScriptingInfo = ScriptingInfo & "&nbsp;<BR>"
End Function

'*** Funktion der returnerer tabel-streng med oplysninger om Server komponenter ***
'* Tilføj selv flere relevante komponenter
Public Function ComponentInfo()
'Header
ComponentInfo = ComponentInfo & TAB_TABLE
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & "<TD COLSPAN=2>" & TAB_FONT & "<B>Oplysninger om Server komponenter</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'Header2
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B><I>Microsoft ASP</I></B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "&nbsp;" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'MSWC.AdRotator
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Ad Rotator (MSWC.AdRotator)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.AdRotator") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'MSWC.BrowserType
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Browser Capabilities (MSWC.BrowserType)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.BrowserType") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'ADODB.Connection
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Database Access (ADODB.Connection)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("ADODB.Connection") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'MSWC.NextLink
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Content Linking (MSWC.NextLink)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.NextLink") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'Scripting.FileSystemObject
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>File Access (Scripting.FileSystemObject)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("Scripting.FileSystemObject") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'CDONTS.Session
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>CDO for NTS (CDONTS.Session)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("CDONTS.Session") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

If Not IsGlobal("Tools") Then 'Undgå at smadre evt. eksisterende objekt
'MSWC.Tools
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Tools (MSWC.Tools)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.Tools") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

'MSWC.Status
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Status (MSWC.Status)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.Status") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

If Not IsGlobal("MyInfo") Then 'Undgå at smadre evt. eksisterende objekt
'MSWC.MyInfo
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>MyInfo (MSWC.MyInfo)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.MyInfo") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

If Not IsGlobal("Counters") Then 'Undgå at smadre evt. eksisterende objekt
'MSWC.Counters
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Counters (MSWC.Counters)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.Counters") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

'MSWC.PageCounter
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Page Counter (MSWC.PageCounter)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.PageCounter") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'MSWC.PermissionChecker
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Permission Checker (MSWC.PermissionChecker)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("MSWC.PermissionChecker") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'Header3
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B><I>Komponenter fra tredjemand</I></B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "&nbsp;" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'ASPMail.ASPMailCtrl.1
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>OCXMail fra Flicks Software (ASPMail.ASPMailCtrl.1)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("ASPMail.ASPMailCtrl.1") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'ASPChart.Chart
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>ASP Chart fra ServerObjects (ASPChart.Chart)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("ASPChart.Chart") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'JMail.SMTPMail
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>JMail fra Dimac (JMail.SMTPMail)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("JMail.SMTPMail") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'SoftArtisans.FileUp
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>SA-FileUp fra SoftArtisans (SoftArtisans.FileUp)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("SoftArtisans.FileUp") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'cyScape.browserObj
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>Browserhawk fra CyScape (cyScape.browserObj)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("cyScape.browserObj") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'SMTPsvg.Mailer
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>ASPMail fra ServerObjects (SMTPsvg.Mailer)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("SMTPsvg.Mailer") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'AspHTTP.Conn
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>ASPHttp fra ServerObjects (AspHTTP.Conn)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("AspHTTP.Conn") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'Socket.TCP
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>w3 Sockets fra Dimac (Socket.TCP)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("Socket.TCP") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

'POP3svg.Mailer
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & "<B>ASPPop3 fra ServerObjects (POP3svg.Mailer)</B>" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject("POP3svg.Mailer") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

ComponentInfo = ComponentInfo & TAB_ITR
ComponentInfo = ComponentInfo & TAB_ITABLE
ComponentInfo = ComponentInfo & "&nbsp;<BR>"
End Function

'*** Funktion der returnerer tabel-streng med oplysninger om ADO ***
Public Function ADOInfo()
Dim objConn

'ADO Connection
Set objConn = Server.CreateObject("ADODB.Connection")

'Header
ADOInfo = TAB_TABLE
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & "<TD COLSPAN=2>" & TAB_FONT & "<B>Oplysninger om ADO Connection</B>" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

'Provider
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & "<B>Provider</B>" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & objConn.Provider & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

'Version
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & "<B>Version</B>" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & objConn.Version & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

ADOInfo = ADOInfo & TAB_ITABLE
ADOInfo = ADOInfo & "&nbsp;<BR>"

'Slet Connection
Set objConn = Nothing
End Function

'*** Funktion der returnerer tabel-streng med oplysninger om drev ***
Public Function DriveInfo()
Dim objFS, objDrv

'Filsystem
Set objFS = CreateObject("Scripting.FileSystemObject")

'Header
DriveInfo = TAB_TABLE
DriveInfo = DriveInfo & TAB_TR
DriveInfo = DriveInfo & "<TD COLSPAN=5>" & TAB_FONT & "<B>Oplysninger om drev</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_ITR

'Overskrifter
DriveInfo = DriveInfo & TAB_TR
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "<B>Drev (navn)</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "<B>Medie</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "<B>Filsystem</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "<B>Samlet størrelse</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "<B>Ledig plads</B>" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_ITR

'Gennemgå alle drev
For Each objDrv In objFS.Drives
DriveInfo = DriveInfo & TAB_TR

'Drev (navn)
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & objDrv.DriveLetter & " ("
If objDrv.IsReady Then
DriveInfo = DriveInfo & objDrv.VolumeName
Else
DriveInfo = DriveInfo & "?"
End If
DriveInfo = DriveInfo & ")" & TAB_IFONT & TAB_ITD

'Medie
DriveInfo = DriveInfo & TAB_TD & TAB_FONT
Select Case objDrv.DriveType
Case 0: DriveInfo = DriveInfo & "Ukendt"
Case 1: DriveInfo = DriveInfo & "Flytbar"
Case 2: DriveInfo = DriveInfo & "Fast"
Case 3: DriveInfo = DriveInfo & "Netværk"
Case 4: DriveInfo = DriveInfo & "CD-ROM"
Case 5: DriveInfo = DriveInfo & "RAM disk"
Case Else: DriveInfo = DriveInfo & "?"
End Select
DriveInfo = DriveInfo & TAB_IFONT & TAB_ITD

'Er der noget i drevet?
If objDrv.IsReady Then
'Filsystem
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & objDrv.FileSystem & TAB_IFONT & TAB_ITD

'Størrelse
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & FormatNumber(objDrv.TotalSize / 1000000, 0) & " MB" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & FormatNumber(objDrv.FreeSpace / 1000000, 0) & " MB" & TAB_IFONT & TAB_ITD
Else
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & "?" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & "? MB" & TAB_FONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & "? MB" & TAB_FONT & TAB_ITD
End If
DriveInfo = DriveInfo & TAB_ITR
Next
DriveInfo = DriveInfo & TAB_ITABLE
DriveInfo = DriveInfo & "&nbsp;<BR>"

'Frigiv objekter
Set objFS = Nothing
Set objDrv = Nothing
End Function


'*** Hjælpefunktioner (for at fange evt. fejl) ***
Private Function ClassCreateObject(strClass)
Dim objTemp

On Error Resume Next
Set objTemp = CreateObject(strClass)
If Err.Number = 0 Then
ClassCreateObject = TypeName(objTemp)
Else
ClassCreateObject = "?"
End If

'Frigiv objekt igen
Set objTemp = Nothing
End Function

Private Function ServerCreateObject(strProgID)
Dim objTemp

On Error Resume Next
Set objTemp = Server.CreateObject(strProgID)
If Err.Number = 0 Then
ServerCreateObject = TypeName(objTemp)
Else
ServerCreateObject = "?"
End If

'Frigiv objekt igen
Set objTemp = Nothing
End Function

Private Function IsGlobal(strVarname)
On Error Resume Next

'Returner som udganspunkt False
IsGlobal = False

'Afprøv relevante
Select Case strVarname
Case "Tools"
If IsObject(Tools) Then
If Err.Number = 0 Then IsGlobal = True
End If
Case "MyInfo"
If IsObject(MyInfo) Then
If Err.Number = 0 Then IsGlobal = True
End If
Case "Counters"
If IsObject(Counters) Then
If Err.Number = 0 Then IsGlobal = True
End If
End Select
End Function
%>

UPS.. det fyldte da en hel del den kode..
Men hvis du paster det ind i et asp dokument og fyrer det af på dit webhotel, så kan du se serverens indstillinger.. bl.a. sessions.

Og hvis du så gør det samme på localhost, så kan du sammenligne dem

Sweeeet :-)

/theSurfer

hvis du har en kopi af dit site liggende lokalt, og et på serveren,
og din lokale mappe hedder det samme, kan den finde på at gå til den lokale version.
og derved miste session...
vildt irriterende,

jeg har kørt den test og den viser stort setdet samme for begge servere. Min egen og min webhotel.

der er kun nogle komponenter til forskel og min IIS server er en 5.1 imod webhotelts 5.0.

så er mit script engine v5.6 (Build 8820)
mod hotellets v5.6 (Build 7426)

nu kunne det jo også være din egen kode....

prøv lige at dumpe den kode du bruger til at checke om brugeren er logget ind

desværre kan servere nogle gange te sig lidt fjollet når man kører noget lokalt på netværket...

på login siden sætter jeg sessionen på følgende måde:
'Den korte version. Har hentet dataen fra brugeren i DB'en

session("login") = rs("ID")

på den beskyttede side har jeg følgende:

if session("login") = "" then
response.redirect "index.asp"
end if

når du sætter din session benytter du så response.redirect?

Det er en kendt fejl at iis ikke har det gjort med sessions og direkte response.redirect bagefter... bare søg her på exp om det :)

Lav det evt. med et javascript-redirect:

session("login") = rs("ID")
response.write("<body onload=""window.location = 'anden_side.asp';""></body>")

ja, jeg bruger response.redirect kort efter jeg har sat den session

så lav det med javascript istedet for....
(altså redirect'en)

ja, det vil jeg lige prøve. Indtil videre virker DET i hvert fald også på min egen IIS

Det ser sq ud til at virke. Ved ik helt om det 100% var det med javascript redirecten der gjorde udslaget. Der var et par andre fejl, men smider du et svar and?

svar ;)

som jeg skrev tidligere... det er en kendt fejl i iis at den ikke kan håndtere sessions og response.redirects sommetider...
Derfor hvis du skal lave ovenstående løsning, så benyt javascript til opgaven :)

Hvilket jeg har gjort, og det ser ud til at virke. tak for hjælpen.

Også til jer andre der har smidt forslag til denne tråd.

over and out

HH