consulta novato

Hola!!

Quiero montar una sentencia sql de una select, q consiste en recuperar un
campo de una tabla, y añadir ese campo a una lista desplegable, y no se
porque me da error en la select, por problema con las comillas dobles.

A parte que cuando creo dentro del fichero .asp el formulario, no se
realmente donde poner el codigo asp, concretamente cuando hago el select
(donde se añaden las opciones a lista). Concretamente la linea del
Response.Write "<option value=" & """ & "q" & """ & ">" & rs("Nombre") &
"</option>" .


<%

' -- show.asp --


Response.Buffer = True


' Connection String

Dim connStr

connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _

Server.MapPath("centauro.mdb")

%>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<table width="100%" border="0">

<tr>

<th scope="col"> </th>

<th scope="col">Referencia</th>

<th scope="col"> </th>

</tr>

<tr>

<td><a href="http://acceso.asp">Accesor registrados</a></td>

<td> </td>

<td> </td>

</tr>

<tr>

<td> </td>

<td><form id="form1" name="form1" method="post" action="">

Tipo de vivienda:

<label>

<%

' Recordset Object

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")


' opening connection

rs.Open "select [Nombre] from Referencias", connStr, 3, 4

Response.Write 2+3 %>


<%If Not rs.EOF Then


While Not rs.EOF


dim cadena


cadena="<option value=" & "3"

Response.Write "encontre" %>

<%=cadena %>

<%




' Response.Write "<option value=" & """ & "q" & """ & ">" & rs("Nombre") &
"</option>"

Al ser codigo mezclado entre HTML y codigo ASP, por lo general se coloca
todo
en el lugar donde deben mostrarse los datos.

Tambien, si tienes cierta experiencia en programacion, puedes crearte
funciones y llamarlas en el lugar que quieras mostrar los datos.

Ahora, te planteo un ejemplo muy simple para mostrar lo que quieres en un
combo:


<%
set oConn = server.createobject("ADODB.connection")
oConn.Open "CADENA DE CONEXION"

...
...
%>

<select ...>
<%
sql = "select [Nombre] from Referencias"
set rs = oConn.execute(sql)
do while not rs.eof
%>
<option value="<%=rs("Nombe")%>"><%=rs("Nombe")%></option>
<%
rs.movenext
loop
%>
</select>

Fijate que en vez de crear toda una cadena de texto concatenada,
simplemente
puedes incrustar codigo dentro del HTML. Esto puede facilitarte las cosas
y
hacer el codigo mas entendible.

Saludos.

Matías Iacono
Microsoft MVP
Orador Regional INETA
http://mvpfiles.spaces.live.com


"Jordi Maycas" wrote:

Hola!!

Quiero montar una sentencia sql de una select, q consiste en recuperar un
campo de una tabla, y añadir ese campo a una lista desplegable, y no se
porque me da error en la select, por problema con las comillas dobles.

A parte que cuando creo dentro del fichero .asp el formulario, no se
realmente donde poner el codigo asp, concretamente cuando hago el select
(donde se añaden las opciones a lista). Concretamente la linea del
Response.Write "<option value=" & """ & "q" & """ & ">" & rs("Nombre") &
"</option>" .


<%

' -- show.asp --


Response.Buffer = True


' Connection String

Dim connStr

connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _

Server.MapPath("centauro.mdb")

%>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

<table width="100%" border="0">

<tr>

<th scope="col"> </th>

<th scope="col">Referencia</th>

<th scope="col"> </th>

</tr>

<tr>

<td><a href="http://acceso.asp">Accesor registrados</a></td>

<td> </td>

<td> </td>

</tr>

<tr>

<td> </td>

<td><form id="form1" name="form1" method="post" action="">

Tipo de vivienda:

<label>

<%

' Recordset Object

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")


' opening connection

rs.Open "select [Nombre] from Referencias", connStr, 3, 4

Response.Write 2+3 %>


<%If Not rs.EOF Then


While Not rs.EOF


dim cadena


cadena="<option value=" & "3"

Response.Write "encontre" %>

<%=cadena %>

<%




' Response.Write "<option value=" & """ & "q" & """ & ">" & rs("Nombre")
&
"</option>"