<%@LANGUAGE="VBSCRIPT"%> <% Dim RSalpha__MMColParam RSalpha__MMColParam = "A" if (Request("MM_EmptyValue") <> "") then RSalpha__MMColParam = Request("MM_EmptyValue") %> <% set RSalpha = Server.CreateObject("ADODB.Recordset") RSalpha.ActiveConnection = MM_Rotaryclubs_STRING RSalpha.Source = "SELECT WebAddress, Button, RotaryClub, MeetingTime, MeetingPlace, District, Area, Code FROM Rotary WHERE RotaryClub LIKE '" + Replace(RSalpha__MMColParam, "'", "''") + "%' ORDER BY RotaryClub ASC" RSalpha.CursorType = 0 RSalpha.CursorLocation = 2 RSalpha.LockType = 3 RSalpha.Open() RSalpha_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RSalpha_numRows = RSalpha_numRows + Repeat1__numRows %> SW_Pacific Rotary Club Index_A
  :
 
       
Site map and contents
Rotary merchandise
What is Rotary?
vist the RI website
Rotary Diprojectsstrict and club
Please get in touch
Rotary Links
Rotary news site
RDU magazine on-line
archived RDU magazines
How to host your website on the RDU servers
R.I. convention
Photographic Competition
visit the rotary e club
Rotarnet New Zealand
Visit the Probus web site
Searc wordsh b
Message Board - log in to leave your message
 
 
Don't know your way around Australia? For directions visit http://www.whereis.com
 
<% While ((Repeat1__numRows <> 0) AND (NOT RSalpha.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RSalpha.MoveNext() Wend %>

Club

Time

Meeting Place

District

Area

Website

<%=(RSalpha.Fields.Item("RotaryClub").Value)%>

<%=(RSalpha.Fields.Item("MeetingTime").Value)%>

<%=(RSalpha.Fields.Item("MeetingPlace").Value)%>

<%=(RSalpha.Fields.Item("District").Value)%>

<%=(RSalpha.Fields.Item("Area").Value)%>

" target="_blank">" border="0">

         
           
       
       
 
<% RSalpha.Close() %>