Public
Function
cutString(
ByVal
url
As
String
)
Dim
St1()
St1 = Split(url,
"/"
For
i = 0
To
UBound(St1)
cutString = St1(i)
Next
i
cutString = St1(UBound(St1))
End
Protected
Sub
Page_Load(
sender
Object
,
e
System.EventArgs)
Handles
Me
.Load
Textbox1.Text= cutString(Request.Url.ToString)
Carsten Siemens edited Revision 1. Comment: typo