nicht angemeldet
Dateiupload mit ASP plus Daten in DB eintragen
Guten Abend Forumer,
ich möchte einen Dateiupload, Verzeichniserstellung auf dem Webserver und verschiedene Einträge in einer Access DB mittels einer ASP Seite machen.
Nach langer Durchsicht in den Forum(-sarchiven) hier und durch diverse Beispiele hier in SelfHTML (und ein wenig auch mein Wissen..;-)) habe ich eine ASP Seite "gebastelt", in der Hoffnung, das es funzen würde. Ich habe verschiedene Möglichkeiten ausprobiert und leider doch nur einen Teilerfolg erzielt.
Nun meine Frage: Kann ich die o. g. Funktionen überhaupt in eine Seite betten? Oder geht das überhaupt nicht? Und wenn doch, wie?
Anbei ein Teil Ausschnitt aus meinem Code, damit es deutlicher wird, was ich meine. Dieser funzt so auch. Aber leider klappt der Upload damit nicht (ist jetzt auch nicht mehr im Code).
Kleiner Hinweiss noch: Ich schreibe den Code vor dem ersten "<HTML>" Tag.
Vielen herzlichen Dank im voraus
Tom
CODE ANFANG
.
DB Verbindung und DB öffnen etc...
.
verschiedenen If..else Bedingungen...
.
und dann...
elseif Request("Aktion") = "Erstellen" then
Dim Zeit
Zeit = Replace(time(), ":", "")
SQL = "SELECT * FROM Aktuell"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.Supports (adUpdate + adAddNew) Then
rs.AddNew
rs.Fields("Aktuell_Datum") = Request.Form("Aktuell_Datum")
rs.Fields("Aktuell_Inhalt") = Request.Form("Aktuell_Inhalt")
rs.Fields("Aktuell_Name") = Request.Form("Aktuell_Name")
If request.Form("Aktuell_Bild_Upload") <> "" then
Extensions = array()
str_temp = Split (request.Form("Aktuell_Bild_Upload"),"")
rs.Fields("Aktuell_Datei") = str_temp (UBound(str_temp))
Dim fso, f, fo
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(Server.MapPath("/Stillen_Work/NewsOrdner/" + Zeit))
rs.Fields("Aktuell_Ordner") = Zeit
CreateFolderDemo = f.Path
set fso = nothing
set f = nothing
end if
.
.
Datensatz abschließen, DB schließen, response.redirect, etc...
CODE HIER ZUENDE...