database values i en table

ret
Conn.Open DSN
select * from arrangementer
    Do
til

str="select * from arragementer"
conn.open str
  do

Næ det var forkert.

Du skal lave et rs hvor du putter din str ind:
set rs=conn.execute(str)
og så køre din do løkke.

Prøv dette i stedet for:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
    Conn.Open DSN
    rs = myConn.Execute("select * from arrangementer")

    Do until rs.EOF
    %>
   
        <tr>
            <td>Response.Write rs("dato")</td>
            <td>Response.Write rs("arrangement")</td>
            <td>Response.Write "<a href = "tilmeld.asp?arrangement=" & rs("beskrivelse")>Tilmeld</a></td>
        </tr>
    <%
        rs.movenext
    Loop
%>

Sådan:
Du er her : Eksperten : Programmering : Script : ASP : database values i en table :


database values i en table    30 point fra teknikeren
Hej. Jeg har denne kode:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
Conn.Open DSN
str = "select * from arrangementer"
set rs= conn.execute(str)
    Do
   
        <tr>
            <td>Response.Write rs("dato")</td>
            <td>Response.Write rs("arrangement")</td>
            <td>Response.Write "<a href = "tilmeld.asp?arrangement=" & rs("beskrivelse")>Tilmeld</a></td>
        </tr>
        rs.movenext
    Loop until rs.EOF
%>

Kan du ændre koden, så den ser sådan ud som du mener? Så vil jeg blive rigtig glad ;o)

/Rasmus

Hov, undskyld! Din connection hedder jo selvfølgelig conn

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
    Conn.Open DSN
    rs = Conn.Execute("select * from arrangementer")

    Do until rs.EOF
    %>
   
        <tr>
            <td>Response.Write rs("dato")</td>
            <td>Response.Write rs("arrangement")</td>
            <td>Response.Write "<a href = "tilmeld.asp?arrangement=" & rs("beskrivelse")>Tilmeld</a></td>
        </tr>
    <%
        rs.movenext
    Loop
%>

Hep - og så lige en sidste ændring - vi er jo hoppet ud af asp til udskrivningen, så alle dine & rs(noget) & skal ændres til <%=rs(noget)%>

response.write skal bare slettes...

Så skulle den være der

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
    Conn.Open DSN
    rs = Conn.Execute("select * from arrangementer")

    Do until rs.EOF
    %>
   
        <tr>
            <td><%=rs("dato")%></td>
            <td><%=rs("arrangement")%></td>
            <td><a href="tilmeld.asp?arrangement=<%=rs("beskrivelse")%>">Tilmeld</a></td>
        </tr>
    <%
        rs.movenext
    Loop
%>

Indtil videre er det deeflate's kode der virker bedst. Problemet er bare at "tabel-koden" sidder udenfor asp'en, så den derfor af naturlige grunde, skriver Response.Write rs("dato") i tabellen i stedet for værdien.

/Rasmus

<td><%=rs("dato")%></td>
<td><%=rs("arrangement")%></td>
<td><a href = "tilmeld.asp?arrangement=<&=rs("beskrivelse")%>>Tilmeld</a></td>

Virker stadig ikke. Nu er de to første felter i tabellen bare hvide, mens der står ">Tilmeld" i den sidste..

/Rasmus

Jeg var vist lidt for hurtig med de første to svar :)
Men den tredje burde virke. - også med data-udskrivningen...

Den har jeg prøvet. Men den virker ikke ;o)

/Rasmus

Prøv lige at sætte Set foran denne rs = Conn.Execute("select * from arrangementer")

Virker stadig ikke - Samme resultat.

/Rasmus

Hvormange tomme linier får du krevet ud?

krevet= skrevet

Set rs = Server.CreateObject("ADODB.RecordSet")

Det er det der skal sættes ind

Prøv evt at rette til:
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
    Conn.Open DSN
    Set rs = Conn.Open("select * from arrangementer",1,3)

if not rs.eof then
  rs.movelast
  rs.movefirst
end if

Og så din do kode her

Det virker stadig ikke. Tror der er noget galt med Do-koden.

/Rasmus

Det kører virkelig godt for mig idag :-(

set rs = ... skal selvf. være

rs.Open "Select * from arrangementer, Conn, 1,3

Sorry

Jeg prøver lige igen, glemte et "
rs.Open "Select * from arrangementer", Conn, 1,3

Du skal rykke "until rs.EOF" op til lige efter "do" - som jeg har gjort det - og så lade "loop" stå alene forneden

OK, nu har jeg testet lidt her, og følgende kode virker perfekt:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    'DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    'DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/arrangement.mdb")
    strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath ("/cgi-bin/arrangement.mdb")
    strSQL = "select * from arrangementer"
    'Conn.Open strDSN

    rs.open strSQL, strDSN, 1

    If not (rs.eof or rs.bof) Then

    Do until rs.EOF
    %>
   
        <tr>
            <td><%=rs("dato")%></td>
            <td><%=rs("arrangement")%></td>
            <td><a href="tilmeld.asp?arrangement=<%=rs("beskrivelse")%>">Tilmeld</a></td>
        </tr>
    <%
        rs.movenext
    Loop

    End if
%>

Jeg er væk en times tid, men koden ovenfor skulle altså virke.

Fik du det til at virke...?

Næh, det virker stadig ikke :(
/Rasmus

Hmm...
Får du en fejl, eller er der bare ikke noget i felterne?

Der er bare ikke noget i felterne :-/
/Rasmus