05/12/2005, 12:19
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Caracas Venezuela
Mensajes: 91
Antigüedad: 20 años, 6 meses Puntos: 0 | |
Cita:
Iniciado por rvillanueva <%
Sub Saludo
Dim hora
hora = Hour(Time())
'Empezamos la comprobaciones de tiempo.
If hora > 6 and hora < 12 then
Response.Write ("<B>Buenos Dias</B>, son las: " & Time())
Else If hora > 12 and hora < 29 then
Response.Write ("<B>Buenas Tardes</B>, son las: "& Time())
Else If hora > 19 and hora < 24 then
Response.Write ("<B>Buenas Noches</B>, son las: "& Time())
Else If hora >= 0 and hora < 7 then
Response.Write ("<B>Buenas Dias</B>, son las: "& Time())
End If
end Sub
El unico error es en los elseif
unes ElseIf
o agregar 3 End If
__________________
:-D El peor error es no hacer nada
por pensar que es poco lo que se puede hacer..!!! |