_zEek_

Amigos estou com um grande problema,
preciso fazer um sistema que com calcule quantos minutos existem entre 2 horas somando 20 me 20 minutos até ae tudo bem,

Entrada ="13:30"
				Saida = "18:00"
				total = DateDiff("s",Entrada,Saida)
				segundos = (total) Mod 60
				minutos = ((total - segundos) / 60) mod 60
				horas = int((total) / 3600)
				TempoCompleto = (horas & ":" & minutos  )
				totalminutos = (horas * 60 ) + minutos

agora tenho que colocar um radio nas horas possíveis entre os horários

<% Function HoraMinuto(Hora)
				   HoraMinuto = (Hour(Hora)*60) + Minute(Hora)
				   End Function
				   Function MinutoHora(Minutos)  
				   MinutoHora = (Minutos \ 60) & ":" & (Minutos Mod 60)
				   End Function  %>
		<% 	For i = 0 To (totalminutos / 20) -1 %>
			 	<input  type="radio" name="hora" value="">
			 	<%
			 	   horad = (4.5) - i*(0.33)
			 	   horas = CStr(horad)
			 	   n_horas = Mid(horas, 1, InStr(horas, ",") - 1)
				   n_minutos = Round(Left(Mid(horas, InStr(horas, ",") +1, Len(horas))*0.6,2))
		 	 	Hora1 = CStr(n_horas) & ":" &CStr(n_minutos) 
			 	Hora2 = "13:20"
				Soma = HoraMinuto(Hora1) + HoraMinuto(Hora2)
				Response.Write MinutoHora(Soma)
				%><br>
		<% next%>

tentei algo assim, mais estou perdido.. entenderam? alguém, pode me ajudar?

Preciso inserir em duas tabelas ao mesmo tempo sendo que a chave primaria de uma que vai ser autoincrement vai ser chave estrangeira em outra tabela exemplo
tabela user vou adicionar
(nome,idade) e ao mesmo tempo tem que adicionar na tabela
telefone (id_user,tipo,numero)
como fazer essa instrução em sql?