Foros del Web » Programando para Internet » ASP Clásico »

inexperto en ASP

 Estas en el tema de inexperto en ASP en el foro de ASP Clásico en Foros del Web. hola a todo!!! Soy algo inexperto en ASP y tengo q realizar a partir de un HTML un codigo en ASP. El problema es q ...
  #1 (permalink)  
Antiguo 18/04/2007, 04:44
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
inexperto en ASP
hola a todo!!!

Soy algo inexperto en ASP y tengo q realizar a partir de un HTML un codigo en ASP. El problema es q viene con tablas y me lio bastante. Lo que he hexo me falla, lo normal vaya. Si alguien pudiera echarle un vistazo al código y me pudiera decir donde tengo los fallos se lo agradecería mucho ya que estoy empezando y no soy capaz de arreglarlo correctamente yo solo.

no me deja poner enlaces, lo copio tal cual entonces

CODIGO ASP
Cita:
<table width="850" height="576" border="0" align="center" cellpadding="0" cellspacing="0" id="Tabla_01">

<tr>

<td colspan="7" rowspan="2">
<div align="center" class="box-middle">
<% 'ZONA BANNER
Banner_Gen_001()
%>
</div>
</td>
<td colspan="3">
<img src="Images/web2_02.gif" width="405" height="61" alt=""></td>
<td>
<img src="Images/espacio.gif" width="1" height="61" alt=""></td>
</tr>

<!-- BANNER PRINCIPAL -->

<%
sSQL = "SELECT X_MENU.I_MENU AS INDX_MENU " & _
" FROM X_MENU INNER JOIN PAGINA_X_OBJETO ON " & _
" X_MENU.I_MENU = PAGINA_X_OBJETO.I_OBJETO " & _
" WHERE (((PAGINA_X_OBJETO.I_PAGINA)=" & ipag & ") AND ((PAGINA_X_OBJETO.NOMBRE_OBJETO)='MENU'));"

CrearRS dbi,rs,sSQL,0

I_MENU_1=0
I_MENU_2=0

If Not RS.Eof Then
I_MENU_1=RS("INDX_MENU")
End If

If Not Rs.Eof Then
Rs.MoveNext
End If

If Not RS.Eof Then
I_MENU_2=RS("INDX_MENU")
End If

CerrarObj(RS)


%>
<div id="main">
<div id="menulat" class="mleft">
<hr class="display-none" />

<div id="leftmenu">
<%Menu_Gen_003()%>
</div>


<div class="mainmenu"><%
' Menu principal de la pagina
Menu_Gen_001 I_MENU_1,TRUE
%>
</div>

<!-- 2 MENUS, UNO CENTRAL CON ENLACES Y OTRO CON NOTICIAS -->

<tr>
<td rowspan="6">
<img src="Images/web2_03.gif" width="30" height="514" alt=""></td>
<td rowspan="5" align="left" valign="top" bgcolor="#FFFFFF"><p><span class="Estilo1">Orgullosos de nuestro pasado,</span><span class="Estilo2"><br>
<span class="Estilo4">y con un futuro esperanzador</span></span></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<table class="tabla_2" width="100%" border="0" cellpadding="0" cellspacing="12" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center" class="tabla_2">
</td>
</tr>
<tr>
<td width="100%" class="tabla_2"> <%
cellpadding=0
cellpadding2=3
cellspacing=0
borde=0
EstiloCelda="celda_0"
EstiloCelda2="celda_1"
EstiloParrafo02="p02"
<%
sSQL = "SELECT I_OBJETO " &_
" FROM PAGINA_X_OBJETO " &_
" WHERE (((PAGINA_X_OBJETO.I_PAGINA)=" & ipag & ") AND ((PAGINA_X_OBJETO.NOMBRE_OBJETO)='NOTICIA'))"

CrearRS dbi,rs,sSQL,0
NOTICIAS=0
IF NOT RS.EOF THEN
Noticia_Gen_001 (RS("I_OBJETO"))
End If
CerrarObj(RS)
%>

</td>
</tr>
</table>
<!-- NOTICIAS, SE MUESTRAN TRES NOTICIAS ASOCIADAS A UNA FOTO -->

TEXTO HTML
Cita:
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('sustitucion/web2_09.gif','sustitucion/web2_10.gif','sustitucion/web2_12.gif','sustitucion/web2_13.gif','sustitucion/web2_14.gif')">
<!-- ImageReady Slices (web2.psd) -->
<table width="850" height="576" border="0" align="center" cellpadding="0" cellspacing="0" id="Tabla_01">
<tr>
<td colspan="7" rowspan="2">
<img src="Images/web2_01.gif" width="444" height="125" alt=""></td>
<td colspan="3">
<img src="Images/web2_02.gif" width="405" height="61" alt=""></td>
<td>
<img src="Images/espacio.gif" width="1" height="61" alt=""></td>
</tr>
<!-- banners -->

