Notifikationer

Markér alle som læst Log ud

simsen Mester

08. februar 2005 - 19:46 Der er 1 løsning

Indsætte i tomme felter

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:


<html>

<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>

Synes godt om

simsen Mester

12. februar 2005 - 20:34 #1

Koden til ovennævnte, som virker er:


<html>

<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?action=save">
<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>"

%>

<%
if lcase(sPageAction) = "save" then
person = request.form("navn")
SQL = "select COUNT(*) as antal from Personer where personID >= 5"
set rs_c = conn.execute(SQL)
SQL = "select navn from Personer where personID >= 5"
set rs_p = conn.execute(SQL)

antal = rs_c("antal")

redim personer(antal)
i = 1
start = 0

do while not rs_p.eof
personer(i) = rs_p("navn")
if rs_p("navn") = person then
start = i
end if
i = i + 1
rs_p.MoveNext
loop

SQL = "select * from Kalender order by id"
set rs = conn.execute(SQL)

do while not rs.eof
SQL = "Update Kalender set "
foerst = true
for i = 1 to 31
felt = ""& rs(right("0"& i,2)) &""
if felt = "" then
if foerst = false then
SQL = SQL &", "
end if
foerst = false
SQL = SQL & right("0"& i,2) &" = '"& personer(start) &"'"
start = start + 1
if start > antal then
start = 1
end if
end if
next
SQL = SQL &" where id = "& rs("id")
if foerst = false then
conn.execute(SQL)
end if
rs.MoveNext
loop
conn.close
set conn = nothing
response.write "Data er gemt"
end if
%>

</tr>
</table>
<p>
<center><input TYPE="submit" name="submit" VALUE="Gem"></center><br>
</form>
</body>
</html>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS