Ændring af Upload komponent

Er der nogen som kan hjælpe mig med at ændre en form, der er lavet til at indsætte en tekst i en database og samtidig uploade et billede. Problemet er at det er lavet med SA-FileUp, men min webserver understøtter kun aspSmartUpload (www.aspsmart.com), men den skulle kunne nogenlunde det samme.

Oprindelig fil der virder:

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
\' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=\"\"
MM_authFailedURL=\"login.asp\"
MM_grantAccess=false
If Session(\"MM_Username\") <> \"\" Then
  If (true Or CStr(Session(\"MM_UserAuthorization\"))=\"\") Or _
        (InStr(1,MM_authorizedUsers,Session(\"MM_UserAuthorization\"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = \"?\"
  If (InStr(1,MM_authFailedURL,\"?\") >= 1) Then MM_qsChar = \"&\"
  MM_referrer = Request.ServerVariables(\"URL\")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & \"?\" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & \"accessdenied=\" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
response.buffer = true
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

uploadsti = server.mappath(\".\") & \"\\billeder\"
uploadsti2 = uploadsti & \"\\\"

Set upl = Server.CreateObject(\"SoftArtisans.FileUp\")


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db1.mdb\") & \";UID=;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From Brugt\"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs(\"Navn\") = Server.HTMLEncode(upl.form(\"Navn\"))
rs(\"Type\") = Server.HTMLEncode(upl.form(\"Type\"))
rs(\"Beskrivelse\") = Server.HTMLEncode(upl.form(\"Beskrivelse\"))
rs(\"Pris\") = Server.HTMLEncode(upl.form(\"Pris\"))
rs.Update
id = rs(\"id\")
rs.Close
Set rs = Nothing


if upl.Form(\"billede\").TotalBytes = \"0\" then
billede = \"\"
else
billede = id & \".jpg\"
save = uploadsti2 & billede
upl.Form(\"billede\").SaveAs save
end if

Conn.Execute(\"UPDATE DISTINCTROW Brugt SET billede = \'\" & billede & \"\' WHERE id = \" & id)
Conn.Close
set Conn = Nothing
response.redirect (\"vis.asp?id=\" & id)

else

%>
<HTML>
<HEAD><TITLE> - </TITLE></HEAD>
<BODY bgcolor=\"#FFFFFF\">
<font size=\"6\" face=\"Arial, Helvetica, sans-serif\" color=\"#FF0000\">Indtast emne
</font>
<form enctype=\"multipart/form-data\" method=\"post\" action=\"new.asp\">
<font color=\"CC0000\"><% =request.querystring(\"fejl\") %></font><BR>
  <font face=\"Arial, Helvetica, sans-serif\">Navn:<BR>
  <input type=\"text\" name=\"Navn\" size=\"30\">
  <BR>
  <br>
  Type:<BR>
  <input type=\"text\" name=\"Type\" size=\"30\">
  <BR>
  <br>
  Beskrivelse:<BR>
  <textarea name=\"Beskrivelse\" cols=\"30\" rows=\"4\"></textarea>
  <BR>
  <br>
  Pris:<BR>
  <input type=\"text\" name=\"Pris\" size=\"20\">
  <BR>
  <br>
  Billede:</font><BR>
  <input type=\"file\" name=\"billede\" size=\"30\">
  <BR>
  <br>
  <input type=\"submit\" value=\"Gem\">
</form>
</BODY>
</HTML>
<% end if %>