<% Set cnn1 = CreateObject("ADODB.Connection") cnn1.ConnectionString = "driver={MySQL};server=data.aip182.aisites.com;uid=aip182aii_aip;pwd=aiphportal;database=aip182aii_portal" cnn1.Open set rstQuery = CreateObject("ADODB.Recordset") strRstQuery = "SELECT * from clubs WHERE clubid < 50 AND pend < 1 ORDER BY clubname ASC" set rstQuery = cnn1.Execute(strRstQuery) If Not (rstQuery.BOF AND rstQuery.EOF) Then Do Until rstQuery.EOF clubid = rstQuery.Fields("clubid") clubname = rstQuery.Fields("clubname") clublogo = rstQuery.Fields("clublogo") clubemailurl = rstQuery.Fields("clubemailurl") clubemail = rstQuery.Fields("clubemail") clubemailname = rstQuery.Fields("clubemailname") clubwebsiteurl = rstQuery.Fields("clubwebsiteurl") clubwebsitename = rstQuery.Fields("clubwebsitename") clubdescription = rstQuery.Fields("clubdescription") clubshortdescription = rstQuery.Fields("clubshortdescription") %> <% rstQuery.MoveNext Loop Else Response.Write("") End If cnn1.close %>
Student Clubs
Click on Club Name for More Information about Each Club
   
<%= clubname %>
<%= clubshortdescription %>