Dim sSavePath As String
Dim strMessage As String
Dim sFile As HttpPostedFile
Dim strFileName As String
Dim iCtr As Integer

sSavePath = Request("save_path")

For iCtr = 0 To Request.Files.Count - 1
    sFile = Request.Files(iCtr)
    If (iCtr Mod 2) Then
        Response.Write("<tr bgcolor=""#FFFF99"">")
    Else
        Response.Write("<tr>")
    End If

    Response.Write("<td align=""left"">" & sFile.FileName & "</td> ")
    Response.Write("<td align=""right"">" & sFile.ContentLength & "</td></tr> ")

	If sFile.FileName <> "" Then
		strFileName = sFile.FileName
		strFileName = strFileName.Substring(strFileName.LastIndexOf("\") + 1)
		Try
			sFile.SaveAs(sSavePath & strFileName)
			strMessage &= "Uploaded: " & sSavePath & strFileName & "<br>"
		Catch Ex As Exception
			strMessage &= "Failed uploading " & strFileName & ": " & Ex.ToString() & "<br>"
			Response.Write("<tr><td align=center>" & strMessage & "</td></tr>")
		End Try
	End if
Next