|
Førstesiden / ASP / .html
Kobling mot en Access-database:
<HTML>
<head>
<title></title>
</head>
<BODY bgcolor="#FFFFCC">
<h2 align="center">
<B>Database i Access.</B>
<br>
<%@Language="VBScript"%>
<%Session.LCID=1033
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>
<%
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>
Skrevet av Sindre Mathisen 2002
Utskriftsvennlig versjon | Forslag til endring av artikkel | Skriv ut | Ny kommentar
| Det er ingen kommentarer til denne artikkelen. | |
|
|
|
