
09/03/2007, 14:08
|
| | Fecha de Ingreso: septiembre-2006
Mensajes: 161
Antigüedad: 18 años, 7 meses Puntos: 0 | |
Re: Tiempo de espera agotado!!! OK Myakire...mil gracias...  ...suponiendo que el SP tiene el nombre que sugieres...asi quedaria bien mi codigo...con las sugerencias que me diste:
Código:
<%
'ESTOS REQUEST.FORM SON LOS NOMBRES DE LOS CAMPOS DE FORM DE LA PAGINA ANTERIOR
if not isdate(Request.Form("dia1")) and isdate(Request.Form("mes1")) and isdate(Request.Form("year1")) then
Response.Redirect "InicioA_SistemP_Diario.asp"
end if
vdia1= (Request.Form("dia1"))
vmes1= (Request.Form("mes1"))
vyear1= (Request.Form("year1"))
vFecha1= vmes1 & "/" & vdia1 & "/" & vyear1 & " " & "00:00"
vFecha2= vmes1 & "/" & vdia1 & "/" & vyear1 & " " & "23:59"
'Conección con la BD
ConnString = "Provider=SQLOLEDB.1;Data Source=SERV-AUT;Initial Catalog=Rssql;User Id=sa;Password=sa;"
'Crear tabla temporal
Set rsTest = Server.CreateObject("ADODB.Recordset")
'Ligamos la tabla temporal a la vista de la BD
rsTest.Open "Exec sp_NomProy_sConsulta '" & vFecha1 & "', '"& vFecha2 & "'", objConn,2,2
'Abre tabla temporal
rsTest.ActiveConnection = objConn
rsTest.Open strSQL_N, objConn,2,2
rsTest.Requery
'*** CANTIDAD TOTAL ***
Set rsRecordsetNo2 = Server.CreateObject("ADODB.Recordset")
strSQL_Nunmero2 = "SELECT COUNT(CODE) AS TOTAL FROM E1 WHERE FECHC >='" & vFecha1 & "' AND FECHC <='" & vFecha2 & "' AND (CODE > '0') AND (WAREHOUSE = 1)"
'Abre tabla temporal
rsRecordsetNo2.ActiveConnection = objConn
rsRecordsetNo2.Open strSQL_Nunmero2, objConn,2,2
rsRecordsetNo2.Requery
%>
|