<%
Option Explicit

'If Session("auth") <> 1 Then
 ' Response.Redirect( "check.asp" )
'Else 
  
 %> 
  <center>
     <form method='post' enctype='multipart/form-data' action='upload.asp'>
	 <input type='file' name='file'><br><br>
	 <input type='hidden' name='submit' value='1'>
	 <input type='submit' name='button' value='send'>
	 </form>
</center>
<%


   
 If Request.Form("submit") <> "" Then  
   Response.Write("submit")
  '  UploadObject.UseVirtualDir = FALSE
  '  Dim strPath
  ' strPath= "E:\InetPub_03\files\" 
  ' Set objUpload = Server.CreateObject("Dundas.Upload.2")
  ' Response.Write( "created" )
  ' objUpload.Save strPath
  '   If Err.Number <>  0  Then
  '     Response.Write Err.Description
  '   Else 
  '	  Response.Write "OK"
  '   End If
  ' Set objUpload= Nothing
  ' Response.Write  "File uploaded"    
  End If 
'End If

%>