<%
response.write "<table cellpadding=""0"" cellspacing=""0""><tr><td>" & theMessageToShowNow & "</td></tr></table>"
%>

			
			<p>This table shows the contents of the url fields in the user profiles.</p> 		
			<table cellpadding="3" class="stattable" style="border-collapse: collapse;">
				<tr bgcolor="#e0e0e0">
					<td align="center">Member ID</td>
					<td align="center">Posts</td>
					<td align="center">Member Name</td>
					<td align="center">IP Address</td>
					<td align="center">Email</td>
					<td align="center">Links URLs</td>
					<td align="center">Signature URLs</td>
				</tr>
				<%	
dim gfn, grs, gSQL


Set gfn = Server.CreateObject("ADODB.Connection")
gfn.Open strdbpathforum
Set grs = Server.CreateObject("ADODB.RecordSet")

gSQL = "select * from forum_members where (m_homepage <> null and m_homepage <> '') or (m_link1 <> null and m_link1 <> '') or (m_link2 <> null and m_link2 <> '')"

grs.Open gSQL, gfn, adOpenStatic

if grs.eof then
	response.write "<tr><td> -na- </td><td>0</td><td>0</td></tr>"
else

	do while not grs.eof
	i=i+1
	
		response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"
		response.write "<td>" & grs("m_email") & "</td><td>"
		
		if grs("m_homepage") = "" or isnull(grs("m_homepage")) or grs("m_homepage") = " " then
		else
			response.write "<strong>homepage:</strong> " & grs("m_homepage") & ""
		end if
		
		if grs("m_link1") = "" or isnull(grs("m_link1")) or grs("m_link1") = " " then
		else
			response.write "<br /><strong>Link 1:</strong> " & grs("m_link1") & ""
		end if

		if grs("m_link2") = "" or isnull(grs("m_link2")) or grs("m_link2") = " " then
		else	
			response.write "<br /><strong>Link 2:</strong> " & grs("m_link2") & ""
		end if
		
		response.write "</td><td>" & grs("m_sig") & "</td></tr>"
			
		grs.movenext
	
	loop
end if

grs.Close 
Set grs = Nothing 
gfn.Close 
Set gfn= Nothing
Set gSQL = Nothing
%>				
</table>		
				

quote:

---

	
		response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"

---

quote:

---

Originally posted by Carefree

Hey Gary, you have the code for your referenced link?

---

<%	
dim gfn, grs, gSQL, m_id

'---get the id out of the querystring
m_id = request.querystring("id")


'---check for null id
'---check for empty id
'---check for val can't be converted to integer
if (isnull(m_id) or m_id = "") or isnumeric(m_id) = 0 then

	'---bad value passed, redirect to error page
    response.redirect "URL OF YOUR CHOICE---when error happens"
else

	'---convert string to integer
	m_id = cInt(m_id)

	'---open the connection
	Set gfn = Server.CreateObject("ADODB.Connection")
	gfn.Open strdbpathforum
	
	
	'---clear out their spammy crap
	upd = "update forum_members set m_homepage = null, m_link1 = null, m_link2 = null where member_id = " & m_id
	gfn.execute(upd)
	
	'---back to the list
	response.redirect "monitor_member_links.asp?done=1"
	
	
	'---close connections
	gfn.Close 
	Set gfn= Nothing
	Set upd = Nothing

end if
%>