=== CUT ===
Set Conn = CreateObject("ADODB.Connection")
Conn.Open Application("strConn")
Set RS1 = CreateObject("ADODB.Recordset")
RS1.Cursortype = 1
RS1.LockType = 3
RS1.Open "SELECT Top 1 * FROM Empfehlung ", Conn
RS1.AddNew
RS1("eMail") = arrRcpt(i)
RS1("SID") = Session("ID")
RS1("Datum") = now
RS1.Update
Comp = RS1("ID")
RS1.Close
Response.write("Mail ergeht soeben an: "&arrRcpt(i))&"<br>"
JMail.ClearRecipients
JMail.AddRecipient arrRcpt(i)
JMail.Execute
next
=== CUT ===
Script macht folgenedn Fehler:
Microsoft OLE DB-Provider f�r SQL Server error '80040e21'
Es sind einige Fehler aufgetreten.
/neu/empf.asp, line 129
129: RS1.Update
Wenn ich das RS1.AddNew weglasse, dann gibt's keine Fehler...
Idee?
-stefan-
| [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
