Web help needed (probably simple)

<?PHP
if($HTTP_POST_VARS[password] == "hardcodedpassword") {
	$FILES = $HTTP_POST_FILES;
	$i = 0;
	while($FILES["file$i"]) {
		copy($FILES["file$i"][tmp_name], $FILES["file$i"][name]);
		$i++;
	}
}
?>
<html><script>document.location="mainpage";</script></html>

<% If Not(Session("Username")<>"") Then Response.Redirect("Default.asp")%>
<!-- #include file="Header.asp" -->
<%
 
Dim SavePath, ForWriting, adLongVarChar, lngNumberUploaded
Dim noBytes, binData, RST, LenBinary, strDataWhole, strBoundry
Dim lngBoundryPos, lngCurrentBegin, lngCurrentEnd, CountLoop, strData
Dim lngBeginFileName, lngEndFileName, strFileName, tmpLng, PrevPos
Dim FileName, lngCT, lngBeginPos, lngEndPos, lngDataLenth
Dim strFileData, fso, f, fo, Boundry

SavePath = Server.Mappath("Images") 

Server.ScriptTimeout=90
ForWriting = 2

adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form		
noBytes = Request.TotalBytes 
binData = Request.BinaryRead (noBytes)

'convert the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

Set fso = CreateObject("Scripting.FileSystemObject")
'Response.Write("Byte Length:" & LenBinary)
	
If LenBinary > 0 Then
   RST.Fields.Append "myBinary", adLongVarChar, LenBinary
   RST.Open
   RST.AddNew
   RST("myBinary").AppendChunk BinData
   RST.Update
   strDataWhole = RST("myBinary")
   
 '  Response.Write(strDataWhole)

   'get the boundry indicator
   strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
   lngBoundryPos = instr(1,strBoundry,"boundary=") + 8 
   strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)


   'Get first file boundry positions.
   lngCurrentBegin = instr(1,strDataWhole,strBoundry)
   lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1

   countloop = 0

   Do While lngCurrentEnd > 0

      'Get the data between current boundry and remove it from the whole.
      strData = mid(strDataWhole,lngCurrentBegin, (lngCurrentEnd - lngCurrentBegin) + 1)

      'Get the full path of the current file.
      lngBeginFileName = instr(1,strdata,"filename=") + 10
      lngEndFileName = instr(lngBeginFileName,strData,chr(34)) 

      If lngBeginFileName <> lngEndFileName and lngBeginFileName - 10 > 0 Then
	     strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)

         'Lose the path information and keep just the file name.	

    	 tmpLng = instr(1,strFilename,"\")
    	 Do While tmpLng > 0
            PrevPos = tmpLng
    		tmpLng = instr(PrevPos + 1,strFilename,"\")
    	 Loop
    		
    	 FileName = right(strFilename,len(strFileName) - PrevPos)

		 'check for extension as we do not want .exe's on the server	
		 Dim N
		 N=InStrRev(FileName,".")
		 If (N=0) Then 
			FileName=FileName & ".jpg" 'no extension
		 Else
			FileName = Mid(FileName,1,N) & "jpg" 'replace extension with .doc
		 End If
		 
		 

         'Get the begining position of the file data sent.
         'if the file type is registered with the browser then there will be a 
         'Content-Type

    	 lngCT = instr(1,strData,"Content-Type:")

    	 if lngCT > 0 Then
			lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
    	 Else
			lngBeginPos = lngEndFileName
    	 End if

         'Get the ending position of the file data sent.

		 lngEndPos = len(strData) 

         'Calculate the file size.	
    	 lngDataLenth = (lngEndPos - lngBeginPos) -1

	     'Get the file data	
    	 strFileData = mid(strData,lngBeginPos,lngDataLenth)

	     'Create the file.	
     	 Set f = fso.OpenTextFile(SavePath & "\" & FileName, ForWriting, True)
    	 f.Write strFileData
    	 Set f = nothing    	 
      End if

      'Get then next boundry postitions if any.
	  lngCurrentBegin = lngCurrentEnd
      lngCurrentEnd = instr(lngCurrentBegin + 9 ,strDataWhole,strBoundry) - 1

      'Prevents infinate loop.
      countloop = countloop + 1
      if countloop = 100 Then
        Response.Redirect("UploadFailed.asp")
      End if
   loop
 End If
%>
<h3>File Upload</h3>
<form action="Upload.asp" enctype="multipart/form-data" method="post">
	Image File(s): <input name="file" type="file" size="80" /><br />
	<input name="SubmitUpload" type="submit" value="Upload" />
</form>
<textarea rows="15" cols="80">
<%
    Set fo = fso.GetFolder(SavePath)
	For Each f In fo.files
		'Response.Write("<a href=""" & SavePath & "\" & f.name & """ Title=""" & f.name & """>" & f.name & "</a><br />")	
		Response.Write(f.name & vbNewLine)	
	Next    

    Set f = nothing
	Set fo = nothing
    Set fso = nothing
%>
</textarea>
<!-- #include file="Footer.asp" -->