ASP Fejl Function

Jeg for denne fejl:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'fn_klan'

/secret/test/klanlist.asp, line 168

====================================

klanlist.asp:
<!--#include file="top.asp"-->
        <table border="0" cellpadding="0" cellspacing="0" width="464">
          <tr>
            <td width="464" height="25" background="images/box_top.jpg"><b>
            <font size="1" face="Verdana" color="#6A9BA6">&nbsp;&nbsp; Velkommen</b></td>
          </tr>
          <tr>
            <td width="464" background="images/box_middle.jpg">
            <table border="0" cellpadding="0" cellspacing="0" width="464">
              <tr>
                <td width="13">&nbsp;</td>
                <td width="450"><font face="Verdana" size="1" color="#3F6269"><style>
<!--

.menuskin{
position:absolute;
width:165px;
background-color:menu;
border:2px solid black;
font:normal 12px Verdana;
line-height:18px;
z-index:100;
visibility:hidden;
}

.menuskin a{
text-decoration:none;
color:black;
padding-left:10px;
padding-right:10px;
}

#mouseoverstyle{
background-color:highlight;
}

#mouseoverstyle a{
color:white;
}
-->
                </style>

<script language="JavaScript1.2">
var linkset=new Array()

linkset[0]='<div class="menuitems"><B>Klan</B></div>'
linkset[0]+='<div class="menuitems"><a href="klanlist.asp?id=1&iap=1">Alliance</a></div>'
linkset[0]+='<div class="menuitems"><a href="klanlist.asp?id=1&iap=2">IAP</a></div>'
linkset[0]+='<div class="menuitems"><a href="klanlist.asp?id=1&iap=3">Runde fred</a></div>'
linkset[0]+='<div class="menuitems"><a href="klanlist.asp?id=1&iap=4">Fjerne</a></div>'

<%
For t = 1 to 14
%>linkset[<%=t%>]='<div class="menuitems"><B><%=fn_klan(,Name,t)%></B></div>'
linkset[<%=t%>]+='<div class="menuitems"><a href="klanlist.asp?id=<%=t%>&iap=1">Alliance</a></div>'
linkset[<%=t%>]+='<div class="menuitems"><a href="klanlist.asp?id=<%=t%>&iap=2">IAP</a></div>'
linkset[<%=t%>]+='<div class="menuitems"><a href="klanlist.asp?id=<%=t%>&iap=3">Runde fred</a></div>'
linkset[<%=t%>]+='<div class="menuitems"><a href="klanlist.asp?id=<%=t%>&iap=4">Fjerne</a></div>'
<%
Next
%>

var ie4=document.all&&navigator.userAgent.indexOf("Opera")==-1
var ns6=document.getElementById&&!document.all
var ns4=document.layers

function showmenu(e,which){

if (!document.all&&!document.getElementById&&!document.layers)
return

clearhidemenu()

menuobj=ie4? document.all.popmenu : ns6? document.getElementById("popmenu") : ns4? document.popmenu : ""
menuobj.thestyle=(ie4||ns6)? menuobj.style : menuobj

if (ie4||ns6)
menuobj.innerHTML=which
else{
menuobj.document.write('<layer name=gui bgColor=#E6E6E6 width=165 onmouseover="clearhidemenu()" onmouseout="hidemenu()">'+which+'</layer>')
menuobj.document.close()
}

menuobj.contentwidth=(ie4||ns6)? menuobj.offsetWidth : menuobj.document.gui.document.width
menuobj.contentheight=(ie4||ns6)? menuobj.offsetHeight : menuobj.document.gui.document.height
eventX=ie4? event.clientX : ns6? e.clientX : e.x
eventY=ie4? event.clientY : ns6? e.clientY : e.y

//Find out how close the mouse is to the corner of the window
var rightedge=ie4? document.body.clientWidth-eventX : window.innerWidth-eventX
var bottomedge=ie4? document.body.clientHeight-eventY : window.innerHeight-eventY

//if the horizontal distance isn't enough to accomodate the width of the context menu
if (rightedge<menuobj.contentwidth)
//move the horizontal position of the menu to the left by it's width
menuobj.thestyle.left=ie4? document.body.scrollLeft+eventX-menuobj.contentwidth : ns6? window.pageXOffset+eventX-menuobj.contentwidth : eventX-menuobj.contentwidth
else
//position the horizontal position of the menu where the mouse was clicked
menuobj.thestyle.left=ie4? document.body.scrollLeft+eventX : ns6? window.pageXOffset+eventX : eventX

//same concept with the vertical position
if (bottomedge<menuobj.contentheight)
menuobj.thestyle.top=ie4? document.body.scrollTop+eventY-menuobj.contentheight : ns6? window.pageYOffset+eventY-menuobj.contentheight : eventY-menuobj.contentheight
else
menuobj.thestyle.top=ie4? document.body.scrollTop+event.clientY : ns6? window.pageYOffset+eventY : eventY
menuobj.thestyle.visibility="visible"
return false
}

function contains_ns6(a, b) {
//Determines if 1 element in contained in another- by Brainjar.com
while (b.parentNode)
if ((b = b.parentNode) == a)
return true;
return false;
}

