non va variabile

[gsflash]

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

<%
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

[santino83]

senti, io con tutti questi if mi è andato in IF il cervello...

fai così: setti una variabile RISULTATO in questo modo:

dim risultato,ip
risultato=0
ip=listaip.fields("Indirizzo_IP"))

if Controllo_checkingPC(ip)=true then risultato=1
if Controllo_DoppioIP(ip)=true then risultato=2
if Controllo_checkingIP(ip)=true then risultato=3
if Controllo_DoppioNome(ip)=true then risultato=4

select case risultato

case 1

'prim controllo ha dato esito positivo

case 2

'secondo controllo ha dato esito positivo

case 3

'terzo controllo ha dato esito positivo

case 4

'quarto controllo ha dato esito positivo

case else

'nessuno dei controlli ha dato esito positivo

end select

e nella select case riempi in maniera opportuna le variabili link, style,filtro etc



ps: ho notato che nel tuo codice ci sono 2 else che potrebbero verificarsi insieme...evidentemente l'errore è li... prova a fare lo schema che ho messo io che è piu lineare da seguire

[gsflash]

ora funziona benissimoi

infatti questo è più lineare, uso da poco ASP e per questo più leggo in questo forum meglio è

però una sola cosa è che ho verificato chekingPC in queryanalizer, ci sono almeno 50 risultati e invece in pagina.asp i risultati sono 30, e ho notato che ci sono anche quelli DoppioNome e per questo ha tolto 20 risultati di quello ChekingPC.

sql di CheckingPC è:

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 &"')"

e invece quello di DoppioNome:

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 &"'"

Mi sembra che queste verifiche siano più o meno simili e per questo non ha ancora rispettato l'elenco di controllo. Sinceramente se non è mai stato inserito, vada solo a inserisci.asp, se è già stato inserito e vada a verificare se si trovano i doppi nomi, vada al motivo2.asp per correggere il conflitto. Comunque siamo in quasi buon fine
Grazie ancora

[santino83]

forse nella prima query quell'or lo devi mettere a and? nel senso che ne nomepc ne l'ip devono essere nella tabella lista_ip?

qui è un problema di logica

[gsflash]

secondo me questi controlli vadano bene, perchè ho verificato in query analizer su checkingPC, i risultati sono quelli che i nomi non sono mai stati inseriti nella lista, ma gli IP ci sono nella lista e per questo si tratta di DoppioNome e quindi va solo a correggere, giusto?

[santino83]

beh se per lo stesso ip ci sono piu controlli che si settano a true, allora devi decidere una gerarchia di importanza...ovvero: se mi si verificano piu controlli, di quale devo tenere conto maggiormente?

[gsflash]

credo che con questo potrei andare avanti a terminare il progetto, ci proverò domani perchè ora devo uscire per andare a prendere i mobili. Ci vedremo domani
Grazie ancora e buona serata