Help con Error

[christum]

Tengo la sgte funcion en la pagina comprueba.asp (una parte de ella..):
Sub comprueba_campo(x_texto, n_id,id_siniestro)
Select Case (n_id)
Case 1:
sql = ""
sql = sql & " Select sin_titulosiniestro"
sql = sql & " From sca_t_siniestro"
sql = sql & " Where cor_siniestro = '"&id_siniestro&"'"
Set Titulo = Conn.Execute(sql)
Dim x_titulo
Do Until Titulo.eof
x_titulo = Titulo("sin_titulosiniestro")
Titulo.Movenext
Loop
n = StrComp(Trim(x_titulo),x_texto,1)
if n<>0 then
sql = ""
sql = sql & "Exec up_xxix_sca_mantener_histo_sini"
sql = sql & "'"& id_sini &"',"
sql = sql & "'"& session("usuario") &"',"
sql = sql & "'"& session("x_tipo") &"',"
sql = sql & "' sin_titulosiniestro ',"
sql = sql & "'"& x_titulo &"',"
sql = sql & "'"& x_texto &"',"
sql = sql & "'1'"
Conn.execute(sql)
End if ......
end select
end sub
y la llamada la hago en la pagina modificar2.asp
asi:
comprueba_campo(titu_sini,1,id_sini)
y me sale este error :
Error Type:
Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub
/scadys/Siniestro/modificar2.asp, line 61, column 36

ALGUIEN SE LE OCURRE QUE PUEDE SER????
Desde ya graciasd por su posible ayuda...