J M ROSE
About Us
Consulting Service
Tax Services
Accounting
Personal Finances
Resource Center
Self Help Series
Contact Us
Home
Nation-wide
Phone 800 - 992 - 5800
FAX 888 - 992 - 0117
West Coast Office
5236 Topanga Canyon Blvd.
Woodland Hills, CA 91364
Rocky Mountain Office
885 South Colorado Blvd.
Denver, CO 80246
![[Scroll for text]](images/disclaimerHead.GIF)
More technical facts and figures than you ever thought existed. Structure, aerodynamics, engine, transmission & clutch, suspension, electrics, cooling & fuel system, electronics, wheels & tyres, brakes & steering, dimensions, weight & capacities.
Disclaimer
No Rendering of Advice
The information contained within this website is provided for informational
purposes only and is not intended to substitute for obtaining accounting,
tax, or financial advice from a professional accountant.
Presentation of the information via the Internet is not intended to create,
and receipt does not constitute, an accountant-client relationship. Internet
subscribers, users and online readers are advised not to act upon this
information without seeking the service of a professional accountant.
Any U.S. federal tax advice contained in this website is not intended to be
used for the purpose of avoiding penalties under U.S. federal tax law.
Accuracy of Information
While we use reasonable efforts to furnish accurate and up-to-date
information, we do not warrant that any information contained in or made
available through this website is accurate, complete, reliable, current or
error-free. We assume no liability or responsibility for any errors or
omissions in the content of this website or such other materials or
communications.
Disclaimer of Warranties
and Limitations of Liability
This website is provided on an "as is" and "as available" basis. Use of this
website is at your own risk. We and our suppliers disclaim all warranties.
Neither we nor our suppliers shall be liable for any damages of any kind
with the use of this website.
Links to Third Party Websites
For your convenience, this website may contain hyperlinks to websites and
servers maintained by third parties. We do not control, evaluate, endorse
or guarantee content found in those sites. We do not assume any
responsibility or liability for the actions, products, services and content of
these sites or the parties that operate them. Your use of such sites is
entirely at your own risk.
|
For Support Please Contact JMROSE at 1-800-992-5800
<%
'comment
' Dimension Local variables
Dim objConn ' Connection Name
Dim strConn ' Connection String
Dim objRS ' Recordset Variable
Dim strSQL ' variable for SQL statement
Dim intTotalColumns
Dim intCounter
Dim clientList
Dim lastName
Dim pinCode
Const adOpenStatic = 3
Const adLockReadOnly = 1
'---------------------------------------'
' Bring down the submitted ID '
'---------------------------------------'
lastName = Request.Form("clast")
pinCode = Request.Form("cpin")
'Response.Write "lastName=" & lastName & "." & "
"
'---------------------------------------'
' Only if we have an ID... '
'---------------------------------------'
if lastName <> "" then
'---------------------------------------'
' Connect to the dB '
'---------------------------------------'
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/access_db/test.mdb") & ";"
objConn.Open
'-----------------------------------------'
' Record signon attempt to table:History '
'-----------------------------------------'
' start-query data
contactID = 1
thisDateTime = FormatDateTime(Now())
nowStamp = "#" & thisDateTime & "#"
pointerIndex = 1
accessError = 0
thisRemark = "auto=signon attempt."
thisAuthor = "auto=" & lastName & pinCode & "."
strSQL = "INSERT INTO History (ContactID,access_timestamp,pointer_index,access_error,remarks,author) VALUES (" & contactID & "," & nowStamp & "," & pointerIndex & "," & accessError & ",'" & thisRemark & "','" & thisAuthor & "') "
'Response.write "1" & "." & "
" & strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
'-----------------------------------------------'
' Try matching cpin against table:Secure.id_pin '
'-----------------------------------------------'
strSQL = "SELECT * FROM Secure WHERE id_pin = '" & pinCode & "'"
'Response.write "2" & "." & "
"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
'Response.write "3" & "." & "
"
secureRecord = objRS
contactID = secureRecord(2).value
'Response.Write strSQL & " contactID 1 =" & contactID & "." & "
"
'---------------------------------------'
' If no match, incr error counter '
'---------------------------------------'
'(update table:History)
'---------------------------------------'
' If match (update table:History), '
'---------------------------------------'
' set history to match
' contactID = 1 'DEFINED ABOVE
thisDateTime = FormatDateTime(Now())
nowStamp = "#" & thisDateTime & "#"
pointerIndex = 1
accessError = 0
thisRemark = "auto=signon pin ok."
thisAuthor = "auto=" & lastName & pinCode & "."
strSQL = "INSERT INTO History (ContactID,access_timestamp,pointer_index,access_error,remarks,author) VALUES (" & contactID & "," & nowStamp & "," & pointerIndex & "," & accessError & ",'" & thisRemark & "','" & thisAuthor & "') "
'Response.write "1" & "." & "
" & strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
' get the ContactID and use it to get record from table:Contacts
strSQL = "SELECT * FROM Contacts WHERE ContactID = " & contactID & " "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
contactRecord = objRS
' Response.Write strSQL & "
" & " lastName 2 =" & contactRecord(2) & "." & "
"
'------------------------------------------------'
' Try matching lastName against field .LastName. '
'------------------------------------------------'
'---------------------------------------'
' If no match (update table:History), '
'---------------------------------------'
'incr error and incr and then test table:Secure.locked
' to see if user should be locked out (update table:History).
'---------------------------------------'
' If match (update table:History), '
'---------------------------------------'
' reset error and reset table:Secure.locked.
contactsRecord_lastName = contactRecord(2)
if contactsRecord_lastName = lastName then
' we are good to go
Response.write "ID and PIN approved..." & "." & "
"
' set history to match
' contactID = 1
thisDateTime = FormatDateTime(Now())
nowStamp = "#" & thisDateTime & "#"
pointerIndex = 1
accessError = 0
thisRemark = "auto=signon last name ok."
thisAuthor = "auto=" & lastName & pinCode & "."
strSQL = "INSERT INTO History (ContactID,access_timestamp,pointer_index,access_error,remarks,author) VALUES (" & contactID & "," & nowStamp & "," & pointerIndex & "," & accessError & ",'" & thisRemark & "','" & thisAuthor & "') "
'Response.write "1" & "." & "
" & strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
'----------------------------------------------------'
' Use ContactID to get records from table:Pointers. '
'----------------------------------------------------'
strSQL = "SELECT * FROM Pointers WHERE ContactID = " & contactID & " ORDER BY pointer_index DESC "
'Response.Write strSQL & "." & "
"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
pointerRecord = objRS
'---------------------------------------'
' Display item_type & item_description '
'---------------------------------------'
'with item_type anchored to pointer_location.
' get the total number of columns
intTotalColumns = objRS.Fields.Count - 1
'--- Activate this to display the column names ---
' first display the column names
'For intCounter = 0 To intTotalColumns
' =objRS(intCounter).Name
'Next
'Response.Write " "
'--- end of column name display ---
' now loop through the recordset and display the data
Do Until objRS.EOF = True
Response.Write ""
For intCounter = 0 To intTotalColumns
'Response.Write ""
'Response.write objRS(intCounter).value
if intCounter = 2 then
clientList = clientList & "
" & "" & objRS(intCounter + 1).value & " ... " & objRS(intCounter + 2).value & ""
end if
'Response.Write " | "
Next
'Response.Write " "
objRS.Movenext
Loop
else
' last name failed
' set history to failed
'contactID = 1
thisDateTime = FormatDateTime(Now())
nowStamp = "#" & thisDateTime & "#"
pointerIndex = 1
accessError = 1
thisRemark = "auto=signon last name failed."
thisAuthor = "auto=" & lastName & pinCode & "."
strSQL = "INSERT INTO History (ContactID,access_timestamp,pointer_index,access_error,remarks,author) VALUES (" & contactID & "," & nowStamp & "," & pointerIndex & "," & accessError & ",'" & thisRemark & "','" & thisAuthor & "') "
'Response.write "1" & "." & "
" & strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, adOpenStatic, adLockReadOnly
end if ' test of last name
end if ' test of pin
%>
|
<% Response.Write clientList %>
|
<%
' Close Recordset
'objRS.Close
'Set objRS = Nothing
'objConn.Close
'Set objConn = Nothing
%>
|
