<%@ LANGUAGE="VBSCRIPT"%> <% Sub AddRating set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString ID = Request.Form("ID") Rating = Request.Form("Rating") Set RateIt = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT Votes, Score FROM " & strTablePrefix & "Site_Links WHERE LinkID = "& ID &"; " RateIt.Open SQL, my_Conn, 3, 3 RateIt("Votes") = RateIt("Votes") + 1 RateIt("Score") = RateIt("Score") + Rating RateIt.Update RateIt.Close Set RateIt = Nothing my_Conn.Close Set my_Conn = Nothing %>
Thank You. Your Rating has been added.

Close This Window <% End Sub Sub ShowRatingForm 'Find the Resource to be rated ID = Request.QueryString("ID") %>

Rate This Resource:

Please chose the best rating for this resource. Select Resource Qualilty: Very Poor Poor Average Good Very Good Excellent

<%End Sub%> <%If Request.QueryString("action") = "add" Then Call AddRating Else Call ShowRatingForm End If%>