function hidemenu(){
if (window.menuobj)
menuobj.thestyle.visibility=(ie4||ns6)? "hidden" : "hide"
}

function dynamichide(e){
if (ie4&&!menuobj.contains(e.toElement))
hidemenu()
else if (ns6&&e.currentTarget!= e.relatedTarget&& !contains_ns6(e.currentTarget, e.relatedTarget))
hidemenu()
}

function delayhidemenu(){
if (ie4||ns6||ns4)
delayhide=setTimeout("hidemenu()",500)
}

function clearhidemenu(){
if (window.delayhide)
clearTimeout(delayhide)
}

function highlightmenu(e,state){
if (document.all)
source_el=event.srcElement
else if (document.getElementById)
source_el=e.target
if (source_el.className=="menuitems"){
source_el.id=(state=="on")? "mouseoverstyle" : ""
}
else{
while(source_el.id!="popmenu"){
source_el=document.getElementById? source_el.parentNode : source_el.parentElement
if (source_el.className=="menuitems"){
source_el.id=(state=="on")? "mouseoverstyle" : ""
}
}
}
}

if (ie4||ns6)
document.onclick=hidemenu

                </script>

<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
</div>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="39%">
  <tr>
    <td width="14%" align="center"<%=fn_klan([1A],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1A],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1A],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1B],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1B],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1B],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1C],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1C],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1C],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1D],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1D],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1D],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1E],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1E],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1E],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1F],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1F],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1F],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([1G],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([1G],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([1G],Name)%>&nbsp;</td>
  </tr>
  <tr>
    <td width="14%" align="center"<%=fn_klan([2A],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2A],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2A],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2B],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2B],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2B],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2C],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2C],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2C],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2D],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2D],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2D],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2E],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2E],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2E],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2F],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2F],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2F],Name)%>&nbsp;</td>
    <td width="14%" align="center"<%=fn_klan([2G],IAP)%> onMouseover="showmenu(event,linkset[<%=fn_klan([2G],Id)%>])"
    onMouseout="delayhidemenu()" style="font-size: 6.5pt; font-family: Verdana"><%=fn_klan([2G],Name)%>&nbsp;</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Sorgens Hird</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Ongendus sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Skrymers Vante</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Huevos Grandes</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">LALLEthra</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Asgaard</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Habingers Of Despair</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Midgård i Sorg</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Wolves in eXile</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Den Brændte Jord</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">&#9827;Ørne®eden</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">§Nordiske Kræfter§</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Idasletten sørger</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Guerriers de Dieux</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Naglfar</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">NB sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">De Udstødte sørger</td>
    <td width="14%" align="center" bgcolor="#FF0000" style="font-size: 6.5pt; font-family: Verdana">Fredløse</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Mongoliet i Sorg</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">U-T-S</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Sorgens Krigere</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Ragnarok</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">MimersVogter</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Selv SS sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">På Mørkets Vinger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Yggdrasils Krigere</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Udgaard</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Lokes Hævn</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Normandiet</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Aserne</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Valhalla Sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">TNT sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">BrotherHood</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">De Blodige Sørger</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Roar</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Tyrs Arm</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">ØrneSorgen</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Thors Hammer</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Mordor</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Odins Ravne</td>
    <td width="15%" align="center" bgcolor="#00FF00" style="font-size: 6.5pt; font-family: Verdana">Holger Danske</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Tors Sorg</td>
  </tr>
  <tr>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">LastKlan<br>Standing</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Lunas Sønner</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">FenrisUlvene</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">LBA sørger</td>
    <td width="14%" align="center" style="font-size: 6.5pt; font-family: Verdana">Niflheim</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">Fimbul i sorg</td>
    <td width="15%" align="center" style="font-size: 6.5pt; font-family: Verdana">VaLoR i sorg</td>
  </tr>
</table></td>
                <td width="13">&nbsp;</td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="464" height="25" background="images/box_bottom.jpg" align="right">
            <font face="Verdana" size="1" color="#6A9BA6">Skrevet af: <b>TDH</b> - [08/01-2004 -
            20:36]&nbsp;&nbsp;&nbsp; </td>
          </tr>
        </table>
<!--#include file="bottom.asp"-->

=============================

function fn_klan:
Function fn_klan([Kort],[Type],Id)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath (db_klan)
Conn.Open DSN

If Id <> "" Then
strSQL = "Select * From Klan Where id = " & Id
Else
strSQL = "Select * From Klan Where Kort = '" & Kort  & "'"
End If
Set rs = Conn.Execute(strSQL)

If not rs.EOF Then
If [Type] = "Name" Then
text = rs("Klannavn")
Elseif [Type] = "IAP" Then
tal = rs("IAP")
' Allience
If tal = 1 Then
text = " bgcolor='#00FF00'"
' IAP
Elseif tal = 2 Then
text = "Vice. Høvding"
' Runde Fred
Elseif tal = 3 Then
text = "Ledelsen"
' Fjerne
Elseif tal = 4 Then
text = "Kriger"
Else
' Ingen
text = " bgcolor=''"
End if
Elseif [Type] = "Id" Then
text = rs("Id")
End If
Else
text = ""
End If

Conn.Close
Set Conn = Nothing


fn_klan = text
End Function

Hvor er min fejl?