BDG Scenario 1

DDetails.asp

<% ' Copyright 1998-1999 Microsoft Corporation. All rights reserved. %>

<!-- DATA CONTROLS -- LongDisplay, AuthorDetail and SubjectDetail -->
<object id="RDS_LongDisplay" CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
        height=1 width=1 VIEWASTEXT>
</object>

<object id="RDS_AuthorDetail" CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
        height=1 width=1 VIEWASTEXT>
</object>

<object id="RDS_SubjectDetail" CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
        height=1 width=1 VIEWASTEXT>
</object>

<!-- BUTTONS -- Do Request highlighted -->
<div ID="LongDisplay" STYLE="DISPLAY: none; POSITION: absolute; LEFT: 265px; TOP: 50px; HEIGHT: 50px">
    <span class="UpButton" onClick="RequestClick()" 
          OnMouseDown="javascript:push()" OnMouseUp="javascript:unPush()"
          style="POSITION: relative; TOP: 5px; WIDTH: 100px" title="Request Title">Request Title</span>
    <span class="UpButton" onClick="ReDoCurrent()"
          OnMouseDown="javascript:push()" OnMouseUp="javascript:unPush()"
          style="POSITION: relative; TOP: 5px; WIDTH: 100px" title="Return to List">Return to List</span>
</div>

<!-- TABLE -- Details (Long) Display -->
<div ID="Details" STYLE="DISPLAY: none; LEFT: 265px; POSITION: absolute; TOP: 110px;FONT-SIZE:1pt">
   <table BORDER=0 CELLSPACING=2 CELLPADDING=0 COLS=2>
   <tbody>
      <tr VALIGN=Top><td><img DATASRC="#RDS_LongDisplay" DATAFLD="Icon"></td><td>
      <table ID="TBL_LongDisplay" BORDER=0 CELLSPACING=2 CELLPADDING=0 COLS=2
             DATASRC="#RDS_LongDisplay">
      <tbody>
         <tr><td COLSPAN=2><span CLASS=Title DATAFLD="Title"></span></td></tr>
         <tr><td WIDTH="30%" VALIGN=Top>Author: </td><td>
            <table ID="TBL_Authors" BORDER=0 CELLSPACING=2 CELLPADDING=0 COLS=1
             DATASRC="#RDS_AuthorDetail">
            <tbody>
               <tr><td><a DATAFLD="Link" TITLE="View other works by this author">
               <span DATAFLD="LName"></span>, <span DATAFLD="FName"></span></a></td></tr>
            </tbody>
            </table></td></tr>
         <tr><td WIDTH="30%">Call#: </td><td><span DATAFLD="Call"></span></td></tr>
         <tr><td WIDTH="30%">ISBN or ISSN: </td><td><span DATAFLD="ISBN"></span></td></tr>
         <tr><td WIDTH="30%">Published: </td><td><span DATAFLD="Pubdate"></span></td></tr>
         <tr><td WIDTH="30%">Description: </td><td><span DATAFLD="Description"></span></td></tr>
         <tr><td WIDTH="30%">Notes: </td><td><span DATAFLD="Notes"></span></td></tr>
         <tr><td WIDTH="30%" VALIGN=Top>Subject: </td><td>
            <table ID="TBL_Subjects" BORDER=0 CELLSPACING=2 CELLPADDING=0 COLS=1
             DATASRC="#RDS_SubjectDetail">
            <tbody>
               <tr><td><a DATAFLD="Link" TITLE="View other works on this subject">
               <span DATAFLD="Text"></span></a></td></tr>
            </tbody>
            </table></td></tr>
      </tbody>
      </table>
      </td></tr>
   </tbody>
   </table>
</div>

<script LANGUAGE=VBScript>
Sub RequestClick()
   DoRequest(RDS_LongDisplay.Recordset("bib#").Value)
End Sub

Sub RDS_AuthorDetail_OnReadyStateChange()
   'MsgBox "AuthorDetail: " & RDS_AuthorDetail.ReadyState
End Sub

Sub RDS_SubjectDetail_OnReadyStateChange()
   'MsgBox "SubjectDetail: " & RDS_SubjectDetail.ReadyState
End Sub

Sub RDS_LongDisplay_OnReadyStateChange()
   'Fires every time that ReadyState changes
   If RDS_LongDisplay.ReadyState = adcReadyStateComplete Then
      If RDS_LongDisplay.Recordset.State = adcStateOpen Then
         PleaseWait.style.display = "none"
         If RDS_LongDisplay.Recordset.EOF Then
            NoRecords.style.display = ""
         Else
            LongDisplay.style.display = ""
            Details.style.display = ""
         End If
      End If
   End If
End Sub

Sub RDS_LongDisplay_OnError(SCode,Description,Source,CancelDisplay)
   All_OnError SCode, Description, Source, CancelDisplay
End Sub

Sub RDS_AuthorDetail_OnError(SCode,Description,Source,CancelDisplay)
   All_OnError SCode, Description, Source, CancelDisplay
End Sub

Sub RDS_SubjectDetail_OnError(SCode,Description,Source,CancelDisplay)
   All_OnError SCode, Description, Source, CancelDisplay
End Sub

Sub All_OnError(SCode,Description,Source,CancelDisplay)
   MsgBox Description,vbCritical,Source
   PleaseWait.style.display = "none"
   NoRecords.style.display = ""
   CancelDisplay = True
End Sub

Sub ClearAllDetails()
   parent.LongDisplay.style.display = "none"
   parent.Details.style.display = "none"
End Sub
</script>