ahora esto:
objeto Response error 'ASP 0156 : 80004005'
Error de encabezado
/am/metallica/add_valoracion.asp, line 9
Los enbezados HTTP ya están escritas en el explorador cliente. Cualquier cambio en el encabezado HTTP se debe hacer antes de escribir el contenido de la página.
Código:
<!--#include file="lenguaje.asp" -->
<html>
<head>
<title><% = Titulo %></title>
<link rel="stylesheet" type="text/css" href="estilo1.css">
</head>
<body>
<%
Response.Buffer = true
stroconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("" & DB & "tablaturas.mdb")
set oConn = server.createobject("adodb.connection")
oConn.open stroconn
'Recupero el valor del voto y el valor del ID del producto
ID = Request.Querystring("ID")
votos = Request.Querystring("Votos")
'Traigo los votos actuales que tiene el producto para sumarle los nuevos
SQL="SELECT * FROM tablaturas WHERE id = "&ID&" "
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, oConn,3,1
vact = Cint(Rs("total_votos"))
total = vact + Votos
'Sumamos uno a las votaciones
rating = Cint(Rs("votos"))+1
'Ahora que tengo el total que es lo que recibi de la base mas los votos nuevos actualizo la valoracion del producto segun su ID
SQL = "UPDATE tablaturas Set total_votos = "&total&", votos = "&rating&" WHERE id = "&ID&" "
Set RS = oConn.Execute(SQL)
'Creamos una cookie con el id del producto para que no voten mas de una vez(puro grupo) le damos una semana
Response.Cookies("valoracion")("ID")= ID
Response.Cookies("valoracion").Expires = Now() + 7
%>
<br>
<br>
<br>
<br>
<table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td><table width="100%" height="140" border="0" cellpadding="4" cellspacing="0">
<tr>
<td class="text"><div align="center">Gracias por tu Voto<br>
<a href="javascript:onClick=window.close()"><br>
Cerrar Ventana </a><br>
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>