Hjælp til ændring af script

Jeg har dette script, som er til at uploade billedfiler med, scriptet er hentet fra activeserverpages.
Jeg søger nogen som kan hjælpe mig med lidt omskrivning af dette, så det samtidig også kan indsætte noget tekst i en tabel, så som billedesti, varenr og varebeskrivelse. Det var meningen at jeg ville bruge det til oprettelse af en ny vare i en db.
Så alting skulle gerne forgå på samme side.
Jeg ved ikke om det er nødvendigt at poste include-filen her.
-------------------------------------------
<%@ Language=\"VBScript\" %>
<%  Option Explicit %>

<!-- #INCLUDE FILE=\"fileupload.inc\" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
\'*************************************
\'**** Test af FileUpload funktion ****
\'****                            ****
\'**** Upload .gif eller .jpg      ****
\'**** billede til mappen /upload  ****
\'*************************************

    \'Skal formen vises?
    If Request.ServerVariables(\"REQUEST_METHOD\") <> \"POST\" Then
%>
<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"uploadgfx.asp\" METHOD=\"POST\">
<P>Vælg et billede:<BR>
<INPUT NAME=\"fileupload\" TYPE=\"file\"><BR>
<INPUT NAME=\"Action\" TYPE=\"submit\" VALUE=\"Upload\">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload(\"upload/\", 20000, Array(\"image/gif\", \"image/jpeg\", \"image/pjpeg\"), Array(\"gif\", \"jpg\"), strContentType, strFilename, intFileTotalBytes)

        If intFileUpload = 0 Then
            Response.Write \"Filen \" & strFilename & \" blev uploaded.<BR>\"
            Response.Write \"Det er en fil af typen \" & strContentType & \" og den fylder \" & intFileTotalBytes & \" bytes:<BR>\"
            Response.Write \"<IMG SRC=\"\"upload/\" & strFilename & \"\"\"><BR>\"
        Else 
            Response.Write \"Der opstod en fejl under upload!<BR>\"
            Response.Write \"Fejl nr: \" & intFileUpload & \"<BR>\"
            Response.Write \"Filnavn: \" & strFilename & \"<BR>\"
            Response.Write \"Filtype: \" & strContentType & \"<BR>\"
            Response.Write \"Filstørrelse: \" & intFileTotalBytes & \"<BR>\"
        End If
    End If
%>
</BODY>
</HTML>