Function dosent seem to get Parameters??

[Pheddy]

Hi Im writing a function but it dosnt seem to fetch the parameters I send it. Could anybody have a look at this please?

<%@ LANGUAGE="VBSCRIPT" %>
<%
Set fs				= Server.CreateObject("Scripting.FileSystemObject")
Set JMail			= Server.CreateObject("JMail.SMTPMail")

Jmail.serveraddress = "[REMOVED]"
DIM strFunction

function send_mail( cmd, typeMail, mailTo, mailFrom, userID, userUID, userName, caseProduct, caseID, mailTitel, mailBody, notifyLine )

  if fs.FileExists(Server.MapPath("../[REMOVED]/" & typeMail & ".asp")) then

    Set f				= fs.OpenTextFile(Server.MapPath("../[REMOVED]/" & typeMail & ".asp"), 1)
    mailBody			= f.ReadAll
    f.Close
  
	mailBody = Replace(mailBody, "[GAR:TRADEPRODUCT]", caseProduct)
    mailBody = Replace(mailBody, "[GAR:TRADETO]", mailTo)
    mailBody = Replace(mailBody, "[GAR:TRADEFROM]", userName)
    mailBody = Replace(mailBody, "[GAR:TRADEID]", caseID)
	mailBody = Replace(mailBody, "[GAR:NOTIFYLINE]", notifyLine)
	
  JMail.Sender		= mailFrom
  JMail.SenderName	= "[REMOVED]"
  JMail.Subject		= mailTitel
  JMail.Body		= mailBody
  JMail.Priority	= 3
  
  JMail.AddRecipient mailTo
  
  if JMail.Execute then
    send_mail = 1
  else 
    send_mail = 0
  end if
  
  JMail.ClearRecipients 
  
  else
    send_mail = 0
  end if
end function

strFunction = send_mail("first","sendfirstmail","[REMOVED]","[REMOVED]","1","1000","Frederik","Mobil","32","Tillykke","HEj ven","hej igen") '(Dummi data)

if strFunction  = 1 then
  Response.Write "done"
else
  'Debug
  Response.Write cmd & typeMYMail & mailFrom & userID
  Response.Write Server.MapPath("/[REMOVED]/" & typeMail & ".asp")
end if
%>