Hallo Liste,
Ich habe echt keine Idee warum ich einen Eintrag in eine Datenbank nicht
schreiben kann... Ich bekomme keine Fehlermeldung, daher kann ich mir
zun�chst selber auch nicht weiterhelfen. Wer hat den bitte eine Idee,
Tipp oder vielleicht sogar einen L�sungsansatz?
Hier der Fehler:
--- Fehlermeldung:
Der Vorgang ist f�r ein geschlossenes Objekt nicht zugelassen., <--- Das
ist die Fehlermeldung
FEHLER
Wir haben Ihre Mailadresse bereits in unserer Datenbank. Doppelte
Eintr�ge sind nicht gestattet! <--- Wird vom Script generiert
---- ende
Hier der gesamte Quelltext:
--- config.inc
<%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.Mappath("\cgi-bin\database\lc2.mdb")
%>
--- ende
--- config1.inc
<%
Sub CleanUp(RS)
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
End Sub
Sub CleanUp2()
MyConn.Close
Set MyConn = Nothing
End Sub
%>
--- ende
--- addrec.asp
<%@Language=VBScript%>
<%
Response.AddHeader "cache-control", "private"
Response.AddHeader " pragma", "no-cache"
Response.Buffer = True
%>
<!--#include file="config.inc" -->
<!--#include file="level1.inc" -->
<!--#include file="../functions/db1.asp" -->
<%
On Error Resume Next
Dim UserName, PassWord, Email, Level, ExpDate
UserName = Request.Form("username")
PassWord = Request.Form("password")
Email = Request.Form("email")
Level = Request.Form("level")
Dim strErrorMessage
Dim bolErrors
strErrorMessage = ""
bolErrors = False
sub TrapError(strError)
bolErrors = True
strErrorMessage = strErrorMessage & strError & ", "
Response.Write strErrorMessage
end sub
sub ProcessErrors()
if bolErrors then
Response.Write "<H1>FEHLER</H1><BR>"
Response.WRite "<H3>"
Response.Write "Wir haben Ihre Mailadresse bereits in unserer
Datenbank. Doppelte Eintr�ge sind nicht gestattet!"
end if
end sub
If IsEmpty(request.form("email")) or request.form("email")="" then
response.write "<b>Sie m�ssen schon eine Emailadresse
angeben. Ohne geht es nicht!!</b>"
response.write "<form>"
response.write "<input type='button' value='Retry'
onclick=history.back()>"
response.write "</form>"
Validation = "True"
response.end
Else
Validation = "False"
End If
If validation <> "True" Then
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set RS_addrec = Server.CreateObject("ADODB.Recordset")
Rs_addrec.ActiveConnection = my_conn
Rs_addrec.CursorType = adOpenKeyset
Rs_addrec.LockType = adLockPessimistic
Rs_addrec.Source = "Login"
Rs_addrec.Open
Rs_addrec.AddNew
Rs_addrec("username") = username
Rs_addrec("passwod") = password
Rs_addrec("email") = email
Rs_addrec("level") = level
Rs_addrec.Update
If Err.number <> 0 then
TrapError Err.description
Call ProcessErrors
Else
Response.Write "Ihre Emailadresse " & "<color=#000059><b>" & email &
"<color=#c0c0c0></b>" & " wurde erfolgreich unserer Datenbank
hinzugef�gt!"
Response.Write "<br><a href=""me_data1.asp"">Weiter</a>"
End if
End if
Rs_addrec.Close
Set Rs_addrec = Nothing
%>
<!--#include file="config1.inc" -->
--- ende
Also... entweder bin ich br����sisch oder ich habe wieder mal keine
idee. Wer kann mir bitte vorsichtig meine unwissenheit austreiben??
Gr��e,
Alexander
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
