You will need the Microsoft Web Components to access this page, please click on this link to download it from Microsoft, or copy and paste it into your browser:

http://www.microsoft.com/downloads/details.aspx?familyid=7287252C-402E-4F72-97A5-E0FD290D4B76&displaylang=en

Computer Architects

Computer Architects

CK 2005/146020/23

This Page is not finished yet!

 

Please return soon!!

<% '******************************************************* '* ASP 101 Sample Code - http://www.asp101.com/ * '* * '* This code is made available as a service to our * '* visitors and is provided strictly for the * '* purpose of illustration. * '* * '* http://www.asp101.com/samples/license.asp * '* * '* Please direct all inquiries to webmaster@asp101.com * '******************************************************* %> <%= RetrieveAndIncrementCount() %> <% ' I placed this in a function so I wouldn't have to worry about ' any namespace collisions. For example... if this was inline ' code and someone named a variable strSQL in a file this file ' gets included into you'd get an error. This way you don't and ' there's no chance of the variables overwriting one another! Function RetrieveAndIncrementCount() ' From adovbs.inc: Const adOpenKeyset = 1 Const adLockPessimistic = 2 Const adCmdText = &H0001 ' Local variables Dim strFilename Dim strSQL Dim rsCounter Dim iCount ' Get filename and build SQL query strFilename = Request.ServerVariables("SCRIPT_NAME") strSQL = "SELECT page_name, hit_count FROM hit_count WHERE page_name='" & strFilename & "';" ' Open our recordset Set rsCounter = Server.CreateObject("ADODB.Recordset") ' Access version: 'rsCounter.Open strSQL, _ ' "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("counter_db.mdb") & ";", _ ' adOpenKeyset, adLockPessimistic, adCmdText ' SQL Server version: rsCounter.Open strSQL, "Provider=SQLOLEDB;Data Source=10.2.1.214;" _ & "Initial Catalog=samples;User Id=samples;Password=password;" _ & "Connect Timeout=15;Network Library=dbmssocn;", _ adOpenKeyset, adLockPessimistic, adCmdText ' If we've got a record then we read the current value ' If we don't then we create one, set the filename, and start at 0 If rsCounter.EOF Then rsCounter.AddNew iCount = 0 rsCounter.Fields("page_name").Value = strFilename Else rsCounter.MoveFirst iCount = rsCounter.Fields("hit_count").Value End If ' Increment the count and update the DB rsCounter.Fields("hit_count").Value = iCount + 1 rsCounter.Update ' Close our connection rsCounter.Close Set rsCounter = Nothing ' Return the count (pre-incrementation). RetrieveAndIncrementCount = iCount End Function %>

Computer Architects

Your Efficiency is MY Challenge!!

Supported Initiatives

Home

About Us

Contact Us

Service List

Disaster Recovery

Backups

Tape Backups

CD / DVD Backups

Disk Backups

On-Line Backups

Health Checks

SLA's

Policy Documents

Networks

Upgrades

SPECIALS!!

Internet Services

Project List

Promo Product List

Caption describing picture or graphic.

Networking - what you need to know and understand

Describe a service that your company provides. Include details about this service and prices. Use the bulleted list to highlight important features or restrictions.

Change the picture to one of your own, such as a photo of this service.

· List the benefit of using this service. 

· List the benefit of using this service. 

· List the benefit of using this service. 

· List the benefit of using this service. 

· List the benefit of using this service.

Caption describing picture or graphic.

Andy van Eyk

Mobile: 082-571-2751

Fax: 086-688-6827

E-mail: andy@comparch.co.za

To contact us:

Networks