If a=0 Then s = s & "<option>8:00</option>" s = s & "<option>8:30</option>"
For i=9 To 23 s = s & "<option>" & i & ":00</option>" s = s & "<option>" & i & ":30</option>" Next
If a=1 Then s = s & "<option>00:00</option>"
MakeOptions = s End Function %> <script type="text/javascript"> function VerifyChange(frm){ if(frm.slut.selectedIndex < frm.start.selectedIndex){ // trouble alert("slut skal være større end start"); frm.slut.selectedIndex = frm.start.selectedIndex; } } </script>
Jeg har en "retteside" også hvor jeg har smækket koden ind i også, men så virker kontrollen ikke før starttidspunktet har været ændret mindst en gang selvom man starter med at ændre sluttidspunktet.
<% Function MakeOptions(a) Dim i, s s = ""
If a=0 Then s = s & "<option>" & rs("Klokken") & "</option>" s = s & "<option>" & rs("Klokken_slut") & "</option>"
For i=7 To 23 If i < 10 Then s = s & "<option>0" & i & ":00</option>" s = s & "<option>0" & i & ":30</option>" Else s = s & "<option>" & i & ":00</option>" s = s & "<option>" & i & ":30</option>" End if Next
If a=1 Then s = s & "<option>- ?? -</option>"
MakeOptions = s End Function %> <script type="text/javascript"> function VerifyChange(frm){ if(frm.Klokken_slut.selectedIndex < frm.Klokken.selectedIndex){ // trouble alert("Starttidspunkt skal være mindre end sluttidspunkt!"); frm.Klokken_slut.selectedIndex = frm.Klokken.selectedIndex; } } </script> <tr> <td><b>Tidspunkt:</b></td> <td><select style="width:92px;" name="Klokken" onchange="VerifyChange(this.form)"> <%=MakeOptions(0) %> </select><b> - </b> <select style="width:92px;" name="Klokken_slut" onchange="VerifyChange(this.form)"> <%=MakeOptions(1) %> </select><font color="#FF6600"> *</font></td> </tr>
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.