%@ Language=VBScript %>
<%
Response.Buffer = True
Server.ScriptTimeout = 9999
Dim objUpload, lngLoop
If Request.TotalBytes > 0 Then
Set objUpload = New clsUpload
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 server.mappath("DB\file")
Next
%>
<%
RESPONSE.END
End If
%>