<tr>
<td rowspan="6">
<img src="Images/web2_03.gif" width="30" height="514" alt=""></td>
<td rowspan="5" align="left" valign="top" bgcolor="#FFFFFF"><p><span class="Estilo1">Orgullosos de nuestro pasado,</span><span class="Estilo2"><br>
<span class="Estilo4">y con un futuro esperanzador</span></span></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="34%" rowspan="2" align="center" valign="middle"><img src="Images/portada1.gif" alt="Descripci&oacute;n de imagen" name="Imagen_71_1176646813792" width="111" height="78" align="left" id="Imagen_71_1176646813792"></td>
<td colspan="2"><span class="Estilo6">Tres de las ocho escuelas infantiles p&uacute;blicas del municipio, entre las mejores de Espa&ntilde;a</span></td>
</tr>
<tr>
<td width="8%" valign="bottom"><img src="Images/flechita.gif" alt="" width="23" height="22"></td>
<td width="58%" valign="bottom" class="Estilo7">Ver Noticia </td>
</tr>
</table>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="34%" rowspan="2" align="center" valign="middle"><img src="Images/portada1.gif" alt="Descripci&oacute;n de imagen" name="Imagen_71_1176646813792" width="111" height="78" align="left" id="Imagen_71_1176646813792"></td>
<td colspan="2"><span class="Estilo6">Tres de las ocho escuelas infantiles p&uacute;blicas del municipio, entre las mejores de Espa&ntilde;a</span></td>
</tr>
<tr>
<td width="8%" valign="bottom"><img src="Images/flechita.gif" alt="f" width="23" height="22"></td>
<td width="58%" valign="bottom" class="Estilo7">Ver Noticia </td>
</tr>
</table>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="34%" rowspan="2" align="center" valign="middle"><img src="Images/portada1.gif" alt="Descripci&oacute;n de imagen" name="Imagen_71_1176646813792" width="111" height="78" align="left" id="Imagen_71_1176646813792"></td>
<td colspan="2"><span class="Estilo6">Tres de las ocho escuelas infantiles p&uacute;blicas del municipio, entre las mejores de Espa&ntilde;a</span></td>
</tr>
<tr>
<td width="8%" valign="bottom"><img src="Images/flechita.gif" alt="f" width="23" height="22"></td>
<td width="58%" valign="bottom" class="Estilo7">Ver Noticia </td>
</tr>
</table>

<!-- 3 NOTICIAS PARA MOSTRAR EN EL MENU IZQUIERDO -->
gracias x todo!!!
  #2 (permalink)  
Antiguo 18/04/2007, 04:47
Avatar de Shilfild  
Fecha de Ingreso: marzo-2007
Mensajes: 120
Antigüedad: 18 años, 1 mes
Puntos: 0
Re: inexperto en ASP
Yo también acabo de empezar con ASP, pero sería mucho mas fácil si pusieras qué pretendes hacer y en qué te da error. Y a poder ser el error que te muestra, yo no creo que pudiera ayudarte mucho, pero si lo pusieras sería más fácil.
  #3 (permalink)  
Antiguo 18/04/2007, 04:57
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
en el código de menús y noticias me da error al hacer la consulta y al ponerlo con las tablas pues no se ha quedado bien, se ha desconfigurado.
  #4 (permalink)  
Antiguo 18/04/2007, 09:01
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
como se inserta en tres tablas un código asp??

Tengo un código que da tres noticias y quiero insertarlo en tres tablas, pero no sé dónde colocar el código asp para que se inserte en cada celdilla.

alguien me puede ayudar??
  #5 (permalink)  
Antiguo 18/04/2007, 09:11
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses
Puntos: 98
Re: inexperto en ASP
Cita:
Iniciado por Beav Ver Mensaje
como se inserta en tres tablas un código asp??

Tengo un código que da tres noticias y quiero insertarlo en tres tablas, pero no sé dónde colocar el código asp para que se inserte en cada celdilla.

alguien me puede ayudar??
Estamos hablando de insertar en la base de datos, o de mostrar los resultados dentro de una tabla HTML?
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #6 (permalink)  
Antiguo 18/04/2007, 09:13
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
Cita:
Estamos hablando de insertar en la base de datos, o de mostrar los resultados dentro de una tabla HTML?
son tablas html

