<%@LANGUAGE="VBSCRIPT"%> 
<!-- #Include file="db/inc_conn.asp" -->

<% 
  If Session("cAdminUserName") = "" Then
    Response.Redirect "AdminLogin.asp"
  End If 
%>

<%
Dim strTable, strField, strRedirect ,strAction , strCheckbox, strRecordID, strSelectRecordID, strSQLFields, strSQLAction, blnSelect

If Request("tbluserID") = "UserID" Then
	strTable = "tblUsers"
	strField = "UserID"
	strRedirect = "AdminCom.asp?view=Users&sort=UserID&SortOrder=ASC"
	Else
	strTable = "tblAds"
	strField = "nAdID"
	strRedirect = "AdminCom.asp?view=Ads&sort=nUserID&SortOrder=ASC"
End If

strAction = Request("SelectAction")	
	
strSQLFields = "SELECT " & strField & " FROM " & strTable
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.open strSqlFields, strConn, adOpenForwardOnly, adLockOptimistic, adCmdText

blnSelect = False
	
While Not rsUsers.EOF
strCheckbox = "checkbox" & rsUsers.Fields.Item(strField).Value
strRecordID = strField & rsUsers.Fields.Item(strField).Value

	
	If Request(strCheckbox) = "y" Then
		

		strSelectRecordID = strSelectRecordID & "(" & strTable & "." & strField & " = " & Request(strRecordID) & " ) OR "
		blnSelect = true
		Else
	
	End If

rsUsers.MoveNext
Wend


	If blnSelect = false Then
	rsUsers.Close
	Set strConn = Nothing	
	Response.Redirect (strRedirect)
	End If
	
rsUsers.Close
strSQLAction = Left(strSelectRecordID, Len(strSelectRecordID) - 4)


strSQLAction = strAction & " * FROM " & strTable & " WHERE " & strSQLAction
rsUsers.Open strSQLAction, strConn, adOpenForwardOnly, adLockReadOnly, adCmdText


Set strConn = Nothing
Response.Redirect (strRedirect)
%>