<?php
$count_my_page = ("hitcounter.txt");
$hits = file($count_my_page);
$hits[0] ++;
$fp = fopen($count_my_page , "w");
fputs($fp , "$hits[0]");
fclose($fp);
?>

<?php
include ("counter.php");
?>

    Dim db As DAO.Database
    Dim rs2 As DAO.Recordset
    Dim rs3 As DAO.Recordset

    Set db = CurrentDb()
    Set rs2 = db.OpenRecordset("PrinterCartInventory")
    Set rs3 = db.OpenRecordset("CartUse")

    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset

    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("CartUse")
    rs1.MoveFirst
  
    Do Until rs1.EOF
        If rs1.Fields(ID) = Val(ID) Then
            NumOrdTotal = Val(rs1.Fields(varLongMonth)) + Val(varNumOrd)
            txttest2 = Val(NumOrdTotal)

    Select Case varMonth
        Case Is = 1
            varLongMonth = "January"
        Case Is = 2
            varLongMonth = "Feburary"

"TableName".DisplayAlerts = false
"QueryName".DisplayAlerts=false

UPDATE tblCopyTo
           Set "FieldName of where you want the data to go" = [tblCopyFrom]!["FiledName fo where you are getting the data from"]
           Where "Foriegn Key Field" = [tblCopyFrom]!["Primary Key Field]

Dim varAmount as Integer
varAmount=Val(EMP_AMT_DED)

If varAmount<>1250.00

doCmd.openform "FormName"

doCmd.Close

Select Case varMonth
        Case Is = 1
            varLongMonth = "January"
        Case Is = 2
            varLongMonth = "Feburary"
        Case Is = 3
            varLongMonth = "March"
        Case Is = 4
            varLongMonth = "April"
        Case Is = 5
            varLongMonth = "May"

Dim db As DAO.Database
Dim rs1 As DAO.Recordset


  Set db = CurrentDb() 
  Set rs1 = db.OpenRecordset("Query1") 

	
  rs1.MoveFirst 
  i=1
  Do Until rs1.EOF

    rs1.Edit
    rs1![ID] = i
    rs1.Update
    i=i+1
    rs1.MoveNext
  Loop

 Select