Upload med db

jeg vil gerne have nedenstående form og kode, som ellers virker ok, til at få lagt filnavnene i db under brugerens id, hvordan gør jeg det? ´Det er noget med at få lagt noget kode på a la denne:
strSQL = "select * from bruger where id = '" & Request("id") & "'"

Er der nogen som har et forslag? Mvh. rwj
form:
<form action="111.asp" method="post" enctype="multipart/form-data">
<input type="text" name="id" value="<%=request("id")%>">
<input type="file" size=40 name="File1" id="t3"><br><br>
<input type="file" size=40 name="File2" id="t3"><br><br>
<input type="file" size=40 name="File3" id="t3"><br><br>
<input type="submit" id="submit" value="Tilføj fotos"></form>
kode:
<%
Dim objUpload ' Definer en variabel til objektet
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.MaxFileSize = 500000
On Error Resume Next
Dim strUploadPath ' Definer en variabel til stien
strUploadPath = "upload"
Dim intFileCount
objUpload.Upload
intFileCount = objUpload.Save(Server.MapPath(strUploadPath))
If Err Then
Response.Write "Der opstod en fejl :<br>" & vbCrLf
Response.Write Err.Description
Else
Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("test.mdb")

Conn.Open DSN

strSQL = "Insert into tabel (id, File1, File2, File3) values('" & Replace(objUpload.Form("id"), "'", "''") & "', '" & Replace(objUpload.Files.Item("File1").FileName, "'", "''") & "', '" & Replace(objUpload.Files.Item("File2").FileName, "'", "''") & "', '" & Replace(objUpload.Files.Item("File3").FileName, "'", "''") & "')"

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End If
On Error Goto 0
Set objUpload = Nothing
%>