This should be saving the 3 files. It acts like it does, and it finished without errors, but they are just no there.
Code:
Add a wallpaper
<form action="addwp.asp" ENCTYPE="multipart/form-data" method="post">
Terragen:<input type="radio" name="wp" value="1" checked><br>
Other:<input type="radio" name="wp" value="2"><br>
800x600:<INPUT TYPE="FILE" NAME="w800"><br>
1024x768:<INPUT TYPE="FILE" NAME="w1024"><br>
1280x1024:<INPUT TYPE="FILE" NAME="w1280"><br>
<input type="submit" value="Add Wallpaper"><br>
</form>
Code:
<% @Language=VBScript %>
<%
Dim oFileUp
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
oFileUp.Path = Server.MapPath("images/wallpapers")
oFileUp.Form("w800").Save
oFileUp.Form("w1024").Save
oFileUp.Form("w1280").Save
response.write("Wallpaper saved.")
Set oFileUp = Nothing
%>
|
