mi sono dimenticato di inserire qui il funzione che mi hai chiesto:

codice:
<%
Dim Controllo_IP
Dim Controllo_IP_numRows

Function Controllo_DoppioIP(Nome_macchina)

Set Controllo_IP = Server.CreateObject("ADODB.Recordset")
Controllo_IP.ActiveConnection = MM_dbscanner_STRING
Controllo_IP.Source = "SELECT distinct 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 and Nome_Macchina = '" & Nome_macchina & "'"
Controllo_IP.CursorType = 0
Controllo_IP.CursorLocation = 2
Controllo_IP.LockType = 1
Controllo_IP.Open()

Controllo_IP_numRows = 0

if not Controllo_IP.eof then
	Controllo_DoppioIP = true
else
	Controllo_DoppioIP = false
end if

Controllo_IP.Close
end function

%>
<%
Dim Controllo_PC
Dim Controllo_PC_numRows

Function Controllo_DoppioNome(Indirizzo_IP)

Set Controllo_PC = Server.CreateObject("ADODB.Recordset")
Controllo_PC.ActiveConnection = MM_dbscanner_STRING
Controllo_PC.Source = "SELECT distinct 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 and Indirizzo_IP = '" & Indirizzo_IP &"'"
Controllo_PC.CursorType = 0
Controllo_PC.CursorLocation = 2
Controllo_PC.LockType = 1
Controllo_PC.Open()

Controllo_PC_numRows = 0
if not Controllo_PC.eof then
	Controllo_DoppioNome = true
else
	Controllo_DoppioNome = false
end if

Controllo_PC.Close
end function
%>
<%
Dim Controllo_CheckPC
Dim Controllo_CheckPC_numRows

Function Controllo_checkingPC(Indirizzo_IP, Nome_PC)

Set Controllo_CheckPC = Server.CreateObject("ADODB.Recordset")
Controllo_CheckPC.ActiveConnection = MM_dbscanner_STRING
Controllo_CheckPC.Source = "SELECT * FROM analizza where (Nome_PC not in(select Nome_macchina from lista_IP) and Indirizzo_IP = '" & Indirizzo_IP &"') or (Indirizzo_IP not in(select IP_1 from lista_IP) and Nome_PC = '" & Nome_PC &"')"
Controllo_CheckPC.CursorType = 0
Controllo_CheckPC.CursorLocation = 2
Controllo_CheckPC.LockType = 1
Controllo_CheckPC.Open()

'response.Write(Controllo_CheckPC.Source)
'response.End()

Controllo_CheckPC_numRows = 0
if not Controllo_CheckPC.eof then
	Controllo_checkingPC = true
else
	Controllo_checkingPC = false
end if

Controllo_CheckPC.Close
end function
%>
Spero che riusciremo