Lehua's Unique Journeys - doing it via the net <% ' *** ------------------------------------------------ *** ' *** *** ' *** 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 "




" & CHR(10) Response.Write "" End Sub ' *** ------------------------------------------------ *** ' *** *** ' *** E N D S U B R O U T I N E S. *** ' *** *** ' *** ------------------------------------------------ *** %>

Dashboard: Everything to Take You There

LehuaNet