" & CHR(10) Response.Write "
LehuaNet
<%
' *** ------------------------------------------------ ***
' *** ***
' *** S T A R T V B: ***
' *** ***
' *** ------------------------------------------------ ***
dim selCaller ' Who called this module?
sub1000GetInput() ' Find out whether native-called
sub1100MakeChooseLink() ' Make link to choose-world
' *** ------------------------------------------------ ***
' *** ***
' *** E N D V B. ***
' *** ***
' *** ------------------------------------------------ ***
' *** ------------------------------------------------ ***
' *** ***
' *** S T A R T S U B R O U T I N E S ***
' *** ***
' *** ------------------------------------------------ ***
' *** ------------------------- ***
' *** sub1000GetInput: ***
' *** Get incoming parms ***
' *** ------------------------- ***
Sub sub1000GetInput()
selCaller = Request.QueryString("selCaller")
selRegion = Request.QueryString("selRegion")
If IsNull(selCaller) or selCaller = "" Then
selCaller = "otindex"
End If
If IsNull(selRegion) or selRegion = "" Then
selRegion = "All"
End If
End Sub
' *** ------------------------- ***
' *** sub1100MakeChooseLink: ***
' *** Display counter ***
' *** ------------------------- ***
Sub sub1100MakeChooseLink()
Response.Write "