Tienes razon Shiryu_Libra, pero como veras tengo pocos posteados, solo lo hago cuando tengo una necesidad informatica y de ahi que para muchos temas no sepa darme la debida cuenta.
Respecto de tu sugerencia, lo primero que hice, obviamente, fue reemplazar sobre tu codigo mis datos y resultó lo siguiente:
<body>
<%
txtBuscaPtr = request.form("txtBuscaPtr")
function desplegar()
respuesta = txtBuscaPtr
respuesta = respuesta & "<table border=1><tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Name & "</td>"
Next
respuesta = respuesta & "</tr>"
objRS.MoveFirst
While Not objRS.EOF
respuesta = respuesta & "<tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Value & "</td>"
'end select
Next
respuesta = respuesta & "</tr>"
objRS.MoveNext
Wend
respuesta = respuesta & "</table>"
desplegar = respuesta
end function
%>
<%
dim str
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
server.MapPath("Bases/OcrasyPtrs97.mdb") '<---CAMBIA EL NOMBRE DE LA BASE
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open str
SQL = "Select * from laterales" '<--- RECUERDA CAMBIAR TU SENTENCIA
Set objRS = conexion.execute(SQL)
if Err=0 then
if objRS.eof=false then
response.Write desplegar '<--- Aki pintara el resultado
else
response.Write "No se encontro"
end if
else
respuesta = "Error = " & Err
end if
objRS.Close
'Set objRS = Nothing
'conexion.Close
'Set conexion = Nothing
'************************************************* ******************************
response.write "<form method=post name=frmBuscarPtr action='estadoLateral.asp?unidad="&unidad&"'>"
response.write "<table border=1 width='40%'>"
response.write "<tr>"
response.write "<td align=center>Proyecto / Lateral: <input type=text name=txtBuscaPtr value='"&txtBuscaPtr&"' size=9 maxlength=9> <input type=submit name=btnBuscarPtr value='Buscar'></td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
'************************************************* ******************************
%>
</body>
Y me surgen algunas consultas:
1 - el desplegado de datos se toma su tiempo, sera porque mi maquina es un poco lenta?
2- la variable txtBuscaPtr que es la que envio como parametro para que al coincidir con el registro de la tabla se pinte el registro correspondiente, en que punto del codigo entra en comparacion?
3 - el " end select " me tiraba error , asi que lo encomille, esta mal?
4 - si pongo mi codigo, sobre el cual estoy trabajando, me darias una mano para hacerlo funcionar?
5 - Vuelvo a reiterar mi consulta por si no me hice entender:
la idea es que al enviar la variable txtBuscaPtr por post, estando ya la tabla de reg desplegada por pantalla, el cursor se posicione sobre el registro coincidente y de paso pintando toda la fila que contiene al dato buscado.
Ah, y al tratar de correr el script me tira lo siguiente:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: ""]'
/mercado/estadoLateral.asp, line 153
siendo que mi codigo solo tiene 81 lineas escritas, que esta pasando?
Saludos.