Ingen kontakt til DB

Hej jeg har følgende kode... den skal kunne uploade et billede til en /log/ mappe og den skal samtidig lægge en sti til det uploadede billede in i databasen (roskilde.mdb) den del med upload af billede.. den virker, men jeg får ikke lagt et link til billedet i databasen, og den peger heller ikke videre til uploadpic.asp som den burde... kan nogen se fejlen???


jeg er ret overbevist om at koden ligger i dette stykke kode....


    Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\www2\skole-guiden\db\roskilde.mdb;"
    ' Billedestien indsættes i BilledeTabel
    for each file in Upload.Files
      strSQL = "Update BilledeTabel SET Sti = '" & File.Filename & "' WHERE PersonID LIKE '" & Session("ID") & "'"
      myConn.Execute(strSQL)
next

personSQL = "UPDATE PersonTabel Set Billede = 'Ja' WHERE PersonID =" & Session("ID") & ""
myConn.Execute(personSQL)
rs.Close
Set rs = Nothing
response.redirect("billedevalg.asp")
end if
%>



Her er den fulde kode hvis det giver et bedre overblik!!!



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

' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 100000, True

' Undgå samme filnavn på to billeder
Upload.OverwriteFiles = False

' Intercept all exceptions to display user-friendly error
On Error Resume Next

' Perform upload

Count = Upload.SaveVirtual("/log/")
If Err then
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
  Response.Write "Billedet er over 100kb. <br><br> <a href=""uploadpic.asp"">Prøv et andet billede.</a>"
Else
  If Err <> 0 Then
      Response.Write "Der opstod en fejl " & Err.Description
      Response.Write "<br><br> <a href=""uploadpic.asp"">Prøv igen.</a>"
    end if
end if
 
else
    Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\www2\skole-guiden\db\roskilde.mdb;"
    ' Billedestien indsættes i BilledeTabel
    for each file in Upload.Files
      strSQL = "Update BilledeTabel SET Sti = '" & File.Filename & "' WHERE PersonID LIKE '" & Session("ID") & "'"
      myConn.Execute(strSQL)
next

personSQL = "UPDATE PersonTabel Set Billede = 'Ja' WHERE PersonID =" & Session("ID") & ""
myConn.Execute(personSQL)
rs.Close
Set rs = Nothing
response.redirect("billedevalg.asp")
end if
%>