Fatter ikke fejlen

jeg har lavet et script der virker på min maskine men ikke når jeg har lagt det op på serveren :o(

her er en del af scriptet

'/////////////////////////////////////////////////

Sub Add6(Conn)

  Dim overskrift, navn, tekst, dato, funk, strSQL

  overskrift = Replace(Trim(Request.Form("overskrift")), "'", "''")
  navn = Replace(Trim(Request.Form("navn")), "'", "''")
  tekst = Replace(Trim(Request.Form("tekst")), "'", "''")
  dato = Replace(Trim(Request.Form("dato")), "'", "''")
  funk = Replace(Trim(Request.Form("funk")), "'", "''")
 

  If overskrift = "" Or tekst = ""  Then Response.Redirect "sky.asp"
 

strSQL = conn.Execute "Insert Into intnyheder (overskrift, navn, tekst, dato, funk) Values ('"&overskrift&"', '"&navn&"', '"&tekst&"','"&dato&"','"&funk&"')"

Conn.Execute(strSQL)

  CleanUp1()

Response.Redirect "sky.asp"

End Sub
'/////////////////////////////////////////

og her er så fejlbeskrivelsen fra browseren.

Der opstod en Microsoft VBScript-kompileringsfejl error '800a0401'

Slut på sætning var ventet

/update.asp, line 254

strSQL = conn.Execute "Insert Into intnyheder (overskrift, navn, tekst, dato, funk) Values ('"&overskrift&"', '"&navn&"', '"&tekst&"','"&dato&"','"&funk&"')"
----------------------^

jeg har brugt så meget tid, og kan ikke se fejlen nogle steder at jeg vil give 60 point for hjælp der løser problemet.