legge inn til tekst i database

Jeg har et script hvor jeg legger inn bilde i en folder og stien i en database.

Scriptet virker men jeg vil gjerne legge inn tekst i databasen også. Hvordan gjør jeg det?

Her er scriptet:

svar.asp:

<%@ Language="VBScript" %>
<%  Option Explicit %>



<!-- #INCLUDE FILE="fileupload4inc.asp" -->
<%
    Dim objDict, rs, sql, str, allowedDir
str = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db1.mdb")
set rs = Server.createObject("ADODB.Connection")
    'Hent fil og evt. øvrige data
    Set objDict = FileUpload(Null, 1000000, Null, Array("gif", "jpg", "jpeg"), Null, True, False)
    'Giv passende resultat
    If objDict("FILEUPLOAD_STATUS") = 0 Then
        'Giv en positiv besked
        'Response.Write "Filen <A HREF=""" & objDict("FILEUPLOAD_URL") & """>" & objDict("FILEUPLOAD_FILENAME") & "</A> er uploaded til mappen " & objDict("FILEUPLOAD_DIR") & "<BR>"
        'Response.Write "Det er en fil af typen " & objDict("FILEUPLOAD_CONTENTTYPE") & " og den fylder " & objDict("FILEUPLOAD_SIZE") & " bytes.<BR>"
rs.open str
sql = "insert into billeder(sti) VALUES('"&objDict("FILEUPLOAD_URL")&"')"
set rs = rs.execute(sql)
response.redirect("minside.asp")
    Else
        'Giv en negativ besked
response.write(objDict("strFileSpec"))
        Response.Write objDict("FILEUPLOAD_STATUSTXT") & " (Fejl nummer " & objDict("FILEUPLOAD_STATUS") & ")<BR><a href='submit.asp'>Prøv igen</a>"
    End If


%>



submit.asp:

&nbsp;<BR>

<B>Upload billede</B><BR>

<FORM ENCTYPE="multipart/form-data" ACTION="../scripts/svar.asp" METHOD="POST">


<P>Vedl&aelig;g et billede:<BR>
<INPUT NAME="fileupload_file" TYPE="file"><BR>
<input TYPE="hidden" NAME="fileupload_dir" value="images">

<P><INPUT NAME="Action" TYPE="submit" VALUE="Udf&oslash;r upload">
</FORM>