Her sidens kode ...
Et stykke nede har jeg kort beskrevet ...
<!-- #include virtual="/ADOVBS.inc" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<%
Dim rs, prrs, medrs
periodereq = request("periode")
Set pkrs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/50080/data/produkt.mdb")
strsql = "SELECT distinct periode from periodekultur order by periode asc"
pkrs.Open strSQL, strDSN, 1
Set pksrs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/50080/data/produkt.mdb")
strsql = "SELECT * from periodekultur where periode = ('"& periodereq &"')order by periode asc"
pksrs.Open strSQL, strDSN, 1
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/mdb/kfum.mdb")
rs.Open "aktuelt", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/50080/data/produkt.mdb")
strsql = "SELECT * from kultur where aktivsort='a' ORDER BY kultur,sort ASC"
rs.Open strSQL, strDSN, 1
%>
<head>
<title>Fuglebjerglund - Administration</title>
<link rel="stylesheet" type="text/css" href="/50080/style.css">
</head>
<body style:"colour: #1c1c1c";>
<div id="site">
<div id="logo">
</div>
<div id="top">
<h6>Fuglebjerglund</h6>
</div>
<div id="main">
<div id="menuind">
<%
Do While Not pkrs.EOF
%>
<a href="kulturvalg.asp?periode=<%=pkrs("periode")%>">
<h4><%Response.write pkrs("periode")%></h4></a><%
pkrs.MoveNext
Loop
pkrs.Close
Set pkrs = Nothing
%>
</div>
<div id="mainprod">
<%
if periodereq<>"" then
%>
<form action="gem.asp" method="post">
<table><tr><%
Do While Not rs.EOF
%>
Her skal jeg have spurgt i en anden tabel om id'et findes
<%
If ... Findes Then
Findes="checked"
Else
Findes=""
End if
%>
<td><input type="checkbox" id="<%=rs("id")%>" checked="<%=findes%>" name="<%=rs("id")%>" /></td>
<td><p><b><%Response.write rs("kultur")%></b></p></td>
<td><p><b><%Response.write rs("sort")%></b></p></td>
<td><p><b><%Response.write rs("aktivsort")%></b></p></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%></table>
<input type="submit" alt="enter" value="Gem ændringer" /></form><%
End if
%>
</div></div>
</body>
</html>
