04/12/2005, 22:59
|
| | | Fecha de Ingreso: diciembre-2005
Mensajes: 28
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| Uso adecuado de las rutinas ...
Tengo el siguiente codigo, pero no me funciona:
1) quiero que salude al usuario dependiendo de la hora.
2) Quiero mandar llamar a la rutina de abre coneccion, ejecuta sql y cierra.
Pero no se como ???
Default.asp
<!-- include virtual = "_private/Librerias.asp" -->
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<body>
<% Saludo %>
</body>
</html>
Librerias.asp
<script language="VBScript" type="text/vbscript" runat="server">
<%
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
Sub OpenInTech
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString ="Provider=SQLOLEDB; Data Source=sql_server; Initial Catalog=Admon; User Id=sa; Password=yireh;"
Conn.Open
end sub
Sub CloseInTech
Conn.Close
Set Conn = Nothing
end sub
function SQLQuery(strsql)
on error resume next
Set dbcRec = Server.CreateObject("ADODB.RecordSet")
Set dbcRec = dbcSuperConexion.Execute(strSQL)
If Err.Number <> 0 Then
ejecuta = False
else
ejecuta = True
end if
dbcRec.Close
Set dbcRec = Nothing
end function
%>
</script>
Donde esta mi error, estoy empezando a aprender y aun me falta, pero con su ayuda pronto mejorare mi conocimiento.
Garcias por su apoyo. |