rate link (con estrellitas)

[El_Metallick]

Hola amigos, por mas que he buscado no puedo encontrar un sistema dea votos por links de mi sitio que se almacenen individualmente en una BD, de tal panera que por ejemplo en un enlace hayan votado 4 personas; 2 de ellas votaron por 2 estrellas y las otras dos por 4, esto este en la BD y cuando sea necesario se pone el promedio de (2x2 + 4x2) / 4, tambien dentro de la BD almacenar el numero de clics del enlace. No se si me explique, aunque es el típico sistema de voto de los links con estrellitas del 0 al 5. Bueno espero que me puedan ayudar... gracias de ante mano.

[jorel]

Yo tengo uno en una pagina que realizo pero no se si sea como el que tu necesitas, hay un ejemplo de uno de votacion que te puede ayudar con lo del promedio que mencionas.
Es este:
http://www.soloasp.com.ar/vereje.asp?eje=8

Como el de la pagina que realizo es sencillo hago algo como esto:

Inserto un formulario con un "radio" y le pogno valores del 1 al 5
y le pongo estrellitas, con puro htm....ok

<input type="radio" name="rating" value="5">
.
.
<input type="radio" name="rating" value="2">
<input type="radio" name="rating" value="1">
<img src="../icono/star.gif" width="12" height="11">


Luego con asp guardo el rating y en el registro me pone 5, 4, 3, 2 o 1 segun hayan votado.

Y para ver segun la cantidad de rating que haya seleccionado utlizo un if

si rating = 1 entonces imprimo una estrellita, elseif rating = 2 pues 2 estrellitas, y asi ...

If (RS("rating"))= "1" Then
Response.Write vbTab & "<img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "2" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"

espero te sirva.

[jorel]

El_Metallick me pidio el codigo se los pongo aqui para que lo vean tambien.

puede que falten o sobren algunas cosas por que le quite codigo, pero la idea es esa.

El formulario

<form action="guardar.asp" method="post" name="form1">
<input name="codigo" type="hidden" value="<%=producto%>">

<table width="100%" border="0">
<tr>
<td width="22%"><div align="right">
<input type="radio" name="rating" value="5">
</div></td>
<td width="19%"><strong>Excelente</strong></td>
<td width="59%"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"></td>
</tr>
<tr>
<td> <div align="right">
<input type="radio" name="rating" value="4">
</div></td>
<td><strong>Muy Bueno</strong></td>
<td><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"></td>
</tr>
<tr>
<td><div align="right">
<input type="radio" name="rating" value="3">
</div></td>
<td><strong>Bueno</strong></td>
<td><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"></td>
</tr>
<tr>
<td><div align="right">
<input type="radio" name="rating" value="2">
</div></td>
<td><strong> Regular</strong></td>
<td><img src="../icono/star.gif" width="12" height="11"><img src="../icono/star.gif" width="12" height="11"></td>
</tr>
<tr>
<td> <div align="right">
<input type="radio" name="rating" value="1">
</div></td>
<td><strong>Malo</strong></td>
<td><img src="../icono/star.gif" width="12" height="11"></td>
</tr>
<tr>
<td><div align="right"> </div></td>
<td colspan="2"> <div align="left">
<input name="Submit" type="submit" class="input" id="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Borrar" class="input">
</div></td>
</tr>
</table>
</form>

[jorel]

Guardar:

<%

codigo = Trim(Request.Form("codigo"))
rating = Trim(Request.Form("rating"))

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("tubd.mdb")

oConn.Execute "insert into califica (codigo, rating, fecha) VALUES ('"&codigo&"', '"&rating&"', '"& Now()&"')"
%>
<BR>
<BR>
<B>Gracias <%=nombre%>,<BR>
<br>
<br>
Fue enviado con éxito tu calificaci&oacute;n.</B><BR>
<BR>
<P>&nbsp;</P>
<div align="center"><BR>
<br>
<br>
<br>
<br>
<br>
<br>
<input class="input" type="submit" name="Submit" value="Cerrar" onClick="self.close()"></div>
<%
oConn.Close
Set oConn = nothing


%>

[jorel]

Ver:

Do While Not RS.EOF
Response.Write "<TABLE width=""415"" border=""1"" cellspacing=""0"" bordercolor=""#FFFFFF"">" & vbCrLf
Response.Write vbTab & "<tr>" & vbCrLf
Response.Write vbTab & vbTab & "<td colspan=""2"">"
If (RS("rating"))= "1" Then
Response.Write vbTab & "<img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "2" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "3" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "4" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
else
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
end if
Response.Write RS.Fields("nombre").Value& "</strong></td><td><div align=""right"">"
Response.Write Day(fecha)&"/"&Month(fecha)&"/"&Year(fecha)& "</div></td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("comentario").Value& "</td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("experiencia").Value& "</td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("estado").Value& "<img src=../icono/l_h.gif width=""100%"" height=""1""></td>"
Response.Write vbTab & "</TR>" & vbCrLf



Response.Write "</TABLE><br><br>" & vbCrLf
RS.MoveNext
Loop

End If

RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

[El_Metallick]

Muchisimas gracias jorel esto lo estaba buscando hace mucho tiempo.