ASPSmartUpload og Forms
Jeg er ved at lave et nyhedssystem, hvor jeg selv kan oploade et billede tilteksten. Har lavet en html side hvor jeg indtaster:
emne
body
og vælger et billede
Disse informationer vil jeg så gerne gemme i en access db men kan kun få
billedets navn gemt, emne og body er bare tomme i db'en.
Håber der er nogen som kan hjælpe.
Med Venlig Hilsen
Frank Sørensen
KODEN
*********************
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,gif"
mySmartUpload.DenyPhysicalPath = True
mySmartUpload.MaxFileSize = 50000
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("Upload/" & file.FileName)
Response.Write("Navn = " & file.Name & "<BR>")
Response.Write("Størrelse = " & file.Size & "<BR>")
Response.Write("Fil navn = " & file.FileName & "<BR>")
strBillede = file.FileName
Response.Write("Fil type = " & file.FileExt & "<BR>")
Response.Write("Fil sti = " & file.FilePathName & "<BR>")
%>
<img src="Upload/<%=(file.FileName)%>">
<%
End If
Next
' Data skrives i databasen
' ***********************
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../_db_login47/_log_sys_47.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From tb_arkNews"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("emne") = mySmartUpload.Form("emne")
rs("body") = mySmartUpload.Form("body")
rs("pic") = strBillede
rs("dato") = Now
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>