Hallo Peter,
das sind einige Seiten aber im Grunde betrifft die Fehlermeldung das Include File mit
der Datenbankverbindung und der sieht so aus:
------------------------------------------
SET Conn = Server.CreateObject("ADODB.Connection")
ConnString = "driver={SQL Server};server=SERVER;uid=*****;pwd=****;database=DB"
Conn.Open ConnString
-------------------------------------------------
Die Zeile 10 wo der Fehler auftritt ist das Conn.open, dieses Include ist am Anfang
jeder Seite wo ich die DB anspreche. Die aktivierte Session brauche ich weil ich ein
Cookie ablege, das wird beim Start der Seite ausgelesen, damit sich der User nicht
jedesmal neu anmelden muss, auf das Cookie alleine verlasse ich mich aber nicht, soll
nur ein zus�tzliches Service sein, ich merke mir auch die UID (Datentyp =
uniqueidentifier) wenn sich der User einloggt, der Source dazu sieht so aus:
--------------------------------------------------------------------------
'Das Cookie wird ausgelesen um den Benutzer zu identifizieren
Const cstrCookieName = "UserInfo"
objCookieValue = Request.Cookies(cstrCookieName)
useIdent = Trim(request("useIdent"))
'Entweder ist das Cookie da oder nach dem Einloggen die useIdent
if Not IsNull(objCookieValue) and objCookieValue <> "" then
useIdent = objCookieValue
else
useIdent = useIdent
end if
'Wen die Cookies nicht aktiviert sind wird beim Einloggen die useIdent mitgegeben
If not IsNull(useIdent) and Trim(useIdent) <> "" Then
SQL = "SELECT IDU, useName, useLastLogin,useNewLogin, useIdent FROM tblUser" _
&" WHERE useAktiv = 'ja' AND (useIdent='"&useIdent&"')"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn
if not RS.EOF then
useName = Trim(RS("useName"))
useLastLogin = formatdatetime(RS("useLastLogin"),1)
'wenn das neue Datum hoeher als das LastLogin Datum ist
if formatdatetime(now(),2) >
formatdatetime(RS("useNewLogin"),2) then
'Das Anmelde datum vom letzten mal wird in den
LastLogin geschoben
SQL1 = "UPDATE tblUser SET useLastLogin
='"&RS("useNewLogin")&"'"
Conn.execute(SQL1)
end if
'Das Feld NewLogin wird mit dem aktuellen Datum versehen,
SQL2 = "UPDATE tblUser SET useNewLogin ='"&now()&"'"
Conn.execute(SQL2)
else
useName = "Gast"
useLastLogin = "Unbekannt"
end if
RS.close
Set RS = Nothing
else
useName = "Gast"
useLastLogin = "Unbekannt"
End If
----------------------------------------------------------------------------------
Wenn es dann f�r kurze Zeit wieder l�uft geht das mit rasanter Geschwindigkeit,
vondaher kann es echt nicht sein das es solange dauert um ein Timeout zu bekommen, ich
habe zus�tzlich die komplette DB plus SQL Benutzer gel�scht und neu angelegt, weil ich
es zuvor von meiner Testumgebung importiert habe, hat aber nix gebracht. Was mich
wirklich total irritiert ist, dass es zwischendurch immerwieder funktioniert.
ich bin echt ratlos und f�r jede Hilfe mehr als dankbar?
lg.Karin
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Gesendet: Montag, 11. Februar 2002 08:45
> An: ASP Datenbankprogrammierung
> Betreff: [aspdedatabase] Antwort: Timeout abgelaufen ? - Nachtrag!
>
>
> Hallo Karin,
>
> schick doch mal den Sourcecode von der Seite.
>
> Gru�
>
> Peter
>
>
> ---------------------------------------
> FMC IT-Service GmbH & Co. KG
> Dr. Peter Lachenmayr
> Martin-Luther-Stra�e 20
> 91207 Lauf an der Pegnitz
> Tel. 09123/9710-0
> Fax 09123/9710-88
> E-Mail: [EMAIL PROTECTED]
> ---------------------------------------
>
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
>
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
