<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% On Error Resume Next
Response.Expires=0
Response.Buffer=true%>
<%
if (session("pass")<>"yes") or (session("pass")="") then
Response.Redirect("timelogin.asp")
end if
%>
<%
dim lstEmp(100)
dim lstEmpID(100)
dim empCount, idx
SET DATACONN=SERVER.CreateObject("ADODB.Connection")
strCon = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=itsyst3_itsyst3;pwd=vorapikuE1!;database=itsyst3_IntelliTech;option=NUM"
dataconn.Open strCon
If Err.number <> 0 then
TrapError Err.description
End If
SET DATAREC=DATACONN.EXECUTE("select * from employee order by employeeid")
If Err.number <> 0 then
TrapError Err.description
End If
DATAREC.MOVEFIRST
idx = 0
DO WHILE NOT DATAREC.EOF
lstEmp(idx) = datarec.fields("employeename")
lstEmpID(idx) = datarec.fields("employeeid")
idx = idx + 1
datarec.movenext
loop
empcount = idx
SET DATAREC=NOTHING
SET DATACONN=NOTHING
%>