Problem med Upload...

Jeg skal kunne uploade billeder fra den side jeg laver. Den del der uploader billedet virker fint, MEN den del der skal tilføje stien og en kommentar (som er blevet indtastet i en form) virker ikke...
Således ser mine 2 ASP-filer ud:

fil1.asp


<html>
<head>
<title> Velkommen </title>
</head>
<body>

<div class="text"><br><br>

<h1 align="center"> Upload billeder </h1>
<br>
<p>Her kan du uploade billeder!</p>
<br>

<table>
<form method="post" enctype="multipart/form-data" action="fil2.asp">
<input type="text" name="dato" value="<%=formatdatetime(date,2)%>">
<tr><td><p>Filnavn: </p></td><td><input type="file" name="filnavn"></td></tr>
<tr><td><p>Kommentar: </p></td><td> <input type="text" name="kommentar"></td></tr>
<tr><td></td><td><input type=submit value="upload!"> </td></tr>
</form>
</table>
</div>
</body>
</html>

fil2.asp

<html>
<body>
<%  Dim cn, cnstr

set cn = server.createobject("adodb.connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source="&server.mappath("../db.mdb")&";"
cn.connectionstring = cnstr
cn.open

Dim sql, kommentar, dato, filnavn
filnavn = request.form("filnavn")
dato = request.form("dato")
kommentar = Replace(request.form("kommentar"),"'","''")
sql = "insert into img (datoadded, imgsrc, kommentar) values('" & dato & "', '" & filnavn & "', '" & kommentar & "')"
'cn.execute sql
Response.Write sql
cn.close
set cn = nothing

Dim upload, count
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("uploadbib\")
Response.Write Count & " fil(er) modtaget." _
& "<a href=""uploadpics.asp""><p>Gå tilbage</p></a>"
upload.close
set upload = nothing
%>
</body>
</html>

Når jeg fyrer Response.Write sql af i stedet for cn.execute sql får jeg følgende output:

insert into img (datoadded, imgsrc, kommentar) values('', '', '')

Det fatter jeg ikke! feltet "dato" har fra starten en tildelt værdi, og de 2 andre felter skriver jeg noget i...
Alle felter i databasen er af typen tekst.
Hvad har jeg gjort galt?