Problem: Der kan ikke bruges parenteser ved kald af en Sub

Hej X-perter!

Jeg har et problem med kald af en funktion, der skriver tekst ud på siden. fejlmeddelelsen er:
"Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0414)
Der kan ikke bruges parenteser ved kald af en Sub".

Her er stedet hvor jeg kalder funktionen:
-----------------------------------------

WHILE NOT RS.EOF
  IF taeller >= start AND udskrevet < antal THEN
    atype = RS("atype")
    firmanavn = RS("firmanavn")
    telefon = RS("telefon")
    web = RS("webadresse")
    adresse = RS("adresse")
    mobil = RS("mobil")
    email = RS("email")
    postnr = RS("postnr")
    bynavn = RS("bynavn")
    id = RS("registreringsid")
    fax = RS("fax")
    specialtekst = RS("specialtekst")
    VisOptagelse(atype, firmanavn, telefon, web, adresse, mobil, email, postnr, bynavn, id, fax, specialtekst)

    udskrevet = udskrevet + 1
  END IF
  taeller = taeller + 1
  RS.MoveNext
WEND

Her er starten af funktionen der kaldes:
----------------------------------------

Function VisOptagelse(atype, firmanavn, telefon, web, adresse, mobil, email, postnr, bynavn, registreringsid, fax, specialtekst)
  SELECT CASE atype
    CASE 1
      VisOptagelse = "<table width='400' border='0' cellspacing='0' cellpadding='0'><tr><td width='235'>" & firmanavn & "</td><td width='60'>Telefon: </td><td width='80'>" & telefon & "</td></tr></table>"
    ... Her er en masse andet kode...
  END SELECT
  Response.Write(VisOptagelse)
End Function