[aspdebeginners] RE: Fehlermeldung:

[Fichte]

Ich habe jetzt mal das Script verwenden, mit dem sich User bei mir
registrieren k�nnen.

Funktioniert aber auch nicht. --> Ich schau mal noch ne Runden bei
www.learnasp.com vorbei :-)

Viellleicht f�llt euch ja noch was ein *hoff*


cu Fichte


Ps: Hier der aktuelle Quellcode


<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("../~db/user.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS
Access;MaxBufferSize=512;PageTimeout=5;"

strVorname = Trim(Request.Form("Vorname"))
strNachname = Trim(Request.Form("Nachname"))
strEmail = Trim(Request.Form("eMail"))
strURL = Trim(Request.Form("URL"))
strWohnort = Trim(Request.Form("Wohnort"))
strNickname = Trim(Request.Form("Nickname"))
strPasswort = Trim(Request.Form("Passwort"))

If "Yes" <> strFinal Then
 If "" = strVorname Or Len(strEmail) < 6 Or 0 = Instr(strEmail,"@") Or 0 =
Instr(strEmail,".") Then
  Response.Write "Nicht alle ben&ouml;tigten Felder (Name, Emailadresse)
wurden korrekt eingegeben!"
 Else

end if

Else
 ' we are submitted and going to the database
 If "" = strVorname Or Len(strEmail) < 6 Then
  Response.Write "<p>Nicht alle ben&ouml;tigten Felder (Vorname,
Emailadresse) wurden korrekt eingegeben!</p>"
 Else

  Set conn = CreateObject("ADODB.Connection")
  conn.Open strConnection
  Set rs = CreateObject ("ADODB.Recordset")
  rs.Cursortype = 1
  rs.Locktype = 3
  rs.Open "SELECT * FROM User WHERE IdField=-1", conn
  rs.AddNew
   rs.fields("Vorname") = strVorname
   rs.fields("Nachname") = strNachname
   rs.fields("Email") = strEmail
   rs.fields("Url") = strURL
   rs.fields("Wohnort") = strWohnort
   rs.fields("Nickname") = strNickname
   rs.fields("Passwort") = strPasswort
  rs.Update
  rs.Close
  conn.Close
  Response.Write "<p>Hi deine Daten wurde erfolgreich �berarbeitet :-).</p>"
  Response.Write "<p><a href=""start.asp"">hier gehts weiter</A></p>"
  End If
End If

 Else
  Response.Cookies("Nickname") = Nickname
 End If

%>






























----- Original Message -----
From: "Roman Pittroff" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, October 22, 2001 7:18 PM
Subject: [aspdebeginners] RE: Fehlermeldung:


Die anweisung ausgeben lassen mir response.write
dann in der db direct ausfuehren, und wenns nicht hinhaut in die liste
posten

Gruss

Roman Pittroff
Consulting
Bangkok, Thailand

-----Original Message-----
From: Fichte [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 23, 2001 12:15 AM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] Fehlermeldung:


Keine Problem aufgetreten!
Ein Datenbankfehler ist aufgetreten

Error #-2147217900

Error desc. -> [Microsoft][ODBC Microsoft Access Driver] Unzul�ssige
SQL-Anweisung; 'DELETE', 'INSERT', 'SELECT' oder 'UPDATE' erwartet.



Wo ist der Fehler? Kann mir jemand weiterhelfen ??

Ich rufe in einem Formular aus einer db bestimmte Werte wie zum Beispiel
"Nickname" ab. Jetzt wird dieser Wert im Formular ge�ndert und an dieses
Script geschickt. Welches die Datenbank "updaten" soll mit den aktuellen
Werten in dem Formular.



cu Fichte



Hier der aktuelle Code:

Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=DM90_user;"
SQLstmt = "UPDATE"
SQLStmt = SQLstmt & "Vorname='" & Vorname & "',"
SQLStmt = SQLstmt & "Nachname='" & Nachname & "',"
SQLStmt = SQLstmt & "email='" & email & "',"
SQLStmt = SQLstmt & "url='" & url & "',"
SQLStmt = SQLstmt & "wohnort='" & wohnort & "',"
SQLStmt = SQLstmt & "Nickname='" & Nickname & "',"
SQLStmt = SQLstmt & "Passwort='" & Passwort & "',"
Set RS = Conn.Execute(SQLStmt)
If  err.number>0 then
      response.write "VBScript Errors Occured:" & "<P>"
      response.write "Error Number=" & err.number & "<P>"
      response.write "Error Descr.=" & err.description & "<P>"
      response.write "Help Context=" & err.helpcontext & "<P>"
      response.write "Help Path=" & err.helppath & "<P>"
      response.write "Native Error=" & err.nativeerror & "<P>"
      response.write "Source=" & err.source & "<P>"
      response.write "SQLState=" & err.sqlstate & "<P>"
else
      response.write "Keine Problem aufgetreten!" & "<P>"
end if
IF  conn.errors.count> 0 then
      response.write "Ein Datenbankfehler ist aufgetreten" & "<P>" for
counter= 0 to conn.errors.count
      response.write "Error #" & conn.errors(counter).number & "<P>"
      response.write "Error desc. -> " &
conn.errors(counter).description & "<P>" next else
      response.write SQLstmt
      response.write "Deine Daten wurden gespeichert!" & "<P>" end if
set rstemp=nothing Conn.Close set conntemp=nothing


| 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


| 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


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als archive@jab.org 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