upload af billeder

hej.
Har lavet følgende asp.dokument new.asp kalder savenew.asp med data som brugeren taster ind i formen. I denne form skal brugeren også have mulighed for at uploade billede samtidig med alm data til databasen. new.asp ser således ud:

<HTML>
<HEAD>
<TITLE>New Record</TITLE>
</HEAD>
<BODY BACKGROUND=\"http://www.falslev.dk/TEST - ERIK/Billeder/bg1.gif\">
<!-- #include file=\"header.inc\" -->

<form method=\"post\" ID=form NAME=form action=\"savenew.asp\">
<INPUT TYPE=\"hidden\" NAME=\"Info\" VALUE=\"-\">
<table bgcolor=#E8E7DC border=\"1\" borderColorDark=\"#999999\" borderColorLight=\"#999999\" cellPadding=\"4\" cellSpacing=\"0\" align=center class=white WIDTH=\"500\">
<TR>
<TD >VARE NR :</TD>
<TD ><INPUT size=10 TYPE=Text Name=VareNr></TD>
</TR>
<TR>
<TD >VIN :</TD>
<TD ><INPUT size=15 TYPE=Text Name=Overskrift></TD>
</TR>
<TR>
<TD>VINTYPE :</TD>
<TD><INPUT size=15 TYPE=Text Name=Vintype></TD>
</TR>
<TR>
<TD>ÅRGANG :</TD>
<TD><INPUT size=15 TYPE=Text Name=Argang></TD>
</TR>
<TR>
<TD>LAND :</TD>
<TD><INPUT size=15 TYPE=Text Name=Land></TD>
</TR>
<TR>
<TR>
<TD>LAGER :</TD>
<TD><INPUT size=5 TYPE=Text Name=Lager></TD>
</TR>
<TR>
<TD>PRIS :</TD>
<TD><INPUT size=5 TYPE=Text Name=Pris></TD>
</TR>
<TR>
<TD>BESKRIVELSE :</TD>
<TD ><TEXTAREA rows=4 cols=34 Name=\"Beskrivelse\"></TEXTAREA></TD>
</TR>
<TR>
<TD>BILLEDE :</TD>
<TD><INPUT size=35 TYPE=file Name=fil></TD>
</TR>
<TR>
<TD ALIGN=\"center\" COLSPAN=\"2\"><INPUT size=40 TYPE=Submit Value=TILFØJ id=Submit1 name=Submit1>
&nbsp; &nbsp;<INPUT TYPE=Reset Value=SLET id=Reset1 name=Reset1><BR></TD>
</TR>

</TABLE>
</FORM>

</BODY>
</HTML>

savenew.asp ser således ud:

<!-- #include file=\"ADOVBS.inc\" -->
<%

\'Creating a DSN-Less connection to your Database
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../../../../scripts/vinhandel/vin.mdb\")

\'Creating the Recordset Object
Set rsSave = Server.CreateObject(\"ADODB.RecordSet\")

Function MyLookNiceString(MyVariable)
    If IsNull(MyVariable) Or (Len(CStr(MyVariable)) = 0) Then
        MyLookNiceString = \"\"
    Else
        MyLookNiceString = MyVariable
    End If
End Function

Dim rsSave

rsSave.open \"vin\", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable

rsSave.addnew

rsSave(\"VareNr\") = MyLookNiceString(request.form(\"VareNr\"))
rsSave(\"Overskrift\") = MyLookNiceString(request.form(\"Overskrift\"))
rsSave(\"Vintype\") = MyLookNiceString(request.form(\"Vintype\"))
rsSave(\"LandID\") = MyLookNiceString(request.form(\"Land\"))
rsSave(\"Årgang\") = MyLookNiceString(request.form(\"Argang\"))
rsSave(\"Pris\") = MyLookNiceString(request.form(\"Pris\"))
rsSave(\"Lager\") = MyLookNiceString(request.form(\"Lager\"))
rsSave(\"Beskrivelse\") = MyLookNiceString(request.form(\"Beskrivelse\"))

rsSave.update
rsSave.close
set rsSave = Nothing

response.redirect(\"se.asp\")

%>

Hvad skal der tilføjes i savenew.asp (og evt. new.asp), så brugeren også kan uploade billeder??