Får inget filnamn, upload.

Håller på med ett litet administreringssystem till en sida.
Har den här koden:

Public Sub UploadNew()
	If Request.QueryString("stage") = "1" Then
		Dim m
		SELECT CASE month(date)
			Case "1" m = "Januari"
			Case "2" m = "Februari"
			Case "3" m = "Mars"
			Case "4" m = "April"
			Case "5" m = "Maj"
			Case "6" m = "Juni"
			Case "7" m = "Juli"
			Case "8" m = "Augusti"
			Case "9" m = "September"
			Case "10" m = "Oktober"
			Case "11" m = "November"
			Case "12" m = "December"
			Case else Call Error()
		END SELECT
		%><form method="post" action="Default.asp?action=UploadNew&stage=2" ENCTYPE="multipart/form-data">
		<table>
			<tr>
				<td colspan="2" class="bttitle">Ladda upp</td>
			</tr>
			<tr>
				<td>Nummer:</td>
				<td><input type="text" name="number" value="<%=m & " " & year(date)%>"></td>
			</tr>
			<tr>
				<td>Fil:</td>
				<td><input type="file" name="file"><br><span style="color: #ff0000;">OBS!! Filen måste vara av pdf-format!</span></td>
			</tr>
			<tr>
				<td>&nbsp;</td>
				<td><input type="submit" value="Ladda upp"></td>
			</tr>
		</table>		
		</form><%
	ElseIf Request.QueryString("stage") = "2" Then
		If Right(Request.Form("file"), 3) <> "pdf" Then
			Call Error()
		Else
			Dim number, path, filename, Upload
			number = CStr(Trim(Request.Form("number")))
			path = Server.MapPath("../num")
			filename = Trim(number) & ".pdf"
			Set Upload = Server.CreateObject("SoftArtisans.FileUp")
			Upload.Path = path
			Upload.SaveAs = filename
			Set Upload = Nothing
			Response.Write(filename)
		End If
	Else
		Call Error()
	End If
End Sub

Men variabeln filename innehåller bara .pdf. Varför detta?