error al llamar a funcion

[rokiu]

hola buneas, la llamada a la funcion es la siguiente:

idblog=saber_idblog(titulo_blog)ç

creo que esta bien echa, pero me sale el siguiente error,(en la linea donde llamo a la funcion)

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos: 'saber_idblog'

/Bloggus/asp/crear_aportacion.asp, line 22


la funcion a la que llamo es esta:

<%
function saber_idblog(titulo_blog) ' OBTENER LA ID DEL BLOG, APARTIR DEL TITULO RECOGIDO DEL FORMULARIO Y SI ESE BLOG ES DE DICHO USUARIO
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "bloggus"

sSTR= " select idblog,titulo,idusu from blogs where (titulo="&titulo_blog&");"
Set Rs = Conn.Execute(sSTR)

if not rs.EOF then
id_blog=Rs("idblog")
'Posibilidad de que el blog exista pero no sea del usuario que quiere realizar la aportacion
if Rs("idusu")==session ("usuario")
valido=true
else
valido=false
response.write("<center>NO TIENE PERMISO PARA REALIZAR APORTACIONES EN EL BLOG ESPECIFICADO</center>")
end if
else
id_blog=0
response.write("<center>EL BLOG ESPECIFICADO NO EXISTE</center>")
end if

'cerramos el RecordSet y lo destruimos
Rs.Close
conn.close
Set Rs = Nothing
saber_idblog=id_blog
end function
%>


el include lo hago en la pagina desde la cual llamo a la funcion, y pongo esto

<%
<!-- #INCLUDE virtual = "funciones.asp" -->
....
...
...%>


alguna idea?? gracias, un saludo