Avatar billede tblaster Nybegynder
09. maj 2002 - 15:17 Der er 7 kommentarer og
1 løsning

Hente oplysning fra db!

Jeg har følgende side som jeg bruger til at hente oplysninger om tilmeldte til en seminar. Men når jeg åbner siden så vises der intet på siden. Bare en tom side! Siden åbnes vha. følgende link:
tilmeldte.asp?Fagseminar=Lyn kursus i Microsoft Word 2002

Her er min script:

<%Language = "VBScript"%>
<%Fagseminar = request.Querystring%>
<HTML>
<HEAD>
<TITLE>Tilmeldte</TITLE>
</HEAD>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Deltagere, Firma, Betaling, Fagseminar from Tilmeldte where Fagseminar='" & request.querystring("Fagseminar") & "'"
rs.Open SQL, Conn



For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

<% =rs("Deltagere")%><br>
<% =rs("Firma")%><br>
            <%
      rs.MoveNext
    End If
Next
%>           
</BODY></HTML>
Avatar billede online-help.dk Nybegynder
09. maj 2002 - 15:52 #1
<%Language = "VBScript"%>
<%Fagseminar = request.Querystring%>
<HTML>
<HEAD>
<TITLE>Tilmeldte</TITLE>
</HEAD>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Deltagere, Firma, Betaling, Fagseminar from Tilmeldte where Fagseminar='" & request.querystring("Fagseminar") & "'"
rs.Open SQL, Conn



For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

<%= rs("Deltagere") %><br>
<%= rs("Firma") %><br>
            <%
      rs.MoveNext
    End If
Next
%>           
</BODY></HTML>
Avatar billede eagleeye Praktikant
09. maj 2002 - 16:01 #2
Jeg undre mig lidt over denne:

For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

<% =rs("Deltagere")%><br>
<% =rs("Firma")%><br>
            <%
      rs.MoveNext
    End If
Next
%>           

-------
Jeg ville lave den sådan her:

<% if rs.EOF OR rs.BOF then %>
  Der er ingen tilmeldt<br>
<% else
  do while not rs.EOF %>
    <%= rs("Deltagere") %><br>
    <%= rs("Firma") %><br>
    <% rs.movenext
  loop %>
<% end if %>
Avatar billede tblaster Nybegynder
09. maj 2002 - 16:20 #3
online-help.dk ... du har da ikke ændret noget i koden :-D
Avatar billede tblaster Nybegynder
09. maj 2002 - 16:20 #4
Hvis jeg prøver at bruge det du skrev eagleeye så virker siden ikke :-D
Avatar billede online-help.dk Nybegynder
09. maj 2002 - 16:31 #5
jo jeg havde nogle mellem rum...
Avatar billede tblaster Nybegynder
09. maj 2002 - 16:42 #6
Med eller uden mellemrum så giver det det samme resultat her online-help.dk :-)
Avatar billede tblaster Nybegynder
09. maj 2002 - 17:02 #7
Eagleeye ... hvordan vil du lave det du har skrevet der?
Avatar billede tblaster Nybegynder
09. maj 2002 - 17:03 #8
Jeg fandt fejlen ... min database var tom ... ellers tak for hjælpen!
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