upload kun billeder og tjek om der bliver upload'et
har denne kode til et upload.. og det virker fint.. skal bare have lavet så man kun kan uploade billeder (.gif,.jpg,.jpeg,.bmp) og den skal tjekke om der er en fil, at upload for.. hvis man bare trykker på "upload"knappen så laver den filen bare tøm....\p+<%mode = request.QueryString("mode")
if mode = "" then%>
<form action="?mode=up" method="post" enctype="multipart/form-data">
<input type="file" size=40 name="File1"><br>
<input type="submit" value="Upload">
</form>
<%
elseif mode = "up" then
Dim objUpload
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.MaxFileSize = 100000
On Error Resume Next
Dim strUploadPath
strUploadPath = "/upload/"
Dim intFileCount
intFileCount = 0
Session("idnummer") = "DanGer"
objUpload.Upload
' & file.FileExt
for each file in objUpload.files
file.SaveAs Server.MapPath(Lcase(strUploadPath & Session("idnummer") & ".gif"))
intFileCount = intFileCount + 1
next
'objUpload.SaveAs Server.MapPath(strUploadPath & "Danger." & file.FileExt)
If Err Then
Response.Write "Der opstod en fejl :<br>" & vbCrLf
Response.Write Err.Description
Else
Response.Write "fil er uploadet.<br>" & vbCrLf
End If
On Error Goto 0
Set objUpload = Nothing
end if
%>
