
23/12/2009, 06:45
|
| | Fecha de Ingreso: diciembre-2009
Mensajes: 85
Antigüedad: 15 años, 4 meses Puntos: 0 | |
Respuesta: sumar datos y avanzar segun id de un campo. gracias por responder rs("idfoto") lo extraigo de la base de datos. este es todo el codigo que tengo, espero me puedas ayudar ya que conosco poco de asp.
*********
<% 'Dim tablatop1
'tablatop1 = tablatop(780,"Cumpleañeros del "& Date())
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Data source=" & server.MapPath("concursophoto.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT viajes.Nombre, viajes.comentario, viajes.empresa, viajes.departamento, viajes.idfoto, viajes.foto FROM viajes "
RS.Open strSQL, oConn,3,1
%>
<tr>
</tr>
<% Do While Not RS.EOF
if colorfila = 0 then
color= "../../imagenes/cuadro2.jpg"
colorfila=1
else
color="../../imagenes/cuadro3.jpg"
colorfila=0
end if
%>
<tr>
<table width="780" height="400" align="center" background="fondo foto.jpg">
<tr>
<td width="212" valign="middle">
<div><span class="style13">Autor:</span><span class="textoinformativo"> <%=rs("nombre")%></span></div>
<div><span class="style13">Empresa:</span><span class="textoinformativo"> <%=rs("empresa")%></span></div>
<div><span class="style13">Departamento:</span><br><span class="textoinformativo"> <%=rs("departamento")%></span></br></div>
<div><span class="style13">Comentarios del Autor:</span></div><span class="textoinformativo">
<div><%=rs("comentario")%></span></div>
<td width="400" height="380" align="center" style="border-style:none; border-width:medium; text-align:center;<font face="Arial" size="2"><div><img class=bordeFOT height=380 width=400 hspace=1 src="http://www.forosdelweb.com/dibujos/<%=rs("foto")%>" width="110" vspace=1 border=0></div>
</td>
<td> Numero de foto<%=rs("idfoto")%></td>
<!--#include file="cargavotos.asp"-->
</select>
<br />
</td>
</tr>
</table>
</tr>
<%
RS.MoveNext
loop
%>
<%
'Dim tablabottom1
'tablabottom1 = tablabottom()
%>
</td>
</tr>
</table> |