chiamata sub

[luchett]

Ho questa Sub:

sub checkdata(id,campo)
myarray=split(datarientro, "|") 
	for i=0 to Ubound(myarray) 
		myarraydue = split(myarray(i),"_")
		if	cint(myarraydue(0)) = cint(id) then			
			if campo = "d" then
				response.Write(myarraydue(1))
			else
				response.Write(myarraydue(2))
			end if
		end if
	next
end sub

che richiamo così:

<input name="data_r_<%=mI%>" type="text" value="<%checkdata(Rsdoc("ID_DOCUMENTO"),"d")%>">

Quando la richiamo mi da questo errore:

Impossibile utilizzare parentesi per la chiamata di routine Sub