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

[Baol74]

Fai una function

Function 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
				checkdata = myarraydue(1)
			else
				checkdata = myarraydue(2)
			end if
		end if
	next
end Function

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

[Roby_72]

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

Roby