<% 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 %> Events
: : home : : the clothes » : : accessories : : what else do we do? » : : get in touch »
<% Do while not obj_rs.EOF %>


<% obj_rs.moveNext() loop obj_rs.close obj_conn.close set obj_conn = nothing set obj_rs = nothing %>
fukwit © all rights reserved
fukwit homepage>>