<%@ LANGUAGE="VBSCRIPT"%> <% Sub AddError ID = Request("ID") LinkError = Request.Form("LinkError") Set BadLink = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT Badlink FROM " & strTablePrefix & "Site_Links WHERE LinkID = "& ID &"; " BadLink.Open SQL, my_Conn, 3, 3 BadLink("Badlink") = LinkError BadLink.Update BadLink.Close Set BadLink = Nothing my_Conn.Close Set my_Conn = Nothing %>
Thank You. This link will be reviewed ASAP.

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

Report a Bad Link:

Please specify the reason you are reporting this resource. Chose the best option. Select Link Error Type: Broken Link (404 - page not found) Internal Page Error (on our site) External Page Error (on another site) Spelling Mistake (in title or description) Missing Image

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