Welcome to Bob Erhart's Internet Site

HOME ADD MESSAGE PAGE/EMAIL TAKE A DEMO SURVEY SEE DEMO SURVEY RESULTS VBA DEMO

BACK TO SOURCE CODE LISTING <% Private Function JobListing(strMachineID) 'Const adoOpenStatic = 3 'Open a RecordSet using a static cursor 'Const adoLockReadOnly = 1 'Open a RecordSet in read-only mode Dim intTitleHeight intTitleHeight = 16 Dim intDataHeight Dim intSeperatorWidth intSeperatorWidth = 2 Dim urlMenuSpacerFile Dim intPtr intPtr = 0 Dim lngRecordsFound lngRecordsFound = 0 Dim lngOrdinalPosition lngOrdinalPosition = 0 Dim lngFieldCount lngFieldCount = 0 Dim adoTableName Dim strSql Dim objSessionID Dim objConnSession, objRS Dim strDatBGColor Dim strInsuranceNumber, strMachineBuf, strJobNumberBuf, strNameBuf, strEwoBuf, strProjectBuf, strPlatformBuf, datDate Dim intPageSize intPageSize = 20 Dim intPageRec Dim intPageCount Dim intRecordsShown If cgiPageNum = "" Or cgiPageNum = 0 Then cgiPageNum = 1 adoTableName = "QJobInfo" strSql = "SELECT * FROM [" & adoTableName & "] WHERE [Machine]= " & SingleQuote(strMachineID) & ";" Session.timeout = 1 objSessionID = Session.SessionID Set objConnSession = Server.CreateObject("ADODB.Connection") objConnSession.CursorLocation = 3 objConnSession.Open adoConnectString_Data_Read Set objRS = Server.CreateObject("ADODB.Recordset") objRS.PageSize = intPageSize objRS.CursorLocation = adUseClient objRS.Open strsql, objConnSession, adOpenStatic,adLockReadOnly,adCmdText lngFieldCount = objRS.Fields.Count intPageCount = objRS.PageCount objRS.PageSize = intPageSize objRS.CacheSize = intPageSize objRS.AbsolutePage = cgiPageNum %> <TR align=left valign=top> <TD align=left valign=top colspan=6> <TABLE border=0 cellpadding=0 cellspacing=0 align=left width=700 CLASS=LISTINGLABEL> <TR bgcolor=#FFFFFF> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\MenuBlank.gif" ALIGN=Left BORDER=0 HSPACE=0 VSPACE=0 width=19 HEIGHT=28> </TD> <TD HEIGHT=<% = intTitleHeight %> ColSpan=14 align=center> <TABLE border=0 cellspacing=0 cellpadding=0 width=700 HEIGHT=21 CLASS=LISTINGLABEL> <TR> <TD align=left Width=70> <% If cgiPageNum > 1 Then %> <A HREF="<% = urlScriptName %>?SCRIPT_MODE=JOBSLISTING&SCRIPT_METHOD=<% = strMachineID %>&SCRIPT_TITLE=<% = strMachineID %>+JOBS+LISTING&PAGE=<% = (cgiPageNum - 1) %>&TAB_SETTING=<% = cgiTabSetting %>"><FONT CLASS=LISTING face=ARIAL size=1 color=#000099><IMG SRC="Images\Icons\PrevButton.gif" BORDER=0 HSPACE=0 VSPACE=0 WIDTH=70 HEIGHT=21 align=absbottom></FONT></A> <% End If %> </TD> <TD align=center> <% intRecordsShown = 1 Do While intRecordsShown <= intPageCount And intRecordsShown < 20 %> <% If CInt(intRecordsShown) = CInt(cgiPageNum) Then %> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099>[<% = intRecordsShown %>]</FONT> <% Else %> <A HREF="<% = urlScriptName %>?SCRIPT_MODE=JOBSLISTING&SCRIPT_METHOD=<% = strMachineID %>&SCRIPT_TITLE=<% = strMachineID %>+JOBS+LISTING&PAGE=<% = intRecordsShown %>&TAB_SETTING=<% = cgiTabSetting %>" CLASS=LISTING><FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = intRecordsShown %></FONT></A> <% End If %> <% intRecordsShown = (intRecordsShown + 1) Loop %> </TD> <TD align=right Width=70> <% If CInt(intPageCount) > CInt(cgiPageNum) Then %> <A HREF="<% = urlScriptName %>?SCRIPT_MODE=JOBSLISTING&SCRIPT_METHOD=<% = strMachineID %>&SCRIPT_TITLE=<% = strMachineID %>+JOBS+LISTING&PAGE=<% = (cgiPageNum + 1) %>&TAB_SETTING=<% = cgiTabSetting %>"><FONT CLASS=LISTING face=ARIAL size=1 color=#000099><IMG SRC="Images\Icons\NextButton.gif" BORDER=0 HSPACE=0 VSPACE=0 WIDTH=70 HEIGHT=21 align=absbottom></FONT></A></TD> <% End If %> </TR> </TABLE> </TD> </TR> <TR bgcolor=#336699> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\MenuBlank.gif" ALIGN=Left BORDER=0 HSPACE=0 VSPACE=0 width=19 HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>JOB</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>ORIGINATOR</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>EWO</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>PROJECT</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>PLATFORM</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTINGLABEL face=ARIAL size=1 color=#ccffff>DATE</FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> </TR> <% On Error Resume Next 'objRS.MoveFirst 'For intPageRec = intPageSize to intPageCount intRecordsShown = 0 Do While intRecordsShown < intPageSize And Not objRS.EOF intPtr = (intPtr + 1) strDatBGColor = "#FFFFFF" If intPtr Mod 2 = 0 Then strDatBGColor = "#DDDDEE" strJobNumberBuf = objRS.Fields("Machine").Value & "-" & objRS.Fields("JobNumber").Value strNameBuf = objRS.Fields("LastName").Value & "," & objRS.Fields("FirstName").Value & "," & objRS.Fields("MI").Value strEwoBuf = objRS.Fields("PreEwo").Value & "-" & objRS.Fields("Ewo").Value strProjectBuf = objRS.Fields("Project").Value strPlatformBuf = objRS.Fields("PlatForm").Value datDate = objRS.Fields("DateStamp").Value strInsuranceNumber = "http://ekdir.kodak.com/details.cfm?EmpId=50" & objRS.Fields("OriginatorInsNumber").Value & "&Name=" & ParseOutRC(strNameBuf,0) & " " & ParseOutRC(strNameBuf,1) & " " & ParseOutRC(strNameBuf,2) %> <TR bgcolor=<% = strDatBGColor %>> <TD HEIGHT=<% = intTitleHeight %>> <% If objRS.Fields("OriginatorInsNumber").Value = strAuthUser Then %> <IMG SRC="Images\Menus\MenuCheckMark.gif" ALIGN=Left BORDER=0 HSPACE=0 VSPACE=0 width=19 HEIGHT=<% = intTitleHeight %>> <% Else %> <IMG SRC="Images\Menus\MenuBlank.gif" ALIGN=Left BORDER=0 HSPACE=0 VSPACE=0 width=19 HEIGHT=<% = intTitleHeight %>> <% End If %> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %> nowrap> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = strJobNumberBuf %></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %> CLASS=LISTING> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><A HREF="<% = strInsuranceNumber %>" CLASS=LISTING><% = strNameBuf %></A></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = strEwoBuf %></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = strProjectBuf %></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = strPlatformBuf %></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> <TD HEIGHT=<% = intTitleHeight %>> <FONT CLASS=LISTING face=ARIAL size=1 color=#000099><% = datDate %></FONT> </TD> <TD HEIGHT=<% = intTitleHeight %>> <IMG SRC="Images\Menus\BlankBlank.gif" ALIGN=Left BORDER=0 HSPACE=4 VSPACE=0 width=<% = intSeperatorWidth %> HEIGHT=<% = intTitleHeight %>> </TD> </TR> <% objRS.MoveNext intRecordsShown = (intRecordsShown + 1) Loop 'If objRS.EOF Then Exit For 'Next objRS.Close objConnSession.close %> </TABLE> </TD> </TR> <% End Function %>

© Copyright 1999, 2013, R.G. Erhart, Erhart Consulting LLC™, Rochester New York