Please Select an Event from Below:

<% Dim RSUser2 Set RSUser2 = Server.CreateObject("ADODB.Recordset") Dim sr_no sr_no=0 SQL="select * from event_cats where cat_enable ='1'" RSUser.Open SQL,Conn,1,2 While Not RSUser.EOF SQL="select count(*) as a from events where cat_id = " & RSUser("cat_id") & " and event_enable ='1'" RSUser1.Open SQL,Conn,1,2 %> <% sr_no=1 SQL="select * from events where cat_id = " & RSUser("cat_id") & " and event_enable ='1'" RSUser2.Open SQL,Conn,1,2 While Not RSUser2.EOF %> <% sr_no=sr_no+1 RSUser2.MoveNext Wend RSUser2.Close %> <% RSUser1.Close sr_no=sr_no+1 RSUser.MoveNext Wend %>

<%=RSUser("cat_name")%> (<%=RSUser1("a")%>)

<%=RSUser2("event_name")%>

Event Date: <%=RSUser2("event_date")%>

Event Price: $<%=RSUser2("event_price")%>