Altså nu er det en hun - er det undskyldning nok?
Og her kommer den så da *GG*
Jeg har en database med 2 tabeller:
Personer tabellen:
personID Navn
1
2 ingen
3 skudaar
4 lukket
5 medarb1
6 medarb2
7 medarb3
8 medarb4
Kalender tabellen:
ID 01 02 03 04 05 osv
1 lukket
2 lukket lukket
3
4 lukket lukket
5
6
7
8 lukket lukket
9
10
11
12
(Jeg vil lige tilføje at Kalender tabellen har 31 felter). Felterne i Kalender tabellen er opslag til Personer tabellen.
Jeg har lavet et script, hvor administrator kan gå ind og vælge hvilke dage der skal være lukket. Nu vil jeg så gerne have lavet et script, hvor administrator vælger hvilken medarbejder fra Personer tabellen, der skal startes med den første ledige dag i januar og så gå igennem en loop (fra Personer tabellen fra den medarbejder administrator har valgt) og indtil alle tomme felter i kalender tabellen er udfyldt - hvordan gør jeg det? - min kode ser sådan her ud nu:
<!-- #include file="subrutiner.asp" -->
<html>
<!-- Minus AutoDato -->
<title>udfyld</title>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<%
sPageAction = trim(Request("Action"))
%>
<center><h1>Angiv start forening</h1></center>
<p><br><br><br>
<form name=valg method="post" action="udfyld.asp">
<table width="100%" border="0">
<tr>
<td width="40%" align="right">
</td>
<td width="10%"><b>Forening:</b></td>
<%
OpenCon
strSQL = "select Navn from Personer where personID=5 or personID=6 or personID=7 or personID=8"
set rs = Conn.Execute(strSQL)
response.write "<td width=""55%""><select name=""Navn" & rs("Navn") &""" size=""1"">"
Do while not rs.eof strNavn = rs("Navn")
Response.Write "<option value='"
Response.Write rs("Navn") &"'"
Response.Write ">"&rs("Navn")&"</option>"
rs.MoveNext
Loop
response.write "</td>"
%>
</tr>
</table>
<p>
<center><input TYPE="submit" name="submit" VALUE="Gem"></center><br>
</form>
</body>
</html>