Hallo Leute!
Folgender Code:
-----------
<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("bilder.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS
Access;MaxBufferSize=512;PageTimeout=5;"
Response.Write "Beginne Datenbankeintragung<br>"
Function ListFiles(Path)
Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(Path)
Set files = dir.Files
For Each file in files
strDateiPfad = Request.Querystring("Photo")
intPos = InStrRev(strDateiPfad,"\")
strOrdner = Left(strDateiPfad, intPos)
strName = Mid(strDateiPfad, intPos+1)
Response.Write file.name & "<BR>"
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject ("ADODB.Recordset")
rs.Open "SELECT * FROM Joytravel", conn
rs.AddNew
rs.fields("Bild") = file.name
rs.fields("Name") = strName
rs.fields("Pfad") = Request.Querystring("Photo")
rs.Update
rs.Close
conn.Close
Next
End Function
ListFiles Request.Querystring("Photo")
Response.Write "<BR>Eintragung fertig!"
%>
-----------
Und die dazugeh�rige Fehlermeldung:
-----------
ADODB.Recordset-Fehler '800a0cb3'
Die von der Anwendung angeforderte Operation wird von dem Provider nicht
unterst�tzt.
/jt/seiten/bilderdb.asp, Zeile 33
-----------
Zeile 33 ist die mit rs.AddNew.
Was ist denn hier nicht in Ordnung?
Dankesch�n
Stefan
| 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
