rate link (con estrellitas)

[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


%>