fejl i asp billede upload

jeg kan ikke få det her til at virke:

<table cellpadding="0" cellspacing="0" border="0" width="430">
<tr>
    <td height="2">&nbsp;</td>
</tr>
<TR class="main">
    <TD class="os_blok_main">Tilføj billede</TD>
</TR>

<form method="POST" action="default?page=eventpic&gem=1" ENCTYPE="multipart/form-data">
<TR>
    <TD height="10px"></TD>
</TR>
<TR class="main">
    <TD>Billede navn</TD>
</TR>
<TR class="main">
    <TD><input type="text" name="picname" size="20"></TD>
</TR>
<TR class="main">
    <TD>Billede</TD>
</TR>
<TR class="main">
    <TD><input type="file" name="pic" size="20"></TD>
</TR>
<TR>
    <TD height="10px"></TD>
</TR>
<TR class="main">
    <TD><input type="submit" value="Tilføj"></TD>
</TR>
</form>

<% if gem = 1 then %>
<%

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

If mySmartUpload.Files.Item(1).IsMissing Then

else

mySmartUpload.Files("pic").SaveAs Server.MapPath("eventpic/event_" & request.form("picname") & ".jpg")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage server.MapPath("eventpic/event_" & request.form("picname") & ".jpg")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX

NewHeight = 50
NewWidth = 50
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.MapPath("eventpic/event_" & request.form("picname") & ".jpg")
Image.ImageFormat = 1
Image.JPEGQuality = 500
Image.ResizeR NewWidth,NewHeight

Image.FileName = server.mappath("eventpic/event_" & request.form("picname") & ".jpg")
Image.SaveImage

end if

end if

%>

</table>