
25/01/2002, 14:07
|
 | | | 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 |