den indskriver ikke i databasen...

er der lige nogen der kan se hvorfor denne ikke indskriver i databasen... ???

--------------------------------------------------

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")

    Upload.OverwriteFiles = False
    On Error Resume Next

    Upload.SetMaxSize 1048576    ' Limit files to 1MB
    Count = Upload.Save("d:\web\it-links.dk\www\Test\Reklame")
%>
<HTML>
<BODY>
<% Dim Img, Bred, Hoj, Stor %>
<% If Err <> 0 Then %>
<% = Err.Description %>
<% Else %>
<% For Each File in Upload.Files %>
<% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<% Img = File.Filename %>
<% Bred = File.ImageWidth %>
<% Hoj = File.ImageHeight %>
<% End If %>
<% Stor = File.Size %>
<% Next %>
<% End If %>
<%
Response.write img
Response.write "<br>"
Response.write Bred
Response.write "<br>"
Response.write Hoj
Response.write "<br>"
Response.write Stor

Dim cn, SQL, Link, besk, user

Link = request.form("Url")
Besk = request.form("Reklame")

user = request.querystring("user")

set cn = server.createobject("ADODB.Connection")
cn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

SQL = "INSERT INTO Reklamer (Reklame, Url, Img, Size, Height, Width) "

SQL = SQL & "VALUES('" & Besk & "' , '" & Link & "' , '" & img & "' , '" & Stor & "' , '" & Hoj & "' , '" & Bred & "')"

cn.execute SQL
cn.Close

set cn = Nothing

  Response.redirect "Admin.ASP?side=21&Menu=4&User=" & User & ""
 
%>

</BODY>
</HTML>

--------------------------------------------------

den kommer verken med fejl eller noget, det virker faktisk altsammen helt normalt... men henter jeg databasen og kigger i den. så er der ikke indskrevet noget...