Eftersom att en sub inte returnerar ngt så antar jag att det är svårt. Men finns det ngt annat sätt?
Och det jag sedan vill göra är att skriva ut värdet i variabeln "i".
Princip:
Sub olle(str)
Dim i
str=split(str,";")
For i = 0 to ubound(str)
Response.write str(i)&"<br>"
next
End sub
Call olle("Detta;är;en;testsub.")
[b]Response.write i[/b]
Du kan skicka in en parameter by reference (du skickar egentligen bara en pekare), och på så sätt få originalvariabelns värde att ändras i suben.
Sub olle(byval str, byref i)
str=split(str,";")
For i = 0 to ubound(str)
Response.write str(i)&"<br>"
next
End sub
dim i
Call olle("Detta;är;en;testsub.", i)
Response.write i