Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/01/2002, 14:07
Avatar de sanfermin
sanfermin
 
Fecha de Ingreso: diciembre-2001
Mensajes: 601
Antigüedad: 23 años, 5 meses
Puntos: 2
VOTA! que no vota

ntento implementar un sistema de votacion al paginar y mostrar una serie de fotos, pero no se incrementan los contadores (votos=calificaciond de los votos, votaciones=numero de votaciones)

<!-- #include virtual="/home/adovbs.inc" -->
<%
tabla=request.querystring("t")
id=request.form("id")
votacion=request.form("votacion")

'set rs = CreateObject("ADODB.Recordset")
'Set Conn = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../database/fotos.mdb"))

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.MapPath("../../database/fotos.mdb") & ";"


rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

select case tabla


case 0
sqltxt="UPDATE 2nd_unit SET votaciones = votaciones + 1, votos = votos + " &votacion& " WHERE id = " &id& " ; "

... (hay diferentes cases para las distintas galerias)

end select

rs.Open sqltxt,conn

'cerramos
'rs.Close
'Conn.Close
set rs=nothing
set Conn=nothing

response.redirect("votarOK.asp")

%>

:(

Fernando Zabalza
----------------
PortalUrbano.com
ClubSanFermin.com