Resultatet av föregående kapitel

Tillbaka

Mer uppgifter (visar inte alla):

OK! Du bad om det. Här kommer fler uppgifter:

aAUTONUMBER:

990

aTEXT:

Textrad 14

aINTEGER:

14

aMEMO:

En längre testrad som kan vara rätt lång 14

aDATE:

03/10/2002

aYESNO:

False

Denna sida får ett fältvärde via URL:n i formen ?AUTONUMBER=n där n är värdet på det fält som unikt identifierar posten (en counter i detta fall)

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...)

För att öppna bara rätt post kan man använda följande konstruktion

<!-- #include file="connection.asp" -->
<%
' 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 )
   ' Det finns ju en möjlighet att det kommer fel saker via URL
   ' det är säkrast att kontrollera om man har en post att jobba med
   ' om både BOF (Beginning Of File) och
   ' EOF (End Of File) är sanna så har vi INGENTING
   If RS.EOF And RS.BOF Then
%>
      <!-- Vi fick ingenting via URL:n. Meddela detta -->
      Kan inte visa någon post!<p>

   <% Else ' vi har en post att visa %>

      <!-- visa övriga posters innehåll -->
      <%=RS("aTEXT") %><br>
      <%=RS("aMEMO") %><br>
      
   <% End If

   RS.Close
   Conn.Close
   Set RS = nothing
   Set Conn = nothing

Else
%>
   <!-- Vi fick ingenting via URL:n. Meddela detta -->
   Du måste välja en länk i föregående kapitel!<p>
<%
End If
%>