quote:

---

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/forum/links_goto.asp, line 26

---

quote:

---

Title: Snitz Links Manager

---

quote:

---

Firstly, congratulations for the great work.

Secondly, I got this error, when I click on a link:

---

quote:

---

Hi Allan,

You sould ask if it is realy what they whan to do when reporting a bad link, or maybe adding a comment field. I did try it to test, and it send someting without any verification. The comment fields could be use if, name changed, URL is changed...

Philippe Gamache
http://www.tilttek.com
http://www.lapageamelkor.com

---

quote:

---

I think no confirmation for these two features are fine as is..the reasoning as follows. For commenting and rating, the user can close the window without rating or commenting at all. And for "reporting bad links", no harm is really done by it, all it does is it turns on a switch which the admin sees when s/he goto "check bad links", hence no confirmation is needed. I few that confirmation is mostly needed when you delete or edit something.

---

quote:

---

You should revise some of your files, I saw (don't remember the ones) some:
response.write SQL
and other "test" value that was still showing.

---

quote:

---

Yeah it in one of the admin_links pages like step2update. I'll fix that now.

---

quote:

---

I'm a big fan of dimming all variables and I usually dim my variables and such. But I can't really just go option explicit on the top of the page because many of the variables on the forum were never dimmed and I would have to dim them all before i can check variables in other stuff, like the links manager before i started work on it.

---

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("snitz_forums_2000.mdb") 

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString



	strSQL = "SELECT top 1 LINK_ID FROM LINKS ORDER BY LINK_ID DESC"
	Set rsLink = my_CONN.Execute(strSQL)
	if not rsLink.eof then
		intUpperLinkID = rsLink("Link_ID")
	end if
	set rsLink = nothing
		
	blnRandomLinkExist = false
	dim rsRandomLink
	set rsRandomLink = server.CreateObject("adodb.recordset")
	do While not blnRandomLinkExist
		Randomize
		intLinkID = Int((intUpperLinkID + 1) * Rnd)
		strRandomLinkSQL= "SELECT URL,NAME,DESCRIPTION,LINK_ID,HIT FROM LINKS WHERE LINK_ID = " & intLinkID
		rsRandomLink.open strRandomLinkSQL, my_Conn
		if rsRandomLink.eof then
			blnRandomLinkExist = false
		else
			blnRandomLinkExist = true
			linkid = rsRandomLink("LINK_ID")
			linkhits = rsRandomLink("HIT")
			linkurl = rsRandomLink("URL")
			linkname = rsRandomLink("NAME")
			linkdescription = rsRandomLink("DESCRIPTION")
		end if
		rsRandomLink.Close
	loop
	set randomLINKRS = nothing


Response.Write ("<b><a href=forum/links_goto.asp?id=" & linkid & " target=_blank>" & linkname & "</a></b><br><br>" & linkdescription & "<br>(Hits: " & linkhits & ")")

my_Conn.Close
SET my_Conn = NOTHING