Late binding i array
hejfølgende kode giver fejl med option strict on ..
Hvorfor ?
---
Public Sub stripLink(ByVal NytLink As String)
'Dim NytLink As String
Dim nytarray As Array
'NytLink = "http://www.eksperten.dk"
'NytLink = "www.eksperten.dk"
nytarray = Split(NytLink, "http://")
If nytarray.GetUpperBound(0) = 1 Then
Response.Write("http://" & nytarray(1))
ElseIf nytarray.GetUpperBound(0) = 0 Then
Response.Write("http://" & nytarray(0))
End If
End Sub
