Hallo Liste,
ich habe ein Problem... leider ohne konkrete Fehlermeldung:
Hier der Fehler:
--- schnipp
Der Vorgang ist f�r ein geschlossenes Objekt nicht zugelassen.,
FEHLER
Wir haben Ihre Mailadresse bereits in unserer Datenbank. Doppelte
Eintr�ge sind nicht gestattet!
---- schnapp
hier der komplette quellcode der betroffenen seite:
<%@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
%>
Was habe ich wo ist denn bitte was geschlossen... ich sehe den Wald mit
besagten B�umen nicht.
Danke vorab f�r die Tipps.
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
