<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> McLeodTech.Net Contact US <% dim Conn dim connstr dim rs dim Sel Dim Hcount set Conn=Server.CreateObject("ADODB.Connection") constr="Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("comersus/database/comersus.mdb")&";" conn.open constr set rs=Server.CreateObject("ADODB.recordset") 'Sel = "Select * from Contus order by Id asc" rs.cursorType = 3 rs.lockType = 3 Sel = "Select * from Contus Where Fname = 'Root'" rs.Open Sel, conn rs.movefirst Hcount = rs.fields("HitCount") Hcount = Hcount + 1 rs.Fields("HitCount").Value = hcount rs.update rs.close set rs = nothing conn.close Set conn = Nothing %>

 

Computer Consulting orange county california

McLeodTech.Net, LLC
60 Saint Croix
Laguna Niguel, CA 92677

Tel: (949)-481-7643
(Between 8AM-9PM PST)
Home Products Services Contact Us Shopping Cart

Specialists in:

Do you have any Questions, Comments, or Inquiries?

Please feel free to contact us.

McLeodTech.Net
60 Saint Croix
Laguna Niguel, CA 92677

Tel: (949)-371-6045
(Between 8AM-9PM PST)

Contact Us Through Email

First Name:
Last Name:
Phone:
Email Address:
Subject:
Message:
   
  Would You Like Us to Contact You
   

 

 

 

 


© 2010 Mcleodtech.net LLC No content can be used Without Written Permission