<%
const adopenforwardonly=0
const adlockreadonly=1
const adcmdtext=1

dim cn,cnstr
Set cn = Server.CreateObject("ADODB.Connection")
cnstr="provider=microsoft.jet.oledb.4.0;"
cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;"
cn.connectionstring=cnstr
cn.Open

dim rs, sql,slet

set rs=Server.CreateObject("ADODB.recordset")
sql="select*from data where id="& request("id")
rs.open sql, cn,adopenforwardonly,adlockreadonly,adcmdtext
%>

<html>
<body  background="baggrund.jpg">
Id nummer <% response.write rs.fields("id")%>
<form method="post" action="redigere1.asp">

<%
dim navn

response.write"<input type=hidden name=id value="& rs.fields("id") &"><br>"&""
response.write"Navn<br>"
response.write"<input type=text name=navn value="& rs.fields("navn") &"><br>"&""
response.write"Efternavn<br>"
response.write"<input type=text name=efternavn value="& rs.fields("efternavn") &"><br>"&""
response.write"e-mail<br>"
response.write"<input type=text name=mail value="& rs.fields("mail") &"><br>"&""

rs.close
set rs=nothing
cn.close
set cn=nothing
%>