%
Dim obj_conn,obj_cmd,obj_rs
Set obj_conn = server.CreateObject("ADODB.Connection")
Set obj_cmd = Server.CreateObject("ADODB.Command")
set obj_rs = Server.CreateObject("ADODB.RecordSet")
'Open Connection
obj_conn.open ADO_CONNECT
'Set Cmd Object to have connection
obj_cmd.activeConnection = ADO_CONNECT
'Using Sproc to get list ov events
'obj_cmd.CommandType = adCmdStoredProc
'obj_cmd.CommandText = "spGetEvents"
Dim strSQL
strSQL = "Select EventID, EventName, EventDate, EventStatus, EventDescription,EventURL FROM tblEvents WHERE (EventDate >= { fn NOW() }) Order By EventDate"
obj_rs.Open strSql,ADO_CONNECT
'Set obj_rs = obj_cmd.execute
%>
<%
obj_rs.moveNext()
loop
obj_rs.close
obj_conn.close
set obj_conn = nothing
set obj_rs = nothing
%>
Tell us about your Event
Let us know about your event. Simply send
us an email and we
will put it on the site. If you want to sell fukwit gear at
your event give us a shout
and you can get an exclusive online discount.