<% Dim aryAreas(100,2) ' first is state name, second is string containing all code for options list Function areaInList(sState) ' if the state is in the array, return the position of the state ' if it is not in the array, return the first blank position Dim iReturn for i = 0 to UBound(aryAreas) - 1 if aryAreas(i,0) = Trim(sState) Then iReturn = i Exit For elseif aryAreas(i,0) = "" Then iReturn = i Exit For end if next areaInList = iReturn End Function Function makeAreaSelects(sString, iID) sAryString = Split(sString, "-") ' see if the state is already in the array intArrayPosition = areaInList(sAryString(0)) ' Just go ahead and put the state name in the first element so we don't have to check every time aryAreas(intArrayPosition, 0) = Trim(sAryString(0)) aryAreas(intArrayPosition, 1) = aryAreas(intArrayPosition, 1) & _ ",'" & Trim(sAryString(1)) & "'" End Function Dim myAreas, rsAreas, iCountAreas myAreas = "SELECT idlist, listname FROM lists WHERE (listname LIKE '%-%') ORDER BY listname" call getFromDatabase(myAreas, rsAreas, "subscribeAreas") do while NOT rsAreas.EOF Call makeAreaSelects(rsAreas("listname"), rsAreas("idlist")) rsAreas.MoveNext loop %> Discover Meditation
Live a Rich Life - Discover Meditation
Discover Your Authentic Self and Live in Courage, Purpose and Joy


Sign Up to Receive Pragito's Free Weekly Meditations

<% ' http://www.designerfreesolutions.com on error resume next dim mySQL, conntemp, rstemp, rsStates %>
First Name:
Email:
City:
State:
Country:

Your email address will never be rented, traded, or sold.
WE GUARANTEE YOUR CONFIDENTIALITY

Home