|
Sub AlphabetSelect(Optional ByVal Header As String = "")
Dim chr As String = Request("chr")
If chr <> "" Then chr = chr.ToLower
Dim MyArray() As String = Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z", ",")
Response.Write( "<div align=center class=pricing>")
If Header <> "" Then Response.Write("<b>" & Header & "</b><br />")
Response.Write( "<nobr>")
Dim IntI As Integer
For IntI = LBound(MyArray) To UBound(MyArray)
If MyArray(IntI) = chr Then
Response.Write( "<b>[")
Else
Response.Write( "<a href='?chr=" & MyArray(IntI) & "' >")
Response.Write( " ")
End If
Response.Write(MyArray(IntI))
If MyArray(IntI) = chr Then
Response.Write( "]</b> ")
Else
Response.Write( "</a> ")
End If
Next 'IntI
Response.Write( "</nobr></div>")
End Sub
|