Sætter komma et skummelt sted

Bruger denne source til at adde en clan til min clanliste, men den sætter et komma efter navnet når det skrives i databasen,,, hvor er min fejl ?:

<%

fejl = false
tag = Request.Form(\"tag\")
navn = Request.Form(\"navn\")
hjemmeside = Request.Form(\"hjemmeside\")
irc = Request.Form(\"irc\")
beskrivelse = Request.Form(\"beskrivelse\")


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

\'Tester om brugernavn findes i databasen
Set rs = Conn.execute (\"SELECT * FROM claner WHERE navn=\'\" & navn & \"\'\")

If Not rs.Eof Then
    Response.Write(\"<p><font color=red>Clannavn er allerede oprettet!</font></p>\")
    fejl = true
End If

Conn.Close
Set Conn = Nothing

If tag = \"\" Then
    Response.Write(\"<p><font color=red>Indtast venligst et tag!</font></p>\")
    fejl = true
End If

If navn = \"\" Then
    Response.Write(\"<p><font color=red>Indtast venligst et clannavn!</font></p>\")
    fejl = true
End If

If hjemmeside = \"http://\" Then
    hjemmeside = \"\"
End If


If fejl <> true Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"db/db.mdb\")
Conn.Open DSN

strSQL = \"INSERT INTO claner (\" &_

    \"tag, navn, hjemmeside, irc, beskrivelse) \" &_

    \"values(\'\" & tag & \"\', \'\" & navn & \"\', \'\" & hjemmeside & \"\', \'\" & irc & \"\', \'\" & beskrivelse & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

End If