UPDATE
Here is my final working version:
<%
Dim theUrl As String = Request.Url.Segments(Request.Url.Segments.Count - 1).ToLower
Dim oList As New List(Of String()), openTag As String = ""
oList.AddRange(sqlStuff.getNavPages())
For Each oItem As String() In oList
If oItem(1) = theUrl Then
openTag = String.Format("<li id={0}>", functions.addQuotes("current"))
Else
openTag = "<li>"
End If
Response.Write(String.Format("{0}<a href={1}>{2}</a></li>{3}", _
openTag, _
functions.addQuotes(oItem(1)), _
oItem(0), _
ControlChars.NewLine))
Next
%>
sqlStuff.getNavPages()
is a function that queries my navigation database for pages and returns a list item with information about the page (URL, title, etc.)