Klockslag i select

Tjena
Jag ska skriva ut en selectlista med klockslag, såhär:

06:00
06:15
06:30
06:45
07:00
........
22:00

Har testat massa olika saker fram och tillbaks, men blir inte det ena fel, blir något annat det... ;)

<%
start_time	= Int(6)
end_time	= Int(22)
For i = 0 To 60 Step 15
	If i = 60 Then i = 0 : start_time = start_time + 1
	If i < 10 Then pI = "0" & i
	If start_time < 10 Then pH = "0" & start_time
	Response.Write(pH & ":" & pI & "<br />")
	If start_time = 22 Then Exit For
Next
%>

Har testat att söka en hel del, men hittar inget alls, använder förmodligen "fel" sökord.
Hur ska jag bära mig åt för att lösa det här?

Tack på förhand!

session.lcid = 1053
myTime = "06:00"
for i = 0 to (16*60) step 15
	response.write left(dateadd("s", i*60, myTime),5) & "<br/>"
next

Egentligen borde du kanske hämta ut rätt del av datumet med de rätta datummetoderna istället för med left(), som egentligen är fel. Men använder man lcid så kommer tiden på ett format som råkar se ut som du vill och får left att hämta ut rätt, den här gången. ;)

Hehe, 3 sekunder innan jag såg ditt inlägg kom fram till följande:

start_time	= Int(6)
end_time	= Int(22)
For i = 0 To 60 Step 15
	If i = 60 Then	
		i = 0
		start_time = start_time + 1
	End If
	If start_time < 10 Then attrib1 = "0" Else attrib1 = ""
	If i < 10 Then attrib2 = "0" Else attrib2 = ""

	Response.Write(attrib1 & start_time & ":")
	Response.Write(attrib2 & i & "<br />")
	If start_time = 22 Then Exit For
Next

Funkar kanon, men när jag ser din kod, som ser finare ut, den är helt säkert stabilare och säkert bättre rent prestandamässigt, så väljer jag den istället och glömmer det jag precis själv kom fram till ;)

Tack!