next / weiter ...
ESlave Error :438 : Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'eve.CustomerID' at Line 10 Code:
edebug = true
Set MyConnection = CreateObject ("ADODB.Connection")
MyConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HTTP\itxtools.mdb"
rem sql = "select * from ensc where bez like '||||SW||Database||Kunden||'" & customerid & "||%' and Arg = '||||SW||Beschreibung||SessionID'"
sql = "select * from ensc where bez = '||||SW||Database||Kunden||" & eve.CustomerID & "||" & session.sessionid & "' and arg = '||||SW||Beschreibung||SessionID'"
Set erst = CreateObject("ADODB.Recordset")
erst.CursorType = 3 'adOpenStatic
erst.LockType = 3 '3 'adlockoptimistic
erst.Open SQL, MyConnection
if erst.eof = true then
response.write "nicht auth"
else
erst.delete
erst.update
end if
erst.close
set erst = nothing