ciao a tutti, sto facendo la pagina per monitorare gli ip, la tabella "analizza" è quello che è stato analizzato gli ip contemporaneamente, contengono solo nome del pc e indirizzo IP. Invece "lista_ip" è quello che è stato registrato dagli utenti, contengono nome del pc, indirizzo ip, nome, cognome, stanza, telefono, progetto, ecc..

Quando faccio la visualizzazione della lista di "analizza" con 3 if, 1 if quando trova 2 nome di PC con lo stesso indirizzo IP, 2 if quando trova 2 indirizzi IP con lo stesso nome di PC, 3 nome del pc e indirizzio IP non sono ancora inseriti nella lista "lista_ip".
Se uno di questi IF è presente, visualizza la pallina rossa per far vedere gli utenti che devono correggere.
Se è tutto ok, visualizza la pallina verde.

Ma il problema è che i 2 SELECT (Controllo_IP e Controllo_PC), scrivendo al sql analyzer, si vedono perfettamente.
Ma nella pagina asp si vedono solo 2 palline rosse e ho provato a mettere response.write Controllo_PC e seleziona soltanto la prima riga della lista. Come dovrei fare per confrontare tra quello "analizza" e "lista_ip"?

ecco i codici:
Analizza
codice:
<%
Dim listaip
Dim listaip_numRows

Set listaip = Server.CreateObject("ADODB.Recordset")
'Response.write(MM_dbscanner_STRING)
'Response.End()
listaip.ActiveConnection = MM_dbscanner_STRING
listaip.Source = "SELECT * FROM dbo.Analizza"
listaip.CursorType = 0
listaip.CursorLocation = 2
listaip.LockType = 1
listaip.Open()

listaip_numRows = 0
%>
Controllo_IP
codice:
<%
Dim Controllo_IP
Dim Controllo_IP_numRows

Set Controllo_IP = Server.CreateObject("ADODB.Recordset")
Controllo_IP.ActiveConnection = MM_dbscanner_STRING
Controllo_IP.Source = "SELECT IP_1 ,  Indirizzo_IP, Nome_macchina  FROM lista_IP a, Analizza b  WHERE a.IP_1 <> b.Indirizzo_IP AND a.Nome_macchina=b.Nome_PC"
Controllo_IP.CursorType = 0
Controllo_IP.CursorLocation = 2
Controllo_IP.LockType = 1
Controllo_IP.Open()

Controllo_IP_numRows = 0
%>
Controllo_PC
codice:
<%
Dim Controllo_PC
Dim Controllo_PC_numRows

Set Controllo_PC = Server.CreateObject("ADODB.Recordset")
Controllo_PC.ActiveConnection = MM_dbscanner_STRING
Controllo_PC.Source = "SELECT Nome_macchina ,Nome_PC ,Indirizzo_IP   FROM lista_IP a, Analizza b  WHERE a.IP_1= b.Indirizzo_IP and a.Nome_macchina <>b.Nome_PC"
Controllo_PC.CursorType = 0
Controllo_PC.CursorLocation = 2
Controllo_PC.LockType = 1
Controllo_PC.Open()

Controllo_PC_numRows = 0
%>
lista Repeat
codice:
<td align="left" width="34%"> Nome_PC </td>
        <td align="left" width="47%"> Indirizzo_IP </td>
        <td align="left" width="19%">Esito</td>
      </tr>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT listaip.EOF)) 
%>
      <tr>
        <td align="left" width="34%">" target="new" class="style1"><%=(listaip.Fields.Item("Nome_PC").Value)%></td>
        <td align="left" width="47%"><%=(listaip.Fields.Item("Indirizzo_IP").Value)%></td>
        <td align="center" width="19%"><%
if Controllo_IP("Nome_Macchina") = listaip("Nome_PC")  and Controllo_PC("Indirizzo_IP") <> listaip("Indirizzo_IP") then %>
            [img]sem-off.gif[/img]
            <% elseif Controllo_IP("Nome_Macchina") <> listaip("Nome_PC")  and Controllo_PC("Indirizzo_IP") = listaip("Indirizzo_IP") then %>
            [img]sem-off.gif[/img]
            <%
else
%>
            [img]sem-on.gif[/img]
            <%
end if %></td>
      </tr>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  listaip.MoveNext()
Wend
%>
Grazie