gistfile1.ascx

'## Silly setup stuff
Dim conn
Dim wsh
Dim sPath
Dim rs

set wsh = CreateObject("wscript.shell")

On Error Resume Next
	sPath = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Helios\Helios11\Paths\DPathClient")
On Error GoTo 0

If sPath = "" Then
    sPath = "C:\Program Files\Helios11\Data"
End If

'## Set TaxRate4 to 10 on every profile
Set conn = CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.oLEDB.4.0;Data Source = " & sPath & "\Helios.mdb"
Set rs = CreateObject("ADODB.Recordset")
	rs.Open "SELECT * FROM System_Defaults", conn, 3, 3
	do until rs.eof
	  rs("Tax4") = 10
	  rs.Update
	rs.movenext
	loop
  conn.Close
Set conn = Nothing

'## Connect to the access database & grab all of the sales codes
Set conn = CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.oLEDB.4.0;Data Source = " & sPath & "\SaleCode.mdb"
Set rs = CreateObject("ADODB.Recordset")
  rs.Open "SELECT * FROM sales_code", conn, 3, 3

'## Update the EFT amount for my monthly VIP sales codes
newEftAmount = InputBox("Enter the new VIP amount...old amount plus 10% tax, i.e. if it was 19.99, now its 21.99")
Dim eftCodes(3)
eftCodes(0) = "V"
eftCodes(1) = "VX"
eftCodes(2) = "VNE"
eftCodes(3) = "XU"
'## Iterate thru the codes I want to change, find them in the record set, and update them
For Each eftCode In eftCodes
  rs.MoveFirst
  eftQuery = "code = '" & eftCode & "'"
  rs.Find eftQuery
  '## Check to see if the record was found, if not let us know, if so, update the record
  If rs.EOF Then
    MsgBox eftCode & " does not exist, was unable to update."
  Else
    rs("prorate_fee") = newEftAmount
    rs.Update
  End If
Next

'## Add any sales codes you want updated to this array
Dim salesCodes(28)
salesCodes(0) = "T"
salesCodes(1) = "200"
salesCodes(2) = "100"
salesCodes(3) = "50"
salesCodes(4) = "25"
salesCodes(5) = "200+"
salesCodes(6) = "100+"
salesCodes(7) = "50+"
salesCodes(8) = "25+"
salesCodes(9) = "V1M"
salesCodes(10) = "V1W"
salesCodes(11) = "VY"
salesCodes(12) = "VY+"
salesCodes(13) = "NFPAY"
salesCodes(14) = "TVPAY"
salesCodes(15) = "NC"
salesCodes(16) = "VY2"
salesCodes(17) = "CT"
salesCodes(18) = "PS75"
salesCodes(19) = "PS150"
salesCodes(20) = "PS300"
salesCodes(21) = "YE1"
salesCodes(22) = "YE2"
salesCodes(23) = "YE3"
salesCodes(24) = "YE4"
salesCodes(25) = "CL1"
salesCodes(26) = "CL2"
salesCodes(27) = "CL3"
salesCodes(28) = "CL4"
'## Iterate thru the codes I want to change, find them in the record set, and update them
For Each salesCode In salesCodes
  rs.MoveFirst
  searchQuery = "code = '" & salesCode & "'"
  rs.Find searchQuery
  '## Check to see if the record was found, if not let us know, if so, update the record
  If rs.EOF Then
    MsgBox salesCode & " does not exist, was unable to update."
  Else
    rs("tax_rate_2") = 4
    rs.Update
  End If
Next


'## Close all connections and announce its Done
rs.Close
conn.Close
MsgBox "Done."