sumar datos y avanzar segun id de un campo.

bewmaster · #1 (**permalink**) 22/12/2009, 08:48

Buenos días, antes que nada gracias por la ayuda que prestais
a quienes lo necesitamos.

esta pagina que les envio es un include que me muestra
una numeracion del 1 al 10 y el id de un campo.
lo que quiero hacer es que me permita agregar el valor seleccionado por el usuario segun el id del campo, y si ya hay alguno que le sume el valor que este selecciono, y que al hacerlo se avance al siguiente campo, pero no consigo avanzar estoy trancado espero me puedan ayudar como hago para que me funcione como quiero.

en una html llamo a los datos de la base de datos.
*****
<%
If Request.Form("Submit") = "Ingresar" Then
Dim conexion, sql, rs
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OleDB.4.0;Data source=" & server.MapPath("concursophoto.mdb")

sql = "INSERT INTO viajes (votos) VALUES('" + Request.Form("votos") + "') where (idfoto='"&idfoto&"');"
conexion.Execute(sql)
conexion.Close
Set conexion = Nothing

End If
%>

<HTML>
<HEAD>
<TITLE>votos</TITLE>
</HEAD>
<table width="144">

a= <%=rs("idfoto")%>

<form method="post" name="votos" action="cargavotos.asp">
<td>numero de foto:<%=rs("idfoto")%></td>
<tr>
<td class="Estilo2">Votos</td>
<td><select name="votos" id="votos" >

<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
</select></td>
<tr>
<td><input type="image" align="right" name="Submit" src="../../dibujos/enviarformulario.jpg" ></td></tr>
</form>
</table>

</BODY>
</HTML>

monxas · #2 (**permalink**) 23/12/2009, 04:08

donde esta el select que rellena el recordset?
rs("idfoto")
enseñanos el resto del codigo. si no hay resto de donde sacas el recordset?

bewmaster · #3 (**permalink**) 23/12/2009, 06:45

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>

</select>
<br />
</td>
</tr>

</table>

</tr>

<%
RS.MoveNext
loop
%>

<%
'Dim tablabottom1
'tablabottom1 = tablabottom()
%>

</td>
</tr>
</table>