Saludos al foro:
Tengo una página que funciona perfectamente en su operativa, en el sentido de que modifica los datos, pero al pulsar sobre el boton de "modificar registro" me muestra el contenido de los campos: "hotelclave" y "hotelregimen" descolocados con respecto a su columna.
El contenido de hotelregimen lo muestra debajo de la columna "mayorista"; el contenido de hotelclave lo muestra debajo de la columna "hotelnombre" y el contenido de hotelnombre no me lo muestra en ninguna parte.
Sin embargo si omito las instrucciones de select lista entonces me hace coincidir los datos sin ningún problema.
¿Por que me esta torturando así?
Les envio el codigo de la page por si acaso pueden ayudarme:
Codigo
-----------
<% 'if session("autorizacion")<>1 then
'response.redirect "login.asp"
'end if%>
<HTML>
<TITLE> Base de datos </TITLE>
<!-- #INCLUDE file="../ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
'Para conexión a dsn arsys con ACCESS
'set Ob_Conn= Server.CreateObject("ADODB.Connection")
'Ob_Conn.ConnectionString = "DSN=clubviajesoferta.com.access"
'Ob_Conn.open
'Set Ob_RS=Server.CreateObject("ADODB.Recordset")
'Ob_RS.activeconnection=Ob_Conn
'Ob_RS.source="ofertas"
'Ob_RS.Locktype = adLockOptimistic
'Ob_RS.CursorType = adOpenDinamic
'Ob_RS.open
'Termina aquí la conexion a dsn arsys con ACCESS
'Para conexion a ODBC local
Set Ob_Conn = Server.CreateObject("ADODB.Connection")
Ob_Conn.ConnectionString = "DSN=clubviajesoferta.com.access"
Set Ob_RS = Server.CreateObject("ADODB.Recordset")
' Abrimos el ODBC
Ob_Conn.open "cvo_odbc"
' Abrimos la tabla, declaramos que conexión esta abierta, tipo de cursor, tipo de cerrojo, y opciones
Ob_RS.open "ofertas", Ob_Conn, adOpendinamic, adLockOptimistic, adCmdTable
IF (Request.Form ("Clave") <> "") THEN
Filtro= "id= " & Request.Form ("Clave")
Ob_RS.Filter = Filtro
FOR EACH Parametro IN Ob_RS.Fields
IF Parametro.Name <> "id" THEN
Ob_RS (Parametro.Name)= Request.Form (Parametro.Name)
END IF
NEXT
Ob_RS.Update
Response.Write "<H3> Registro modificado </H3>"%>
<body background="../../images/frame_izqda_con_opacidad.jpg">
<a href="../modulo_gestion.asp" target="_parent">Menú Principal</a> <a href="frame_modificar.htm" target="_parent">Otra
modificación</a>
<%ELSE
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF Ob_RS.Eof THEN
Response.Write "<H3> No hay ningún registro con esas características </H3>"
ELSE
Response.Write "<TABLE BORDER=1> <TR> <td><strong>Clase de oferta</strong></td><td><strong>Destino</strong></td><td><strong>Pais</strong></td><td><strong>Zona</strong></td><td><strong>Salidas</strong></td><td><strong>Fecha de Salida</strong></td><td><strong>Clave del Hotel</strong></td><td><strong>Nombre del Hotel</strong></td><td><strong>Categoría</strong></td><td><strong>Situación del Hotel</strong></td><td><strong>Foto Superior</strong></td><td><strong>Ancho</strong></td><td><strong>Alto</strong></td><td><strong>Foto Inferior</strong></td><td><strong>Ancho</strong></td><td><strong>Alto</strong></td><td><strong>Alojamiento</strong></td><td><strong>Restauración</strong></td><td><strong>Instalaciones y Servicios</strong></td><td><strong>Características</strong></td><td><strong>Regimen</strong></td><td><strong>Precio</strong></td><td><strong>Mayorista</strong></td><td><strong>Observaciones</strong></td><td><strong>Duración</strong></td><td><strong>Descripción Foto Última hora</strong></td><td><strong>Foto Última hora</strong></td><td><strong>Ancho</strong></td><td><strong>Alto</strong></td><td><strong>Descripción Situación Hotel</strong></td></><td><strong>Foto Situación Hotel</strong></td><td><strong>Ancho Foto Situación Hotel</strong></td><td><strong>Alto Foto Situación Hotel</strong></td>"
' Decomentar el FOR -- NEXT siguiente para crear la línea de cabecera de la tabla
' con los nombres que tienen los coampos en la tabla
'FOR EACH Parametro IN Ob_RS.Fields
' if Parametro.name <> "id" then
' Response.Write "<TH>" & Parametro.Name
' end if
'NEXT
Response.Write "<TH> Modificar"
DO WHILE NOT Ob_RS.Eof
Response.Write "<TR> <FORM ACTION=modificar_ofertas.asp METHOD=Post>"
FOR EACH Parametro IN Ob_RS.Fields
if Parametro.name <> "id" then
Response.Write "<TD> <INPUT SIZE="& parametro.definedsize &" maxlength= " & parametro.definedsize &" NAME=" & Parametro.Name & " VALUE='" & (Ob_RS (Parametro.Name)) & "'>"
end if
if Parametro.name = "hotelclave" then
Response.Write "<td><select NAME=" & Parametro.Name & chr(34) & ">" & "<option value=" & chr(34) &"hotel" & chr(34) & ">Hotel</option>" & "<option value=" & chr(34) & "Apartamentos" & chr(34) & ">Apartamentos</option>" & "<option value=" & chr(34) & "Aparthotel" & chr(34) & ">ApartHotel</option>" & "</select></td>"
end if
if Parametro.name = "hotelregimen" then
Response.Write "<td><select NAME=" & Parametro.Name & chr(34) & ">" & "<option value=" & chr(34) &"Alojamiento" & chr(34) & ">Alojamiento</option>" & "<option value=" & chr(34) & "Alojamiento y desayuno" & chr(34) & ">Alojamiento y desayuno</option>" & "<option value=" & chr(34) & "Media pension" & chr(34) & ">Media pension</option>" & "<option value=" & chr(34) & "Pension completa" & chr(34) & ">Pension completa</option>" & "<option value=" & chr(34) & "Todo incluido" & chr(34) & ">Todo incluido</option>" & "</select></td>"
end if
NEXT
Response.Write "<INPUT TYPE=Hidden NAME=Clave VALUE='" & Ob_RS ("id") & "'>"
Response.Write "<TD> <INPUT TYPE=Submit VALUE=Modificar> </FORM>"
Ob_RS.MoveNext
LOOP
Response.Write "</TABLE><BR>"%>
<a href="../modulo_gestion.asp" target="_parent">Menú Principal</a> <a href="frame_modificar.htm" target="_parent">Otra
modificación</a>
<%END IF
END IF
Ob_RS.Close
Ob_Conn.Close %>
<% ELSE %>
<strong>ESCRIBA ALGÚN DATO DEL USUARIO A MODIFICAR </strong>
<FORM METHOD="Post" ACTION="modificar_ofertas.asp">
<table width="69%" border="0" cellpadding="0" cellspacing="0">
<tr align="left" valign="top">
<td colspan="2"><strong><font color="#B9DB7D">Clase Oferta<br>
<input name="claseoferta" type="text" id="claseoferta4" size="20" maxlength="20">
</font></strong></td>
<td colspan="3"><font color="#B9DB7D"><strong>Destino<br>
</strong></font> <input name="destino" type="text" size="20" maxlength="20"></td>
<td width="37%"><strong><font color="#B9DB7D">Pais<br>
</font></strong> <input name="pais" type="text" size="20" maxlength="20"></td>
</tr>
<tr align="left" valign="top">
<td colspan="2"><strong><font color="#B9DB7D">Zona<br>
</font></strong> <input name="zona" type="text" size="25" maxlength="25"></td>
<td colspan="3"><font color="#B9DB7D"><strong>Mayorista</strong></font><br>
<input name="mayorista" type="text" size="20" maxlength="20"></td>
<td><strong><font color="#B9DB7D">Duración <br>
<input name="duracion" type="text" id="duracion3" size="3" maxlength="3">
</font></strong><font color="#B9DB7D"><font color="#000000">Días</font></font></td>
</tr>
<tr align="left" valign="top">
<td colspan="2"><strong><font color="#B9DB7D">Salidas</font></strong><br>
<input name="salidas" type="text" size="40" maxlength="40"></td>
<td colspan="4"><strong><font color="#B9DB7D">Fecha de Salida</font></strong><br>
<input name="fechasalida" type="text" size="40" maxlength="40"></td>
</tr>
<tr align="left" valign="top">
<td colspan="6"><strong><u>DATOS DEL HOTEL/APARTAMENTO</u></strong></td>
</tr>
<tr align="left" valign="top">
<td width="38%"><strong><font color="#B9DB7D">Nombre<br>
</font></strong> <input name="hotelnombre" type="text" size="20" maxlength="20">
</td>
<td> </td>
<td colspan="4"><strong><font color="#B9DB7D"><strong>Precio<br>
</strong></font>
<input name="hotelprecio" type="text" size="7" maxlength="7">
€</strong><strong><font color="#B9DB7D"> </font></strong></td>
</tr>
<tr align="left" valign="top">
<td><a href="../modulo_gestion.asp" target="_parent">Menú Principal</a>
</td>
<td width="0%"> </td>
<td width="6%"> </td>
<td width="6%"> </td>
<td colspan="2"><div align="right">
<input type="submit" value="Modificar Registro">
<br>
<input type="reset" value="Limpiar Pantalla">
</div></td>
</tr>
</table>
</FORM>
<% END IF %>
</BODY>
</HTML>
