Vis indhold fra acces

SQL = \"Select * from din-database\"

Nu har jeg ikk ret meget forstand på det så...
Det er en accesdatabase som jeg har og jeg vil gerne vide hvor jeg skal skrive det henne..

<% \'Åbn databasen
  Set conntemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"nyhedsbrev.mdb\") & \"; UID=Administrator; PWD=\"
  conntemp.open DSN

SQL = \"select * FROM maillingliste order by email asc\"
    set rstemp = conntemp.execute(sql)

do while not (rstemp.eof or rstemp.bof)
response.write \"\" & rstemp(\"email\") & \"\" %>
    rstemp.movenext
    loop
    rstemp.close 
    conntemp.close
  set conntemp=nothing

%>

Hvor nyhedsbrev.mdb er de database - mallingliste er din tabel og email er din kolonne.

Først skal du skabe forbindelsen til din database:

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"din-database.mdb\")
SQL = \"Select * From databasenavnet\"
set RS = conn.execute(sql)
%>

Når du nu har valgt at lave forindelse og vælge det hele skal du sætte din side op til at vise de ting, der skal vises fra databasen:

DO WHILE NOT rs.EOF
første-kollone = rs(\"første-kollone\")
anden-kollone = rs(\"anden-kollone\")
tredie-kollone = rs(\"tredie-kollone\")
      o.s.v.
%>

<table>
<tr>
<td>
<%=første-kolonne%>
</td>
<td width=\"50%\">
<%=anden-kolonne%>
</td>
<td width=\"50%\">
<%=tredie-kolonne%>
</td>
    o.s.v.
</tr>
</table>

Nu skal du lukke hentning af data:
    rs.MoveNext
  LOOP
  RS.Close
Nu skal du lukke forbindelsen:

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Hmm fik du det til at virke ?

<%
Lav først en database connection

strSQL = \"Select * from tabel\"
Set = Conn.Execute(strSQL)

if not (rs.EOF) then
response.write(\"ingen links i databasen\")
Else
%>
<table>
<tr>
<td><%=rs(\"kollonne1\")%></td>
<td><%=rs(\"kollonne2\")%></td>
</tr>
</table>
<%
rs.MoveNext
loop
end if
%>

Skulle gerne virke... Ellers skal der bare rettes lidt i det :)

UPS! Prøv hellere dette:

strSQL = \"Select * from tabel\"
Set rs = Conn.Execute(strSQL)

if not (rs.EOF) then
response.write(\"ingen links i databasen\")
Else
%>
<table>
<tr>
<td><%=rs(\"kollonne1\")%></td>
<td><%=rs(\"kollonne2\")%></td>
</tr>
</table>
<%
rs.MoveNext
loop
end if
%>