upload af billeder via SA Fileup

Hello
Jeg har et interface, hvor brugeren skal have mulighed for at uploade alm gif og jpg billeder samt oplysninger om vinen til en access-database.

Interfacet 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\">

<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>

Her indtastes data og nederst vedhæftes et billede som skal uploades. Denne eneste jeg mangler er at integrere koden til upload af billeder.

Her er filen savenew.asp, som kaldes fra ovenstående når brugeren har tastet tilføj:
<!-- #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\")

%>
Den laver en forbindelse til databasen og indsætter data. Hvad skal der tilføjes idenne før billeder kan uploades?? Jeg har et felt \'Billeder\' i databasen vin som skal indeholde billederne.

Please help, jeg ved at kode-tilføjelserne er begrænset, men jeg kan bare ikke få noget til at virke. Jeg ved at jeg skal inkludere enctype=\"multipart/form-data\" øverst i form, men hver gang jeg prøver dette får jeg fejl.