Fast antal linier

Hmn du kan vel gøre sådan her..

<%
Minvar = Split(dinstreng, VBCrLf)
Response.Write \"linier: \"& UBound(Minvar)
%>

eller sådan her..

<%
TempMinvar = \"Hej\"& VBCrLf &\"Hejigen\"& VBCrLf &\"heheehe\"& VBCrLf &\"høfdsfsdfs\"

Minvar = Split(TempMinvar, VBCrLf)

For i = 0 To UBound(Minvar)
If i <= 3 Then
Response.Write i & VBCrLf
ElseIf i = 4 Then
Response.Write \"...\"
End if
Next
%>

på denne måde for jeg ikke hver enkel linie ud. Der skriver den bare antal linier og linienummer

nårh ja, sorry.. :-)

<%
TempMinvar = \"Hej\"& VBCrLf &\"Hejigen\"& VBCrLf &\"heheehe\"& VBCrLf &\"høfdsfsdfs\"

Minvar = Split(TempMinvar, VBCrLf)

For i = 0 To UBound(Minvar)
If i <= 3 Then
Response.Write Minvar(i) & VBCrLf
ElseIf i = 4 Then
Response.Write \"...\"
End if
Next
%>

takker