Avatar billede nfssister Forsker
02. januar 2002 - 12:14 Der er 4 kommentarer og
1 løsning

Er det rigtigt skrevet ??

Det eneste jeg vil vide er om det er rigtigt skrvet det med tabellerne:

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"/db/produkter.mdb\")
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from tilbud ORDER BY navn ASC\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
   
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>\" & rs(\"navn\") & \"</b></font></td>
          <td width=\"50%\"></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>pris:
            </b>\" & rs(\"pris\") & \"</font></td>
          <td width=\"50%\" align=\"right\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>Varenummer:</b></font>
            \" & rs(\"varenummer\") & \"</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"></td>
          <td width=\"50%\" align=\"right\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>Upload
            dato:</b> \" & rs(\"dato\") & \"</font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
    \' Gå til næste Record i rs
  rs.MoveNext
 

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede virus Nybegynder
02. januar 2002 - 12:16 #1
ja
Avatar billede virus Nybegynder
02. januar 2002 - 12:17 #2
dog har du andre fejl men sql\'en er rigtig :)
du skal huske at udskrive dine kolonner som

<%= rs(\"varenummer\") %>
Avatar billede virus Nybegynder
02. januar 2002 - 12:17 #3
og så vidre :)
Avatar billede nfssister Forsker
02. januar 2002 - 12:21 #4
jamen er tabellerne rigtig skrevet. Kan den klare det som den står nu ?? Og hvis der er andre fejl så skriv dem med. (er ikke en haj til asp)
Avatar billede virus Nybegynder
02. januar 2002 - 12:25 #5
sådan her

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"/db/produkter.mdb\")
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from tilbud ORDER BY navn ASC\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
   
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b><% = rs(\"navn\") %></b></font></td>
          <td width=\"50%\"></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>pris:
            </b>\" & rs(\"pris\") & \"</font></td>
          <td width=\"50%\" align=\"right\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>Varenummer:</b></font>
          <% = rs(\"varenummer\") %></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td width=\"50%\"></td>
          <td width=\"50%\" align=\"right\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\"><b>Upload
            dato:</b> <% = rs(\"dato\") %></font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<%
    \' Gå til næste Record i rs
  rs.MoveNext
 

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester