%@LANGUAGE="VBSCRIPT"%> <% UC_OrderIdSessionVar = "sesCounter" If Session(UC_OrderIdSessionVar)="" Then ' Get a unique OrderID number and save to session. UC_tableName = "EBMHitCounts" UC_fieldName = "HitCounts" UC_sql = "select " & UC_fieldName & " from " & UC_tableName tmp = "ADODB.Recordset" set UC_rsId = Server.CreateObject(tmp) UC_rsId.ActiveConnection = "dsn=ebm;" UC_rsId.Source = UC_sql UC_rsId.CursorType = 0 ' adOpenForwardOnly UC_rsId.CursorLocation = 2 ' adUseServer UC_rsId.LockType = 2 ' adLockPessimistic UC_rsId.Open Session(UC_OrderIdSessionVar) = UC_rsId.Fields(UC_fieldName).value UC_rsId.Fields(UC_fieldName).value = Session(UC_OrderIdSessionVar) + 1 UC_rsId.Update UC_rsId.Close set UC_rsId = Nothing End If %> <% set rsHitCounts = Server.CreateObject("ADODB.Recordset") rsHitCounts.ActiveConnection = MM_Ebm_STRING rsHitCounts.Source = "SELECT * FROM EBMHitCounts" rsHitCounts.CursorType = 0 rsHitCounts.CursorLocation = 2 rsHitCounts.LockType = 3 rsHitCounts.Open() rsHitCounts_numRows = 0 %>
|
EAGLE
BRIDGE MACHINE & TOOL, INC.
A high-performance company specializing in the production and assembly of precision-tooled parts for the international manufacturing industry INTERNATIONALLY COMPETITIVE PRICING |
OUR CUSTOMERS
ARE OUR PARTNERS ISO-9002 REGISTERED |
|
|
HIGH-SPEED TOYODA
WE CUT, BEND, WELD, PAINT AND ASSEMBLE YOUR METAL PARTS
|
ADVANCED
ELECTRONIC PAINTING TECHNOLOGY
|
||||||
|
P.O.
Box 93 135 NY Rt. 67
Eagle Bridge, NY 12057 phone: 518-686-4541 fax: 518-686-3125 www.eaglebridgemachine.com info@eaglebridgemachine.com |
|||||||