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

---

<!--#include file="../inc/navstuff.asp" -->
<!--  #include file="../inc/connection.asp" -->
<!--  #include file="dbUpdateCode.asp" -->
Jag är inte alls nöjd med denna sida. Skall skriva om den när jag hinner....<p>
Samma form som i föregående kapitel men med "färdigt skrivna" include filer:
<!--  #include file="dbNormalButtons.asp" -->
<%
Const nav_SQL = "SELECT * FROM EXEMPELDATA"
%>
<!--  #include file="dbButtonHandler.asp" -->
<!--  #include file="dbNaviButtons.asp" -->

<TABLE BORDER="0" cellpadding="0" cellspacing="0">
      <tr>
           <td bgcolor="#FFFFCC">
                Sidan: <B><%  =nav_PAGE %></b>
           </td>
           <td bgcolor="#FFFFCC">
                 
           </td>
      </tr>
      <tr>
           <td valign="top">
                aBYTE
           </td>
           <td>
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="0"
                          <%  if nav_RS("aBYTE") = 0 Then %>
                          CHECKED
                          <%  End If %>
                          >
                          Nolla
                           
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="1"
                          <%  if nav_RS("aBYTE") = 1 Then %>
                          CHECKED
                          <%  End If %>
                          >
                          Etta
                           
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="2"
                          <%  if nav_RS("aBYTE")= 2 Then %>
                          CHECKED
                          <%  End If %>
                          >
                          Tvåa
                           
           </td>
      </tr>

      <tr>
           <td valign="top">
                aINTEGER
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aINTEGER"
                          SIZE="40"
                          VALUE="<%  =nav_RS("aINTEGER") %>">
           </td>
      </tr>
      <tr>
           <td valign="top">
                aDOUBLE
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aDOUBLE"
                          SIZE="40"
                          VALUE="<%  =nav_RS("aDOUBLE") %>">
           </td>
      </tr>

      <tr>
           <td valign="top">
                aDATE
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aDATE"
                          SIZE="40"
                          VALUE="<%  =nav_RS("aDATE") %>">
           </td>
      </tr>

      <tr>
           <td valign="top">
                aTIME
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aTIME"
                          SIZE="40"
                          VALUE="<%  =nav_RS("aTIME") %>">
           </td>
      </tr>

      <tr>
           <td valign="top">
                aYESNO
           </td>
           <td>
                <INPUT NAME="aYESNO" TYPE="CHECKBOX" VALUE="1"
                <%  If nav_RS("aYESNO") <> 0 Then %>
                CHECKED
                <%  End If %>
                >
           </td>
      </tr>
      <tr>
           <td valign="top">
                aTEXT
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aTEXT"
                          SIZE="40"
                          VALUE="<%  =nav_RS("aTEXT") %>">
           </td>
      </tr>

      <tr>
           <td valign="top">
                aMEMO
           </td>
           <td><TEXTAREA
                     NAME="aMEMO"
                     COLS="40"
                     ROWS="8"><%  =nav_RS("aMEMO") %></TEXTAREA><br>
                     <font size="2">Netscape byter <b>inte</b> rad automatiskt i TEXTAREA! <br>IE sköter sig i mitt tycke bättre!</font>
           </td>
      </tr>
