Upload af billede
Kan jeg ikke sprøge på request.fomr("file") når det er en upload. Nedenstående if ser i hver fald ikke ud til at virke<% if request.form("file") <> "" then
Dim upload
Dim strLokation
Set Upload = Server.CreateObject("Persits.Upload.1")
strLokation = request.form("lokation")
Upload.OverWritefiles = True
Upload.SetMaxSize 300000, True
On Error Resume Next
Upload.save
' 8 = for stor fil
if Err.Number = 8 then
' description 1 = for stor fil
response.write "<tr><td><font color='#00FF00'>Filen er større end de tilladte 300 KB</td></tr>"
else
if Err <> 0 then
' description 2 = anden fejl
response.redirect "<tr><td><font color='#00FF00'>Der opstod en ukendt fejl</td></tr>"
' Response.Write "Der opstod en fejl: " & Err.Description
else
For Each File in Upload.Files
if file.ext = ".jpg" then
File.SaveAsVirtual "../../images/upload/" & file.Filename
Dim strFileName
strFileName = file.FileName
else
' description 2 = forkert format
response.redirect "<tr><td><font color='#00FF00'>Du kan kun uploade filer af typen .jpg</td></tr>"
Upload.close
set Upload = Nothing
end if
next
end if
end if
Upload.close
set Upload = Nothing
else %>
<table cellpadding="10">
<form method="post" enctype="multipart/form-data" action="">
<input type="hidden" name="lokation" value="forside">
<tr>
<td colspan="2"><strong>Upload billede</strong></td>
</tr>
<tr>
<td><strong>Sti:</strong></td>
<td><input type="file" size="50" name="file" id="textfield_verylarge"></td>
<tr>
<td></td>
<td><input type="submit" value="Upload" id="smallbutton"></td>
</tr>
</table>
</form>
</div>
<% end if%>
