Aqui te dejo un ejemplo comentado para que lo veas con detención:
Cita:
Avisa cualquier cosa,<%
'--recuperas el valor a consultar
idpagina = Request.QueryString("IdEspectaculo")
'--realizas la conexion
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
'--armas la consulta
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
'--cargas el recordset con el sql
Set Rs = conn.Execute(Sql)
'--inicias el ciclo de lectura
if not Rs.EOF then
%>
<table>
<tr><td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=Rs("Espectaculo_es")%>"></td></tr>
</table>
<%
end if
'--cierras el recordset
SET Rs = nothing
'--cierras la conexion
SET conn = Nothing
%>
'--recuperas el valor a consultar
idpagina = Request.QueryString("IdEspectaculo")
'--realizas la conexion
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
'--armas la consulta
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
'--cargas el recordset con el sql
Set Rs = conn.Execute(Sql)
'--inicias el ciclo de lectura
if not Rs.EOF then
%>
<table>
<tr><td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=Rs("Espectaculo_es")%>"></td></tr>
</table>
<%
end if
'--cierras el recordset
SET Rs = nothing
'--cierras la conexion
SET conn = Nothing
%>
Saludos!