<% Option Explicit %> Gör högerklicket, för att få fram koden. <% Function String(Strangett, Strangtva) Dim MyArray(4) MyArray(0) = Strangett MyArray(1) = Len(Strangett) MyArray(2) = Strangtva MyArray(3) = Len(Strangtva) String = MyArray End Function %> <% Sub SkrivaArray(MyArray) Response.write("Strängen i element ett är " & MyArray(0)& ". ") Response.write("Den är " & MyArray(1) & " tecken lång.") Response.write("Strängen i element två är " & MyArray(2)& ". ") Response.write("Den är " & MyArray(3) & " tecken lång.") End Sub %> <% Dim returvarde returvarde = String("Strangett", "Strangtva") SkrivaArray returvarde %>