Hvad er der mon galt med dette kald ?

Nogen der kan se hvad der går galt her.
Det virker ikke som at 'filnavn' kan overføres til databaset kaldet således.....

<%
function tversum (tal)
vtversum = tal
do while len(CStr(vtversum)) > 1
  temp = 0
  for i = 1 to len(CStr(vtversum))
    temp = temp + Int(Mid(CStr(vtversum),i,1))
  next
  vtversum = temp
loop
tversum = vtversum
end function


filnavn = tversum(Request.Form("fos1")) & "-" & tversum(Request.Form("fos2"))

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\tallene.mdb")
' Databaseforbindelse - husk at angive sti til din database

strSQL = "Select * From primtal Where primtal.Headline='filnavn'"
Set rs = Conn.Execute(strSQL)

Do

  Response.Write rs("pairz") & "<br>"

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>