
30/09/2003, 05:27
|
| | Fecha de Ingreso: marzo-2003 Ubicación: debajodelpuente
Mensajes: 41
Antigüedad: 22 años, 1 mes Puntos: 0 | |
<!-- #include file="library.asp"-->
<html>
<% nuevos=request("nuevos") %>
<% altura=request("altura") %>
<head>
<title>Nuevos</title>
</head>
<LINK REL=STYLESHEET TYPE='text/css' HREF='main.css'>
<body>
<% fecha1=request("fecha1") %>
<% fecha2=request("fecha2") %>
<% total=request("total") %>
restar<%= restarXMeses(fecha1,3) %><br><br>
<% cnsql="SELECT count(distinct(telefono)) FROM [VocalVaca].dbo.tData902 "
cnsql=cnsql & " where inicioLlamada>='"&fecha1&" 0:00' and inicioLlamada<='"&fecha2&" 23:59:59' and "
cnsql=cnsql & " telefono not in (SELECT distinct(telefono) FROM [VocalVaca].dbo.tData902 "
cnsql=cnsql & " where inicioLlamada<'"&fecha1&" 0:00')" %>
<%'= cnsql %>
<% cliNuevos=getRegistros(cnsql,cn_dsnVocal) %>
eso esta en una pagina y en
LIBRARY.ASP esta esta funciones:
<%
function getRegistros(sql, cn)
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open sql, cn
if not rs.eof then
getRegistros=rs.GetRows
rs.Close()
end if
set rs = nothing
end function
function setRegistro(sql, cn)
set cm = Server.CreateObject("ADODB.Command")
cm.CommandTimeout = 0
cm.ActiveConnection = cn
cm.CommandText = sql
cm.CommandType = 1
cm.Prepared = true
cm.Execute()
set cm = nothing
end function
%>
Y se me agota el tiempo de espera snif snif |