Son tres tablas y tengo que insertar una noticia en cada una de ellas.
  #7 (permalink)  
Antiguo 18/04/2007, 09:19
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses
Puntos: 98
Re: inexperto en ASP
Entonces para comenzar el término insertar está un poco mal empleado, mas bien quieres mostrar tus datos en tablas de HTML, tu problema más que ASP es de HTML. No entiendo específicamente tui código, pero básicamente lo que quieres es abrir un recordset, iterarlo y escribir el HTML correspondiente:

Código: 
rs.Open
if not rs.EOF then
  while not rs.EOF
  %>
     <tr>
         <td><%=rs("campo1")%></td>
         <td><%=rs("campo2")%></td>
         <td><%=rs("campo3")%></td>
      </tr>
   <%
   rs.MoveNext
  wend
else
   'no se encontraron registros
end if
rs.Close
Set rs = Nothing
Algo asi, el programa anterior escribe 3 campos de la base de datos en tres respectivas columnas de una tabla HTML. Podrias crear tablas por cada registro escribiendo los tags de tabla por cada iteracion de tu recordset.

Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #8 (permalink)  
Antiguo 18/04/2007, 09:30
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
el código que tengo es este

Cita:
<%
sSQL = "SELECT I_OBJETO " &_
" FROM PAGINA_X_OBJETO " &_
" WHERE (((PAGINA_X_OBJETO.I_PAGINA)=" & ipag & ") AND ((PAGINA_X_OBJETO.NOMBRE_OBJETO)='NOTICIA'))"

CrearRS dbi,rs,sSQL,0
NOTICIAS=0
IF NOT RS.EOF THEN
Noticia_Gen_001 (RS("I_OBJETO"))
End If
CerrarObj(RS) %>
en qué lugar del código pongo las tres tablas??

gracias por contestar
  #9 (permalink)  
Antiguo 18/04/2007, 11:29
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses
Puntos: 98
Re: inexperto en ASP
IF NOT RS.EOF THEN
'aqui va el codigo
End If
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #10 (permalink)  
Antiguo 20/04/2007, 00:48
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
muchas gracias ya se me ha solucionado!!!

Pero ahora me a surgido otro... en este caso se trata al insertar en una tabla.

ADODB.Recordset error '800a0cb3'

El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

He probado a hacerle varias cosas pero como si nada.
El código que me falla es esta:

Cita:
Case "insercion"

strSQL = "SELECT * FROM PLANTILLA WHERE I_PLANTILLA=0;"

CrearRS dbi,RS,strSQL,0

Rs.AddNew

RS("PLANTILLA")=PLANTILLA
RS("DESCRIPCION")=DESCRIPCION

RS.Update
CerrarObj(RS)
CerrarObj(dbi)

Response.Redirect(InsOKURL)
El error me lo pone en Rs.AddNew.

¿alguien tiene alguna idea de cómo solucionarlo?
  #11 (permalink)  
Antiguo 20/04/2007, 01:25
Avatar de Shiryu_Libra
Colaborador
  
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Re: inexperto en ASP
prueba lo siguiente

en ves de....
Cita:
CrearRS dbi,RS,strSQL,0
escribe
Cita:
CrearRS dbi,RS,strSQL,3,3
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #12 (permalink)  
Antiguo 20/04/2007, 01:37
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
no ha funcionado...

el error que me sale es:

Cita:
Error de Microsoft VBScript en tiempo de ejecución error '800a01c2'

Número de argumentos erróneo o asignación de propiedad no válida: 'CrearRS'

/arcantos/arc_x_plantillas_2_validate.asp, línea 94
la línea del error es la del CrearRS dbi,RS,strSQL,3,3
  #13 (permalink)  
Antiguo 20/04/2007, 02:16
Avatar de Shiryu_Libra
Colaborador
  
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Re: inexperto en ASP
me podrias decir en que parte defines

CrearRS dbi,RS,strSQL,3,3

y CrearRS, es una funcion????
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #14 (permalink)  
Antiguo 20/04/2007, 02:26
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años
Puntos: 0
Re: inexperto en ASP
lo de CrearRS es para la base de datos.

Lo que he pensado es que quizás pueda ser un problema de permisos porque este código se utiliza para otra página y otra base de datos y no da problemas.
Tambien podría ser el DSN, aunque lo tengo activado. La verdad es que no se me ocurre la causa.

a alguien se le ocurre la razón del error??
Última edición por Beav; 20/04/2007 a las 02:50
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 23:26.