</table>
<!--  #include file="dbSwichToEditMode.asp" -->
<!--  #include file="dbEditButtons.asp" -->
<TABLE BORDER="0" cellpadding="0" cellspacing="0">

      <tr>
           <td bgcolor="#FFFFCC">
                Sidan: <B>NY SIDA</b>
           </td>
           <td bgcolor="#FFFFCC">
                 
           </td>
      </tr>
      <tr>
      <!-- 
           För byten finns bara 0,1 och 2 som alternativ
           Därför använder jag här en grupp med Radioknappar
      -->
           <td valign="top">
                aBYTE
           </td>
           <td>
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="0"
                          CHECKED
                          >
                          Nolla
                           
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="1"
                          >
                          Etta
                           
                <INPUT TYPE="RADIO"
                          NAME="aBYTE"
                          VALUE="2"
                          >
                          Tvåa
                           
           </td>
      </tr>

      <tr>
           <td valign="top">
                aINTEGER
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aINTEGER"
                          SIZE="40"
                          >
           </td>
      </tr>
      <tr>
           <td valign="top">
                aDOUBLE
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aDOUBLE"
                          SIZE="40"
                          >
           </td>
      </tr>

      <tr>
           <td valign="top">
                aDATE
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aDATE"
                          SIZE="40"
                          >
           </td>
      </tr>

      <tr>
           <td valign="top">
                aTIME
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aTIME"
                          SIZE="40"
                          >
           </td>
      </tr>

      <tr>
           <td valign="top">
                aYESNO
           </td>
           <td>
                <INPUT NAME="aYESNO" TYPE="CHECKBOX" VALUE="1">
           </td>
      </tr>
      <tr>
           <td valign="top">
                aTEXT
           </td>
           <td>
                <INPUT TYPE="TEXT"
                          NAME="aTEXT"
                          SIZE="40"
                          >
           </td>
      </tr>

      <tr>
           <td valign="top">
                aMEMO
           </td>
           <td><TEXTAREA
                     NAME="aMEMO"
                     COLS="40"
                     ROWS="8"></TEXTAREA><br>
                     <font size="2">Netscape byter <b>inte</b> rad automatiskt i TEXTAREA! <br>IE sköter sig i mitt tycke bättre!</font>
           </td>
      </tr>
</table>
<!--#include file="dbEditModeEnd.asp" -->
Sidan blir då:<ol>
<li><b>En normal Header eller en inkluderad header</b>
<li><a href="../inc/code.asp?source=connection.asp"><!--#include file="connection.asp" --></a><br>
Används för att initiera databaskonnektionen.Bör modifieras för att avspegla VAR
databasen finns
<li><a href="../inc/code.asp?source=../asp/dbUpdateCode.asp"><!--#include file="dbUpdateCode.asp" --></a><br>
Används för uppdateringar. Behöver inte modifieras?
<li><b>Vi säger vilken tabell som skall användas</b><br>
<div class=code><span class=asp><%<br>
Const nav_SQL = "SELECT * FROM EXEMPELDATA"<br>
%></span><br></div>
<li><a href="../inc/code.asp?source=../asp/dbNormalButtons.asp"><!--#include file="dbNormalButtons.asp" --></a><br>
Texterna som skall finnas på knapparna. Ändra vid behov.
<li><a href="../inc/code.asp?source=../asp/dbButtonHandler.asp"><!--#include file="dbButtonHandler.asp" --></a><br>
Hantering av knapparna. Behöver inte modifieras?
<li><a href="../inc/code.asp?source=../asp/dbNaviButtons.asp"><!--#include file="dbNaviButtons.asp" --></a><br>
Början av den "normala" formen. Kan ända på Layouten. Ändra inte på
variabelnamnen. Tag INTE bort HIDDEN fields
<li><b>Sedan kommer formen för normal hantering. Sätt in värdena med <span class=asp><% =nav_RS("<i>fält</I>") %></span></b>
<li><a href="../inc/code.asp?source=../asp/dbSwichToEditMode.asp"><!--#include file="dbSwichToEditMode.asp" --></a><br>
Slutar "normala" formen och stänger alla databaser. Fixar till några andra saker.
Behöver inte modifieras.
<li><a href="../inc/code.asp?source=../asp/dbEditButtons.asp"><!--#include file="dbEditButtons.asp" --></a><br>
Sätter in de knappar som skall finnas vid "ny post". Ändra inte FÖR mycket, please
<li><b>Sedan kommer formn för ny post.</b>
<li><a href="../inc/code.asp?source=../asp/dbEditModeEnd.asp"><!--#include file="dbEditModeEnd.asp" --></a><br>
Lite kod som avlutar "ny post" formen
<li>En normal footer eller inkluderad footer
</ol><p>


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