Hej..
Ser någon vad som är galet? ja får inte till det.
'''''''''''''''''''''''''''''''''''''
fg_Starttid = RSfg("Starttid")'skrivs 08:00 i databasen
fg_Sluttid = RSfg("Sluttid")'skrivs 16:00 i databasen
fg_Intervall = RSfg("Intervall")'skrivs 0,5 i databasen
%>
<select name="tid">
<option value="<% =fg_Starttid %>"><% =fg_Starttid %></option>
<%
x=Hour(fg_Starttid)
Do Until x = Hour(fg_Sluttid)
x = x & ":" & Minute(fg_Intervall)
%>
<option value="<% =x %>"><% =x %></option>
<%
If x > Hour(fg_Sluttid) Then
Exit Do
End If
Loop
'''''''''''''''''''''''''''''''''''''''
loopen stannar på 8:30?? det jag provat har bara lätt till "iternal loop" den ska visa klockslag fram till 16:00.
Väl datum kan man loopa i en for-loop på detta sätt:
<%
dteStartDate = "2000-01-01"
dteDate = Date()
For N = dteStartDate TO dteDate
dteMonth = Month(N)
If dteMonth <> dteLastMonth Then
Response.Write N & "<BR>"
End If
dteLastMonth = dteMonth
Next
%>