Hi Leute!
Möchte es Usern ermöglichen Ein Formular auszufüllen indem auch Bilder hogeladen werden sollen... und der Bildpfad sollte dann in einer Access DB gespeichert werden...
Bis jetzt gehe ich so vor (Der Normale Upload auf den Server klappt schon mit:)
' Das ist das Formular selbst
<form METHOD="POST" ACTION="/~upload/upload.asp" ENCTYPE="multipart/form-data">
<input TYPE="FILE" NAME="FILE1" SIZE="50"><br>
<input TYPE="SUBMIT" VALUE="Upload">
</form>
' Das die eigentlich upload.asp Datei
' Dateigrößenlimit von 10000 Bytes
' Erlaubte Dateiformate gif, jpg
<%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 10000
mySmartUpload.AllowedFilesList = "gif,jpg"
mySmartUpload.Upload
intCount = mySmartUpload.Save(Server.Mappath("/~upload/"))
Response.Write(intCount & " Datei(en) hochgeladen")
%>
Nun möchte ich aber dass der Uploadpfad in einer DB gespeichert wird um später wieder abgerufen werden...
Aber wie ermittle ich den Pfad?
Zugriff auf die DB bekomme ich so:
' Es werden die vorhin ausgefüllten Formularfelder angesprochen und in die Datenbank eingefügt
<%
Dim conn, rs
Dim strConnection
strConnection = Application("Immo_ConnectionString")
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 2 ' adUseServer
rs.CursorType = 1 ' adOpenKeyset
rs.LockType = 3 ' adLockOptimistic
strSQL = "SELECT * FROM Immo WHERE ID = 0"
rs.Open strSQL, conn
rs.AddNew
rs("Ort") = Request.Form("Ort")
rs("Preis") = Request.Form("Preis")
rs("Kennwort") = Request.Form("Kennwort")
rs("Mail") = Request.Form("EMail")
' Hier sollte nun auch der Pfad der Upload Datei übertragen werden in das den Recordset:
rs ("Bildpfad") = ?????
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
Wie könnte ich das realisieren?
MFG
Markus