<%@ Language=VBScript %>
<!-- #include file="clsUpload.asp" -->
<html>
<body>
<form method=post
      enctype="multipart/form-data"
      action=upload.asp>
Your File:<BR><input type=file name=YourFile><BR><BR>
<input type=submit name=submit value="Upload">
</form>
<HR>
<%
Dim objUpload, lngLoop

If Request.TotalBytes > 0 Then
	Set objUpload = New clsUpload
%>
File(s) Uploaded: <%= objUpload.Files.Count %>
<BR><BR>
<%
  For lngLoop = 0 to objUpload.Files.Count - 1
    'If accessing this page annonymously,
    'the internet guest account must have
    'write permission to the path below.
    objUpload.Files.Item(lngLoop).Save "c:\inetpub\wwwroot\ecommerce\productImages\"

  Next
End If
%>
<hr>
<a href="admin.asp">Back</a>
</body>
</html>