<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Update Record: set variables
MM_editConnection = MM_connABI_STRING
MM_editQuery = "UPDATE Counters SET Counters.Countervalue = [Counters]![Countervalue]+1, Counters.LastUpdate = Date() WHERE [Counters].CounterID = 'Main'"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
%>
<%
set rsCounters = Server.CreateObject("ADODB.Recordset")
rsCounters.ActiveConnection = MM_connABI_STRING
rsCounters.Source = "SELECT * FROM Counters"
rsCounters.CursorType = 0
rsCounters.CursorLocation = 2
rsCounters.LockType = 3
rsCounters.Open()
rsCounters_numRows = 0
%>
<%
set rscompanies = Server.CreateObject("ADODB.Recordset")
rscompanies.ActiveConnection = MM_connABI_STRING
rscompanies.Source = "SELECT Distinct Company FROM tblroster ORDER BY Company ASC"
rscompanies.CursorType = 0
rscompanies.CursorLocation = 2
rscompanies.LockType = 3
rscompanies.Open()
rscompanies_numRows = 0
%>
ABI-N Business Networking, Tampa Bay, Brandon, Lakewood, Sarasota
ABI-N INTERNATIONAL CORPORATE EXECUTIVE CHAPTERS
(I.C.E. Chapters)
A Business Development Organization Designed To Meet The Needs Of Today’s Business Professionals
Members Intromercials:
<%
rsCounters.Close()
%><%
rsCompanies.Close()
%>