Upload fil til DB.
Hej EksperterJeg har fundet dette script og det "virker" sådan set godt nok. Jeg får svar at filen er uploaded uanset om jeg uploader til disk eller database. Problemet er bare at der ikke bliver lagt nogt på hverken disk eller DB. er der noget der kan se hvad jeg gør forkert ?
<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="upload.asp" -->
<%
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
Response.Write "<b>Thank you for your upload " & Uploader.Form("fullname") & "</b><br>"
' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items
' Check where the user wants to save the file
If Uploader.Form("saveto") = "disk" Then
' Save the file
File.SaveToDisk "C:\UploadedFiles\"
ElseIf Uploader.Form("saveto") = "log" Then
' Open the table you are saving the file to
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "nyhed", "CONNECT STRING OR ADO.Connection", fullname, file1
RS.AddNew ' create a new record
RS("filename") = File.FileName
RS("filesize") = File.FileSize
RS("contenttype") = File.ContentType
' Save the file to the database
File.SaveToLog RS("filedata")
' Commit the changes and close
RS.Update
RS.Close
End If
' Output the file details to the browser
Response.Write "File Uploaded: " & File.FileName & "<br>"
Response.Write "Size: " & File.FileSize & " bytes<br>"
Response.Write "Type: " & File.ContentType & "<br><br>"
Next
End If
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
Min DB hedder Log og tabellen Nyhed.
Hilsen Liri
