ID Página

[orchating]

Hola, vereis tengo un prblemilla, teno unos registros en una pagina y cuando pincho en uno de ellos va a una pagina de modificacion, en la cual sale el formulario con el contenido para modificar y guardar, el problema que no me muestra el que pinche, sino el primero de la base de datos ya que le he hecho una comparacion de id para que lo compare con el de la base de datos y me muestre el que seleccione pero no lo hace como podria recoger el id de la pagina en la q se encuentra actualmente, una ayudita jejeje.

Muchas gracias de antemano.

Orchating

[Adler]

Hola

Deberías de mostrar algo de código

Suerte

[orchating]

Este es el codigo que quiero que se muestre si el id seleccionado es el mismo que esta en el navegador tipo paginaweb . asp?=8 osea que el 8 es el id y quiero que sea el que se muestre de la base de datos, una ayuda por favor que llevo toda la mañana y seguro que es una tonteria

<%
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set BD=Server.CreateObject("ADODB.Connection")
BD.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos
Set rs1=CreateObject("ADODB.Recordset")
rs1.open "select * from GC_Espectaculos",BD
rs1.Movefirst
idpagina = Request.QueryString("IdEspectaculo")
If idpagina <> rs1.Fields("IdEspectaculo") Then
%>
<table border='0' cellpadding='0'>

<tr>
<td width="175"><strong>Link</strong></td>

<td width="175"><input name="Vinculo" type="text" id="Link" VALUE="<%=rs1.Fields("vinculo")%>"></td>

<td width="250"><span class="Estilo2"></span></td>

</tr>

<tr>
<%

Sql = "SELECT * FROM "&PREFIJO_TABLAS&"Espectaculos "

Sql = Sql & "WHERE Vigente " 'AND FechaFin >= #"&FechaInicioHoy&"# "

Sql = Sql & "ORDER BY FechaInicio"

Set Rec = Conn.Execute (Sql)

%>
<td><strong>Contacto</strong></td>

<td><input name="Contacto" type="text" id="Link3" VALUE="<%=Rec("Contacto")%>"></td>

<td><span class="Estilo2">* Email del contacto </span></td>

</tr>

<tr>

<td><strong>Fecha Inicio </strong></td>

<td>

<select name="DiaI"><%=ComboFecha(DiaI, "d", 1, 31)%></select> /

<select name="MesI"><%=ComboFecha(MesI, "m", 1, 12)%></select> /

