Markus: Dateiupload auf Server und in Access DB

Beitrag lesen

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