Tids(brist) problem

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.

//niclas

------------------
ingenting är omöjligt det tar bara lite längre tid..

Kan man verkligen använda tid i uppräkningarna?

/T

------------------
Jensen Ambassadör, mitt bästa köp! www.jensen.no

Ja det kan man undra... går det att köra med en For satts då! eller??
Det måste ju gå att få ut värderna mellan två tal med en ökning av ex: 0.5

//niclas

------------------
ingenting är omöjligt det tar bara lite längre tid..

du kan kika på detta och leka lite mer .... så kan du nog fixa till det.

<%
dim dteStart
dim dteSlut
dim dteInterval

dteStart = CDate("08:00:00")
dteEnd = CDate("16:00:00")
dteDiff = DateDiff("s",dteStart, dteEnd)

For dteN = 0 To dteDiff step 30
	Response.Write DateAdd("s",dteN,dteStart) & "<BR>"
Next
%>

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

OT, men svar från följdfråga:

Kan man verkligen använda tid i uppräkningarna?

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

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

Tackar... ja fick till det.

//niclas

------------------
ingenting är omöjligt det tar bara lite längre tid..

skulle vara kul att se hur du löste det, speciellt för andra som kanske sitter i samma situation och behöver ngt mer än det jag kom med att kika på.

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-