<% ' Dim hora ' hora = Hour(Time()) 'Empezamos la comprobaciones de tiempo. ' If hora > 0 and hora < 12 then ' Response.Write ("Buenos Dias, ") ' ElseIf hora > 11 and hora < 20 then ' Response.Write ("Buenas Tardes, ") ' ElseIf hora > 19 and hora < 24 then ' Response.Write ("Buenas Noches, ") ' ElseIf hora >= 0 and hora < 1 then ' Response.Write ("Buenas Noches, ") ' End If %>

<% Set ConLinea = server.CreateObject("ADODB.Connection") Set TablaLinea=Server.CreateObject("adodb.recordset") ConLinea.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/kdg.mdb")) Temp="SELECT * FROM lineas where Tipo = 'J' or Tipo = 'P' or Tipo = 'A' or Tipo = 'G' order by linea" TablaLinea.Open Temp, ConLinea TablaLinea.MoveFirst %> Todos los prodcutos <%While (NOT TablaLinea.EOF)%> "><%=(TablaLinea.Fields("descrip"))%> <%TablaLinea.MoveNext() Wend%> • Registro • Foro • Chat • Club KDG • Servicios • Centro de Servicio • Carrito • Envio•