Findes fil i forvejen med aspsmartupload
Jeg har en form hvor jeg indsætter nogle text felter, samt file felter i access DB samtidig med at billeder uploades i mappen billeder. Hertil vil jeg gerne have at der bliver tjekket om filerne findes i forvejen så der ikke er nogle filer der bliver overskrevet. Men jeg ved ikke hvorledes jeg gør dette i aspsmartupload. Nogle der kan hjælpe med hvad og hvor dette skal indføres (det er ikke altid at der uploades billeder, så der må ikke gå kuk i scriptet hvis file felterne ikke anvendes)?sql.asp:
--------
<%
Dim objUpload ' Definer en variabel til objektet
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.MaxFileSize = 50000
On Error Resume Next
Dim strUploadPath ' Definer en variabel til stien
strUploadPath = "billeder/"
Dim intFileCount
objUpload.Upload
intFileCount = objUpload.Save(Server.MapPath(strUploadPath))
If Err Then
Response.Write "Der opstod en fejl :<br>" & vbCrLf
Response.Write Err.Description
Else
Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vti_log/database.mdb")
Conn.Open DSN
strSQL = "Insert into tabel (navn, beskrivelse, File1, File2, File3) values('" & Replace(objUpload.Form("navn"), "'", "''") & "', '" & Replace(objUpload.Form("beskrivelse"), "'", "''") & "', '" & Replace(objUpload.Files.Item("File1").FileName, "'", "''") & "', '" & Replace(objUpload.Files.Item("File2").FileName, "'", "''") & "', '" & Replace(objUpload.Files.Item("File3").FileName, "'", "''") & "')"
Conn.Execute(strSQL)
Response.write "Informationen er nu blevet indsat i databasen."
Conn.Close
Set Conn = Nothing
End If
On Error Goto 0
Set objUpload = Nothing
%>
