Errore Funzione Vb

[ClaudioRossi]

Ho una funzione di questo tipo:
<%
login =Request.Form ("login")
password = Request.Form ("password")
query_login = "SELECT comune FROM utenti WHERE login='" + login + "' AND password='" + password + "'"

set conn = Server.CreateObject("ADODB.Connection")
conn.Open("prova")
set res = Server.CreateObject("ADODB.Recordset")

res.Open query_login,conn,1
do while not res.EOF
%>
<script>
function CambiaLogo() {
parent.frames("top").document.all.logo.src="file://c:\\Inetpub\\wwwroot\\immagini\\" + <%= res("comune") %>+ ".bmp"


</script>
<%
CambiaLogo()
res.MoveNext()
loop
res.Close()
%>

ma mi da errore
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'CambiaLogo'
Perchè?!