<select name="AnioI"><%=ComboFecha(AnioI, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando inicia el curso dd/mm/aaaa </span></td>

</tr>

<tr>

<td><strong>Fecha Fin</strong></td>

<td>

<select name="DiaF"><%=ComboFecha(DiaF, "d", 1, 31)%></select> /

<select name="MesF"><%=ComboFecha(MesF, "m", 1, 12)%></select> /

<select name="AnioF"><%=ComboFecha(AnioF, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando finaliza dd/mm/aaaa </span></td>

</tr>

<%

For i = 1 To IDIOMA_CANTIDAD

If (Eval("IDIOMA_"&i&"_ACTIVO")) Then

%>

<!--<tr><td colspan="3" class="Titulo-Idioma">&nbsp;&nbsp;<%=Eval("IDIOMA_"&i&"_NOMBRE") %></td></tr>-->

<tr>

<td><strong>Ciudad</strong></td>

<td><input type="text" name="Ciudad_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" id="Lugar" VALUE="<%=rs1.Fields("Ciudad_es")%>"></td>

<td><span class="Estilo2">* La ciudad donde dara el Espectaculo</span></td>

</tr>

<tr>

<td><strong>Teatro</strong></td>

<td><input name="Lugar_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Escuela" VALUE="<%=rs1.Fields("Lugar_es")%>"></td>

<td><span class="Estilo2">* Nombre del Teatro</span></td>

</tr>

<tr>

<td><strong>Nombre del Espectáculo</strong></td>

<td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=rs1.Fields("Espectaculo_es")%>"></td>

<td>&nbsp;</td>

</tr>

<%

End If

Next

%>

<tr>

<td><input type="submit" name="Submit" value="Agregar espectáculo" /></td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table>
<%
Else
response.write(idpagina)
rs1.Movenext
End If
BD.Close
%>

[Adler]

Hola

Le estás diciendo que vaya al primero

rs1.open "select * from GC_Espectaculos",BD
rs1.Movefirst
idpagina = Request.QueryString("IdEspectaculo")

Suerte

[orchating]

te agradezco adler tu ayuda pero ya se que lo mando al primero para que empieze por ese y al final de codigo le dico rs1.movenext para que vaya cambiando, lo que no consigo hacer es guardar el id de la pagina para compraralo con el de la base de datos apra que me muestre el contenido de ese id

[pcarvajal]

Si paginaweb. asp?IdEspectaculo=8 , yo lo haría así (asumiendo que la declaracion del ciclo y las conexiones están bien):

<%
idpagina = Request.QueryString("IdEspectaculo")

'--luego la conexion y el ciclo
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set BD=Server.CreateObject("ADODB.Connection")
BD.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos
Set rs1=CreateObject("ADODB.Recordset")
rs1.open "select * from GC_Espectaculos",BD
rs1.Movefirst

If clng(idpagina) = clng(rs1.Fields("IdEspectaculo")) Then
'--aqui muestro los datos
end if

%>

Dijiste que querias mostrar el mismo registro que estabas recibiendo por el parámetro, por eso puse un "=".

Ojala te sirva,
Saludos!

[JuanRAPerez]

ummmmmm creo que hay que ser un poco mas claro en las redacciones futuras

+ tu envías un id mostrar.asp?idMostrar=8
+ quieres que la pagina mostrar.asp
++ recupere el id
++ muestre la info solo de ese id

basado en el ejemplo la variable enviada se llama idMostrar=8; entonces tengo que recuperar la variable llamada idMostrar

Código ASP:

<%
'recuperas el id
'verifica que realmente tu id se llame 
idMostrar = Request.QueryString("idMostrar")
'luego hago esto en la base de datos
rs1.open "select * from GC_Espectaculos where id = " & idMostrar ,BD
'muestras todos tus campos
'cierras RS y BD
'no tienes que usar movenext ni nada mas que lo que aqui se muiestra
%>
 

[pcarvajal]

solo un pequeño retoque al código que Juan te pasó para que no se te caiga:

<%
idMostrar = Request.QueryString("idMostrar")
.
.
rs1.open "select * from GC_Espectaculos where IdEspectaculo = " & idMostrar ,BD
%>

Saludos!

[orchating]

todavia me da problemas, al poner este codigo me dice Syntax error (missing operator) in query expression 'IdEspectaculo ='. este es el codigo, en la tabla el id se llama IdEspectaculo que hago mal????

<%
idpagina = Request.QueryString("IdEspectaculo")
'--luego la conexion y el ciclo
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set BD=Server.CreateObject("ADODB.Connection")
BD.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos
Set rs1=CreateObject("ADODB.Recordset")
rs1.open "select * from GC_Espectaculos where IdEspectaculo = "&idpagina ,BD
If clng(idpagina) = clng(rs1.Fields("IdEspectaculo")) Then
%>
<table border='0' cellpadding='0'>
<tr>
<td width="175"><strong>Link</strong></td>

<td width="175"><input name="Vinculo" type="text" id="Link" VALUE="<%=rs1.Fields("vinculo")%>"></td>

<td width="250"><span class="Estilo2"></span></td>

</tr>

<tr>
<%

Sql = "SELECT * FROM "&PREFIJO_TABLAS&"Espectaculos "

Sql = Sql & "WHERE Vigente " 'AND FechaFin >= #"&FechaInicioHoy&"# "

Sql = Sql & "ORDER BY FechaInicio"

Set Rec = Conn.Execute (Sql)

%>
<td><strong>Contacto</strong></td>

<td><input name="Contacto" type="text" id="Link3" VALUE="<%=Rec("Contacto")%>"></td>

<td><span class="Estilo2">* Email del contacto </span></td>

</tr>

<tr>

<td><strong>Fecha Inicio </strong></td>

<td>

<select name="DiaI"><%=ComboFecha(DiaI, "d", 1, 31)%></select> /

<select name="MesI"><%=ComboFecha(MesI, "m", 1, 12)%></select> /

<select name="AnioI"><%=ComboFecha(AnioI, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando inicia el curso dd/mm/aaaa </span></td>

</tr>

<tr>

<td><strong>Fecha Fin</strong></td>

<td>

<select name="DiaF"><%=ComboFecha(DiaF, "d", 1, 31)%></select> /

<select name="MesF"><%=ComboFecha(MesF, "m", 1, 12)%></select> /

<select name="AnioF"><%=ComboFecha(AnioF, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando finaliza dd/mm/aaaa </span></td>

</tr>

<%

For i = 1 To IDIOMA_CANTIDAD

If (Eval("IDIOMA_"&i&"_ACTIVO")) Then

%>

<!--<tr><td colspan="3" class="Titulo-Idioma">&nbsp;&nbsp;<%=Eval("IDIOMA_"&i&"_NOMBRE") %></td></tr>-->

<tr>

<td><strong>Ciudad</strong></td>

<td><input type="text" name="Ciudad_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" id="Lugar" VALUE="<%=rs1.Fields("Ciudad_es")%>"></td>

<td><span class="Estilo2">* La ciudad donde dara el Espectaculo</span></td>

</tr>

<tr>

<td><strong>Teatro</strong></td>

<td><input name="Lugar_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Escuela" VALUE="<%=rs1.Fields("Lugar_es")%>"></td>

<td><span class="Estilo2">* Nombre del Teatro</span></td>

</tr>

<tr>

<td><strong>Nombre del Espectáculo</strong></td>

<td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=rs1.Fields("Espectaculo_es")%>"></td>

<td>&nbsp;</td>

</tr>

<%

End If

Next

%>

<tr>

<td><input type="submit" name="Submit" value="Agregar espectáculo" /></td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table>
<%
End If
rs1.close
BD.Close
%>

[Adler]

Hola

Prueba así

Código sql:

rs1.OPEN "select * from GC_Espectaculos where IdEspectaculo = "&idpagina&"" ,BD
 

Suerte

[orchating]

adler me da ahora este fallo:

Syntax error (missing operator) in query expression 'IdEspectaculo ='

me estoy volviendo loco.

[pcarvajal]

A ver, prueba así:

<%
idpagina = Request.QueryString("IdEspectaculo")
'--luego la conexion y el ciclo
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set BD=Server.CreateObject("ADODB.Connection")
BD.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos
Set rs1=CreateObject("ADODB.Recordset")
rs1.open "select * from GC_Espectaculos where IdEspectaculo = '"&idpagina&"' ",BD
%>
<table border='0' cellpadding='0'>
<tr>
<td width="175"><strong>Link</strong></td>
<td width="175"><input name="Vinculo" type="text" id="Link" VALUE="<%=rs1.Fields("vinculo")%>"></td>
<td width="250"><span class="Estilo2"></span></td>
</tr>

<tr>
<%
Sql = "SELECT * FROM "&PREFIJO_TABLAS&"Espectaculos "
Sql = Sql & "WHERE Vigente "
'AND FechaFin >= #"&FechaInicioHoy&"# "
Sql = Sql & "ORDER BY FechaInicio"
Set Rec = Conn.Execute (Sql)
%>
<td><strong>Contacto</strong></td>
<td><input name="Contacto" type="text" id="Link3" VALUE="<%=Rec("Contacto")%>"></td>
<td><span class="Estilo2">* Email del contacto </span></td>
</tr>
<%Rec.close%>

<tr>
<td><strong>Fecha Inicio </strong></td>
<td>
<select name="DiaI"><%=ComboFecha(DiaI, "d", 1, 31)%></select> /
<select name="MesI"><%=ComboFecha(MesI, "m", 1, 12)%></select> /
<select name="AnioI"><%=ComboFecha(AnioI, "a", 2005, Year(Date)+3)%></select>
</td>
<td><span class="Estilo2">* Cuando inicia el curso dd/mm/aaaa </span></td>
</tr>
<tr>
<td><strong>Fecha Fin</strong></td>
<td>
<select name="DiaF"><%=ComboFecha(DiaF, "d", 1, 31)%></select> /
<select name="MesF"><%=ComboFecha(MesF, "m", 1, 12)%></select> /
<select name="AnioF"><%=ComboFecha(AnioF, "a", 2005, Year(Date)+3)%></select>
</td>
<td><span class="Estilo2">* Cuando finaliza dd/mm/aaaa </span></td>
</tr>
<%

For i = 1 To IDIOMA_CANTIDAD
If (Eval("IDIOMA_"&i&"_ACTIVO")) Then
%>
<!--<tr><td colspan="3" class="Titulo-Idioma">&nbsp;&nbsp;<%=Eval("IDIOMA_"&i&"_NOMBRE") %></td></tr>-->

<tr>
<td><strong>Ciudad</strong></td>
<td><input type="text" name="Ciudad_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" id="Lugar" VALUE="<%=rs1.Fields("Ciudad_es")%>"></td>
<td><span class="Estilo2">* La ciudad donde dara el Espectaculo</span></td>
</tr>

<tr>
<td><strong>Teatro</strong></td>
<td><input name="Lugar_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Escuela" VALUE="<%=rs1.Fields("Lugar_es")%>"></td>
<td><span class="Estilo2">* Nombre del Teatro</span></td>
</tr>

<tr>
<td><strong>Nombre del Espectáculo</strong></td>
<td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=rs1.Fields("Espectaculo_es")%>"></td>
<td>&nbsp;</td>
</tr>
<%
End If
Next
%>

<tr>
<td><input type="submit" name="Submit" value="Agregar espectáculo" /></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
<%
End If
rs1.close
BD.Close
%>

Las comillas simples en el query son solo por descarte.
La línea en verde me llama la atención.. creo que te falta un "= algo"
Ah, te faltaba cerrar un recordset (te lo marqué en rojo)

Avisa para ver que tal te va.

Saludos!

[orchating]

no esa parte funciona perfectamente es apartir de que abro el objeto recordset

[pcarvajal]

Mmmm, dos cosas:

1. Estás seguro que la variable que estás pasando por query se llama "IdEspectaculo"???

2.Si es así prueba esto y me avisas:

idpagina = Request.QueryString("IdEspectaculo")
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Set Rs = conn.Execute(SQL)
if not Rs.EOF then
response.write Rs.Fields("vinculo") & "<br>"
response.write Rs.Fields("Ciudad_es") & "<br>"
response.write Rs.Fields("Lugar_es") & "<br>"
response.write Rs.Fields("Espectaculo_es") & "<br>"
end if
Set Rs = nothing
Set conn = nothing

Saludos!

[orchating]

pcarvajar mala noticia e puesto este codigo:

<!-- #include virtual="/includes/configuracion.asp" -->
<!-- #include virtual="/includes/db.asp" -->
<!-- #include virtual="/includes/funciones.asp" -->
<%
idpagina = Request.QueryString("IdEspectaculo")
basedatos = Server.MapPath("/Data/bdchame.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Set Rs = conn.Execute(SQL)
if not Rs.EOF then
response.write Rs.Fields("vinculo") & "<br>"
response.write Rs.Fields("Ciudad_es") & "<br>"
response.write Rs.Fields("Lugar_es") & "<br>"
response.write Rs.Fields("Espectaculo_es") & "<br>"
end if
Set Rs = nothing
Set conn = Nothing
%>

es lo mismo que tu me diste, lo unico que e añadido los includes lo e probado con ellos y sin ellos y nada la pagina no se puede mostrar asi que nose ya que hacer me estoy volviendo loko!!!!!!!

[Adler]

Hola

Haz un bug y veamos que es lo que se le está pasando como parámetro

Código sql:

idpagina = Request.QueryString("IdEspectaculo")
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.OPEN "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
SQL="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Reponse.WRITE SQL
Response.END()
SET Rs = nothing
SET conn = Nothing
 

Suerte

[orchating]

probado y sige


nose que le pasara pero esto ya es muy raro, si me harias el favor de hacerte tu un codigo para recuperar el id como tu lo harias y comparo o algo aver que podemos hacer, muchas gracias de todas maneras

[Adler]

Hola

Muestranos lo que te imprime el código

Tendría que ser algo como

SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = 11

Suerte

[pcarvajal]

hiciste lo que te dijo Adler??

Hola

Haz un bug y veamos que es lo que se le está pasando como parámetro

Código sql:
<%

idpagina = Request.QueryString("IdEspectaculo")
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Reponse.WRITE Sql
Response.End()
SET Rs = nothing
SET conn = Nothing
%>

Suerte

Que resultado te dio el response.write Sql???

[orchating]

la pagina no existe y estoy tan quemado que no se que sera ni nada, yo creo ya pasare de hacerlo

[Adler]

Hola

Iniciado por orchating

la pagina no existe y estoy tan quemado que no se que sera ni nada, yo creo ya pasare de hacerlo

¿Como que la página no existe? Eres libre de rendirte cuando quieras, pero aún no has mostrado lo que te dice el bug

[pcarvajal]

Ya pues hombre! si el código está muerto, no respira, ni piensa, solo hace lo que tú le digas, así que nada de rendirte! demosle hasta que salga no más

Mira, vamos a probarlo con un valor de IdEspectaculo que exista y lo vamos a pasar "en duro" para hacer una prueba:

<%
'--esta linea la comentamos
'idpagina = Request.QueryString("IdEspectaculo")

'--y aqui le pasamos el valor en duro
idpagina = 8
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Reponse.WRITE Sql
Response.End()
SET Rs = nothing
SET conn = Nothing
%>

Si eso no te tira error, debería mostrarte por pantalla esto:

SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = 8

Si lo hace, probamos entonces que te trae el recordset con el parametro en duro:

<%
'--esta linea la comentamos
'idpagina = Request.QueryString("IdEspectaculo")

'--y aqui le pasamos el valor en duro
idpagina = 8
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Set Rs = conn.Execute(Sql)
if not Rs.EOF then
response.write Rs.Fields("vinculo") & "<br>"
response.write Rs.Fields("Ciudad_es") & "<br>"
response.write Rs.Fields("Lugar_es") & "<br>"
response.write Rs.Fields("Espectaculo_es") & "<br>"
end if
Rs = nothing
SET conn = Nothing
%>

Eso deberia imprimirte por pantalla los valores de "vinculo", "Ciudad_es", "Lugar_es" y "Espectaculo_es".

Avisa si te genera algún error, y lo más importante copia y pega el error exacto que te aparece para hacernos bien una idea de lo que te pasa. Ah!, y no te preocupes, que aqui hay tiempo y paciencia para sacar los errores. Además si nos quedan grandes los zapatos, siempre hay unos "monstruos" dando vueltas que nos pueden hechar una mano

Saludos!

[orchating]

ok me as convencido, el error de antes era que no se puede encontrar la pagina xq tengo los includes y todo entonces no se como armarla ahora

[orchating]

el primer codigo da este fallo:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/modificar_espectaculo.asp, line 171

[orchating]

vale arreglado avia un pekeño error en tu codigo ya solucionado y si me muestra:

SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = 8

lo uniko que ahora habría que meter el valor en la variable y compararla no??

[orchating]

ahora tengo el problemilla que emos abrierto y creado el conn pero lo necesito con el recordset porque tengo que cojer los campos de una tabla para insertarlos en unas cajas de texto o ay alguna manera con el con, eske no lo uso nunca

[Adler]

Hola

Si te he entendido, no quemes el recordset ni claro está la conexión. Igual que hacías en tu primer post

Suerte

[orchating]

adler no te entendi lo que querias decir, y como lo hago un saludo gracias por todo figura

[Adler]

Hola

Creo que esto, ya te digo que no entiendo cual es el problema.

El form debería de acabar algo como

<td><strong>Ciudad</strong></td>

<td><input type="text" name="Ciudad_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" id="Lugar" VALUE="<%=rs1.Fields("Ciudad_es")%>"></td>

<td><span class="Estilo2">* La ciudad donde dara el Espectaculo</span></td>

</tr>

<tr>

<td><strong>Teatro</strong></td>

<td><input name="Lugar_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Escuela" VALUE="<%=rs1.Fields("Lugar_es")%>"></td>

<td><span class="Estilo2">* Nombre del Teatro</span></td>

</tr>

<tr>

<td><strong>Nombre del Espectáculo</strong></td>

<td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")% >" type="text" id="Espectaculo" VALUE="<%=rs1.Fields("Espectaculo_es")%>"></td>

<td>&nbsp;</td>

</tr>

<%

End If

Next

%>

<tr>

<td><input type="submit" name="Submit" value="Agregar espectáculo" /></td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table>
<%
End If
rs1.close
BD.Close
%>

Suerte

[orchating]

El problema es que yo hago la conexion asi:

Código:

<%

idpagina = Request.QueryString("IdEspectaculo")
basedatos = Server.MapPath("/Data/bdchame.mdb")
SET conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Sql="SELECT * FROM GC_Espectaculos WHERE IdEspectaculo = " & idpagina
Reponse.WRITE Sql
Response.End()
SET Rs = nothing
SET conn = Nothing
%>

y al recoger los campos para meterlos en una caja de texto los meto con el objeto "RECORDSET" el cual no e creado ni abierto, entonces pregunto que si existe alguna manera de mandar los datos dentro de las cajas del formulario con el objeto "Conn" que de este objeto no entiendo nada porque no lo uso.

:apla uso: