se que es media extensa la pregunta pero estoy complicado...prometo que despues con mas tiempo voy a hacer un curso... Muchas gracias.

<%
Dim conexion, rs, sqltxt
set conexion=server.createobject("adodb.connectio n")
set rs=createobject("ADODB.Recordset")
strSearch = Request.QueryString("comp")
strSearch1 = Request.QueryString("id")
strSearch2 = Request.QueryString("cod")
on error resume next
sqltxt = "select * FROM informes WHERE codigo=" & strsearch2
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/liqui.mdb"))
rs.open sqltxt, conexion
Response.Write "<form action=""altas_vistaporcompania.asp" ;" method=""GET"">"
response.write "<input type=""hidden"" name=""comp"" value=""" & strSearch & """>"
response.write "<input type=""hidden"" name=""id"" value=""" & strSearch1 & """>"
rs.Close
conexion.close
set rs=Nothing
set conexion=Nothing
Response.Write "<input type=""submit"" value=""Volver"">"
Response.Write "</form>"