aspsmartupload med sti i db

Har har tidligere lavet en tråd med dette spørgsmål, men der blev ikke svaret. Nu prøver jeg lige igen, i håb om at nogle kan hjælpe. Normalt anvender jeg persits til samme formål, men nu jeg tvunget til at anvende aspsmartupload.

Jeg har nogle text form felter som skal indføres i min access database, samt 3 file form felter. Nu vil jeg så gerne indføre text og file (filnavne) felterne i DB. Text felterne indføres fint og billeder uploades også fint til mappen billeder. Men billede filnavnet (File1) indføres ikke i databasen? Hvad gør jeg forkert?

Mine sider ser således ud:

form.html:
----------
<form action="sql.asp" method="post" enctype="multipart/form-data">
<input size="100" type="text" name="navn"><br>
<textarea rows="18" cols="75" name="beskrivelse"></textarea><br>
<input type="file" size=40 name="File1"><br>
<input type="file" size=40 name="File2"><br>
<input type="file" size=40 name="File3"><br>
<input type="submit" value="Tilføj"></form>

sql.asp
-------
<%
Dim objUpload ' Definer en variabel til objektet
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.MaxFileSize = 50000
On Error Resume Next
Dim strUploadPath ' Definer en variabel til stien
strUploadPath = "billeder/"
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("vti_log/database.mdb")
Conn.Open DSN
strSQL = "Insert into tabel (navn, beskrivelse, File1, File2, File3) values('" & Replace(objUpload.Form("navn"), "'", "''") & "', '" & Replace(objUpload.Form("beskrivelse"), "'", "''") & "', '" & Replace(objUpload.Form("File1"), "'", "''") & "', '" & Replace(objUpload.Form("File2"), "'", "''") & "', '" & Replace(objUpload.Form("File3"), "'", "''") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End If
On Error Goto 0
Set objUpload = Nothing
%>