Nu skulle jag försöka hämta alla poster ur databasen genom att trycka på en knapp som heter "Visa"......men inget händer. Vad har jag gjort för fel. Tänkt att det ska komma i en tabell. Här är koden: hej! Tack för tipset Jonas.....men det händer inget.......får inte ens ett felmeddelande......*suck*Dags igen.....hur hämta poster ur databas?
<!--#include file="adovbs.inc"-->
<HTML>
<HEAD>
<TITLE>Anmälnings-listan för bok-cirklen!</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY bgcolor="#FFFFCA" link="#800000" vlink="#800000" alink="#FF00FF">
<CENTER>
<H1><P><FONT FACE="Comic Sans MS">Anmälnings-listan för bok-cirkeln!</FONT></P></H1>
<input type="Submit" name="Submit" value="Visa">
<% if request.form("Submit")="Visa" then
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Cirkel"
RS.Open "SELECT * FROM Bocker ORDER BY Namn", Connect, adOpenStatic, adLockOptimitstic
%>
<TABLE BORDER=1>
<% Do until RS.EOF %>
<TR>
<% =RS("Namn") %>
</TR>
<TR>
<% =RS("Ort") %>
</TR>
<%RS.MoveNext
Loop
RS.Close
Connect.Close
end if %>
</TABLE>
</CENTER>
</FORM>
</BODY>
</HTML>Sv: Dags igen.....hur hämta poster ur databas?
testa detta:
<code>
<HTML>
<HEAD>
<TITLE>Anmälnings-listan för bok-cirklen!</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY bgcolor="#FFFFCA" link="#800000" vlink="#800000" alink="#FF00FF">
<CENTER>
<H1><P><FONT FACE="Comic Sans MS">Anmälnings-listan för bok-cirkeln!</FONT></P></H1>
<form name="minform">
<input type="hidden" value="Visa" name="Visa">
<input type="Submit" name="Submit">
</form>
<!--#include file="adovbs.inc"-->
<%
if request.form("Visa") = "Visa" then
Dim objConn, strProvider
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("databas.mdb")
objConn.Open
Dim objRS, strSQL
strSQL = "SELECT * FROM Bocker ORDER BY Namn"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
%>
<TABLE BORDER=1>
<% Do until objRS.EOF %>
<TR><td>
<% =objRS("Namn") %>
</td>
</TR>
<TR><td>
<% =objRS("Ort") %>
</td>
</TR>
<%
RS.MoveNext
Loop
end if %>
</TABLE>
</CENTER>
</FORM>
</BODY>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</HTML>
</code>
/jonasSv: Dags igen.....hur hämta poster ur databas?