%@ LANGUAGE="VBSCRIPT" %> <% Set glink = Server.CreateObject("ADODB.Connection") glink.ConnectionTimeout = 15 glink.CommandTimeout = 30 glink.Open "DBQ=c:\webhost\noscalpel\glink.mdb;DefaultDir=c:\webhost\noscalpel;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;","admin","" Set cmdTemp = Server.CreateObject("ADODB.Command") Set DoCounter = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM Counter WHERE linkcnt = -1" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = glink DoCounter.Open cmdTemp, ,1 ,3 If DoCounter.EOF or DoCounter.BOF Then DoCounter.AddNew DoCounter.Update curcnt = DoCounter("linkcnt") DoCounter.MoveFirst DoCounter.Delete Else curcnt = "" End If %>
![]() ![]()
|
Suite 110
Mission Statement ...To provide top quality legal services at competivive, reasonsable costs. ...To foster long term relationships with employees and clients. ...To serve the various communities in which the employees of the firm live and work. ...To operate a professional legal services firm efficiently and profitably. |