
Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/EntreFechas/entrefechas_sql.asp, línea 27
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)
Página:
POST 48 bytes to /EntreFechas/entrefechas_sql.asp
Datos de POST:
F1=1%2F6%2F2007+00%3A00&F2=11%2F7%2F2007+10%3A00
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="es">
<title>Resultados B58 carrusel 1 n-situ</title>
</head>
<body>
<%@ Language=VBScript%>
<%
'conexion a gesprod
Dim oConn, rs, SQL
Dim ano1,ano2,mes1,mes2,dia1,dia2,hora1,hora2
Dim F1,F2
set F1 = request.Form ("F1")
set F2 = request.Form ("F2")
set dia1 = request.Form("ano1")
set dia2 = request.Form("ano2")
set mes1 = request.Form("mes1")
set mes2 = request.Form("mes2")
set dia1 = request.Form("dia1")
set dia2 = request.Form("dia2")
set hora1 = request.Form("hora1")
set hora2 = request.Form("hora2")
' Creamos los objetos sobre estas variables
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=GESPROD;UID=SA;PWD=@-CE/2004-MOS"
SQL="select tempo from colate where tempo between '"&F2&"' and '"&F1&"';"
set rs = Server.CreateObject ("ADODB.Recordset")
oConn.Execute(SQL)
Response.Write("<TABLE>")
while not rs.EOF
Response.Write ("<TR>")
Response.Write ("<TD>"& rs.Fields("tempo" & "</TD>"))
Response.Write ("</TR>")
rs.movenext
Wend
Response.Write("</TABLE>")
rs.close
set rs=nothing
oConn.Close
%>