PHP@Sindrem.com - et online opplæringssenter i PHP, ASP, JavaScript og SQL.

Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" &
server.mappath("database.mdb")
conn.Open DSNtemp

SQLstmt = "SELECT * FROM person"
 %>
</h2>
 <%<br />
 Set rs = conn.Execute(SQLstmt)
 %>
<div align="center">
 <center>
 <TABLE BORDER='0' bgcolor='#E6E4E4' width='500' cellspacing='3'
cellpadding='0' style='border: 2 solid #000000'>
 <TR>
 <TD
width="55"><CENTER><B>Fornavn</B></CENTER></TD>

<TD
width="68"><CENTER><B>Etternavn</B></CENTER></TD>

<TD
width="32"><CENTER><B>Alder</B></CENTER></TD>

<%
 x=0
 DO WHILE NOT rs.EOF
 x=x+1
 fornavn = rs("fornavn")
 etternavn = rs("etternavn")
 alder = rs("alder")
 %>
 <TR>
 <TD width="55"><%=fornavn%></TD>
 <TD width="55"><%=etternavn%></TD>
 <TD width="32"><%=alder%></TD>
 <%
 rs.MoveNext
 LOOP
 RS.Close
 Response.Write "</TABLE>"
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
 </table>
 </center>
</div>
</BODY>
</pre>

<p>Skrevet av Sindre Mathisen 2002</p>

Spam vil bli anmeldt. Jeg vil se igjennom forslagene før de blir lagt ut.

<< tilbake

Nyttige program

Om meg