Text Course List | USA Map | Home  <% connectionString="PROVIDER=MSDASQL;DRIVER={SQL Server};" connectionString=connectionString & "SERVER=209.235.26.3;DATABASE=golfguideusa;" connectionString=connectionString & "UID=golfguideusa_rw;PWD=ggusa321;" %> <% Set Conn2 = Server.CreateObject("ADODB.Connection") Conn2.Open connectionString SQL = "SELECT DISTINCT Region FROM Regions" Set RS_Region = Conn2.Execute(SQL) %> <% If Not (RS_Region.EOF or RS_Region.BOF) Then Do While Not RS_Region.EOF i=RS_Region("Region").Value Select Case i Case "Phoenix" reg="phoenix" Case "Scottsdale" reg="Phoenix" Case "Tucson" reg="tucson" Case "Palm Springs" reg="palmsprings" Case "Orlando" reg="orlando" Case "Jacksonville" reg="orlando" Case "Daytona Beach" reg="orlando" Case "Hawaii" reg="hawaii" Case "Pinehurst" reg="pinehurst" Case "Las Vegas" reg="lasvegas" Case "Charleston" reg="charleston" Case "Kiawah" reg="charleston" Case "Myrtle Beach" reg="myrtlebeach" Case "Hilton Head Island" reg="hiltonhead" Case "Williamsburg" reg="williamsburg" End Select %> <%=i%> <% RS_Region.MoveNext Loop End If RS_Region.Close Conn2.Close %>

Back to Tucson homepage

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . SITE DESIGN