Källkoden för /anders.enges/asp/db2o3res.asp

---

<!--#include file="../inc/navstuff.asp" -->

<!-- 
   En enkel back knapp
-->
<a href="javascript:history.go(-1)">
<img src="../images/huvind.gif" width="21" height="15" border="0">Tillbaka</a>

<!-- 
Denna rad inkuderar en fil som innehåller min strConn konstant
Se kapitlet "Enkel Listning" för dess innehåll
-->
<!--  #include file="../inc/connection.asp" -->

<p>Mer uppgifter (visar inte alla):</p>


<%
' om det komm en AUTONUMBER via URL
' så kan vi plocka ihop en SQL WHERE sats innan vi äppnar ett recorset
If Not IsEmpty(Request("AUTONUMBER")) Then
      SQL = "SELECT * FROM EXEMPELDATA WHERE aAUTONUMBER=" & _
      Request("AUTONUMBER")

      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open strConn
     
      ' vi behöver inte bläddra eller ändra i denna tabell så
      ' vi kan köra enklast möjliga öppnande av en Recorset
      Set RS = Conn.Execute( SQL )
      If RS.EOF and RS.BOF Then
%>
      Kan inte visa någon post!<p>
<%  Else %>
<!--  Så visar vi vissa delar av resultatet -->
OK! Du bad om det. Här kommer fler uppgifter:
<dl>
<dt>aAUTONUMBER:
<dd><%=RS("aAUTONUMBER") %>
<dt>aTEXT:
<dd><%=RS("aTEXT") %>
<dt>aINTEGER:
<dd><%=RS("aINTEGER") %>
<dt>aMEMO:
<dd><%=RS("aMEMO") %>
<dt>aDATE:
<dd><%=RS("aDATE") %>
<dt>aYESNO:
<dd><%=RS("aYESNO") %>
</dl>
<%  End IF %>
<!--  Stäng objekten o nolla dem -->
<%
RS.Close
Conn.Close
Set RS = nothing
Set Conn = nothing

Else
%>

<!-- 
      hit kommmer vi om AUTONUMBER inte var gett
      t.ex om vi bara öppnar denna sida.
-->
Du måste välja en kurs i föregående kapitel!<p>
<%
End If
%>
Denna sida får ett fältvärde via URL:n i formen ?AUTONUMBER=<i>n</i> där
<i>n</i> är värdet på det fält som unikt identifierar posten (en counter i detta fall)<p>

Det är rätt dumt att öppna en hel tabell och sedan söka fram rätt post när man
kan se till att BARA öppna rätt post från början (jag har hittat alldeles för många
FindFirst i elevernas VB program...)<p>
För att öppna bara rätt post kan man använda följande konstruktion<br>
<div class=code>
<FONT COLOR=#006400><!-- #include file="connection.asp" --></font><br>
<span class=asp>
<%<br>
' om det komm en AUTONUMBER via URL<br>
' så kan vi plocka ihop en SQL WHERE sats innan vi äppnar ett recorset<br>
If Not IsEmpty(Request("<i>AUTONUMBER</i>")) Then<br>
   <i>SQL</i> = "SELECT * FROM <i>EXEMPELDATA</i> WHERE <i>aAUTONUMBER</i>=" & _<br>
             Request("<i>AUTONUMBER</i>")<br>
<br>
   Set <i>Conn</i> = Server.CreateObject("ADODB.Connection")<br>
   <i>Conn</i>.Open <i>strConn</i><br>
<br>
   ' vi behöver inte bläddra eller ändra i denna tabell så <br>
   ' vi kan köra enklast möjliga öppnande av en Recorset<br>
   Set <i>RS</i> = <i>Conn</i>.Execute( <i>SQL</i> )<br>
   ' Det finns ju en möjlighet att det kommer fel saker via URL<br>
   ' det är säkrast att kontrollera om man har en post att jobba med<br>
   ' om både BOF (Beginning Of File) och <br>
   ' EOF (End Of File) är sanna så har vi INGENTING<br>
   If <i>RS</i>.EOF And <i>RS</i>.BOF Then<br>
%></span><br>
      <FONT COLOR=#006400><!-- Vi fick ingenting via URL:n. Meddela detta --></font><br>
      Kan inte visa någon post!<p><br>
<br>
   <span class=asp><% Else ' vi har en post att visa %></span><br>
<br>
      <FONT COLOR=#006400><!-- visa övriga posters innehåll --></font><br>
      <span class=asp><%=<i>RS</i>("<i>aTEXT</i>") %></span><br><br>
      <span class=asp><%=<i>RS</i>("<i>aMEMO</i>") %></span><br><br>
      <br>
   <span class=asp><% End If <br>
<br>
   <i>RS</i>.Close<br>
   <i>Conn</i>.Close<br>
   Set <i>RS</i> = nothing<br>
   Set Conn = nothing<br>
<br>
Else<br>
%></span><br>
   <FONT COLOR=#006400><!-- Vi fick ingenting via URL:n. Meddela detta --></font><br>
   Du måste välja en länk i föregående kapitel!<p><br>
<span class=asp><%<br>
End If<br>
%></span>
</div>


<!--  den följande raden inkluderar min standard footer -->
<!--#include file="../inc/footer.asp" -->