Sino fuera por que tu registro dice 2002, dijera que es tarea...
... pero ahi va
con respecto a pintar la tabla con los datos del registro podrias hacer algo como esto
....
una funcion que despliegue datos.... similar a esto
Cita: <%
function desplegar()
respuesta = "Original Data"
respuesta = respuesta & "<table><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
%>
y la mandamos a llamar asi.....
Cita: <%
dim str
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
server.MapPath("../TUBASE.mdb") '<---CAMBIA EL NOMBRE DE LA BASE
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open str
SQL = "Select * from TUTABLA" '<--- 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
%>
en el final tendrias que agregar un formulario con un input text y su sumbit, y recojerias el resultado en la pagina requerida, o incluso a esta misma
