Frohes Fest Liebe Liste,
ich habe folgendes Problem ich m�chte mit ASPSMARTUPLOAD oder �hnlichen
Programm Dateien in eine Accessdatenbank schreiben. Das habe ich auch
schon geschafft (Juhu). Nun aber mein Problem:
Ich habe Zwei Formulare:
Name, Email usw. und
Dateiupload.
Ich bekomme es zwar hin das ich die Formulardaten in die Datenbank
schreibe und mit dem anderen Formular auch das ich Dateien Uploaden
kann, aber wenn ich alles in 1 Formular machen will geht es nicht.
Ich muss es aber doch zusammen machen damit ich auch wei� wer hat was
gesendet oder mache ich da einen Denkfehler??
Sprich User gibt sein Namen, Email und Bild an und das soll alles in die
Accessdatenbank rein. Hilfe
Hier mal meine Codes:
Sample.htm
<form method="POST" action="sample.asp" ENCTYPE="multipart/form-data">
Name:<input type="text" size="20" name="Name"> File 1:<input type="File"
size="20" name="FILE1">
<input type="submit" value="Abschicken"><input type="reset"
value="Zur�cksetzen" name="B2">
Sample.asp
-------------------------------------
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim Connect
Dim Classifieds
Dim intCount
intCount=0
' Object creation
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
mySmartUpload.Upload
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "meinebilder"
' Open a recordset
strSQL = "SELECT FILENAME,FILE FROM BILDER"
Set Classifieds = Server.CreateObject("ADODB.recordset")
Set Classifieds.ActiveConnection = Connect
Classifieds.Source = strSQL
Classifieds.LockType = 3
Classifieds.Open
' Select each file
For each file In mySmartUpload.Files
' Only if the file exist
If not file.IsMissing Then
' Add the current file in a DB field
Classifieds.AddNew
file.FileToField Classifieds.Fields("FILE")
Classifieds("FILENAME") = file.FileName
Classifieds.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
Response.Write(intCount & " file(s) uploaded.<BR>")
' Destruction
Classifieds.Close
Connect.Close
Set Classifieds = Nothing
Set Connect = Nothing
%>
Hilfe
Michael
| [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
