Problema con una if

[LordNik]

Salve a tutti. Ho un problema con questo codice.
In pratica ci sono tre campi: "Marca_PC","Marca_PC_2" e "Marca_PC_3".
Questa if vorrei che venisse verificata quando ognuno di questi campi non è nullo, vuoto oppure non c'è scritto "-".

<%if not isnull(persone.fields("Marca_PC")) eqv (persone.fields("Marca_PC")<>"" and persone.fields("Marca_PC")<>"-") eqv not isnull(persone.fields("Marca_PC_2")) eqv (persone.fields("Marca_PC_2")<>"" and persone.fields("Marca_PC_2")<>"-") eqv not isnull(persone.fields("Marca_PC_3")) eqv (persone.fields("Marca_PC_3")<>"" and persone.fields("Marca_PC_3")<>"-") then%>

Grazie in anticipo per le risposte.

[maximum]

Fai tre controlli per ciascuno dei campi, così:

<%
if not isnull(persone.fields("Marca_PC")) then 
   if (persone.fields("Marca_PC") <> "" or persone.fields("Marca_PC")<> "-") then
      response.write("Marca PC ERRATA!!!") 
   end if
else
   response.write("Marca PC ERRATA (null)!!!") 
end if

if not isnull(persone.fields("Marca_PC_2")) then 
   if (persone.fields("Marca_PC_2") <> "" or persone.fields("Marca_PC_2") <> "-") then
       response.write("Marca PC 2 ERRATA!!!") 
   end if
else
   response.write("Marca PC 2 ERRATA (null)!!!") 
end if

if not isnull(persone.fields("Marca_PC_3")) then 
   if (persone.fields("Marca_PC_3") <> "" or persone.fields("Marca_PC_3") <> "-") then
       response.write("Marca PC 3 ERRATA!!!") 
   end if
else
   response.write("Marca PC 3 ERRATA (null)!!!") 
end if
%>

[albis]

prova così

function ContrSpeciale(strVAlore)
	dim blnRisp
	blnRisp = false
	
	if strVAlore & "" = ""  then
		blnRisp = true
	elseif if strVAlore & "" = "-"   then
		blnRisp = true
	end if
	ContrSpeciale = blnRisp
end function
if not ContrSpeciale(persone.fields("Marca_PC"))  = true and ContrSpeciale(persone.fields("Marca_PC_2")) = true  and ContrSpeciale(persone.fields("Marca_PC_3")) = true then

[maximum]

Il "true" puoi anche ometterlo negli IF, in quanto implicito....

albis.........PROOOOOOOOOOOOOOOOOOOTTTTTTTTT :maLOL:

[albis]

Originariamente inviato da maximum
Il "true" puoi anche ometterlo negli IF, in quanto implicito....

albis.........PROOOOOOOOOOOOOOOOOOOTTTTTTTTT :maLOL:

Prooot a meeee

comunque il true lo ho messo volutamente

a me hanno insegiato di evitare le conversioni implicite

Sparaprooooottt

[LordNik]

Ho provato utilizzando la funzione descritta da albis, ma mi da questo errore:

elseif if strVAlore & "" = "-" then
------^

Il codice che ho inserito è questo:

<%function ContrSpeciale(strVAlore)
dim blnRisp
blnRisp = false
if strVAlore & "" = "" then
blnRisp = true
elseif if strVAlore & "" = "-" then
blnRisp = true
end if
ContrSpeciale = blnRisp
end function
if not ContrSpeciale(persone.fields("Marca_PC")) = true and ContrSpeciale(persone.fields("Marca_PC_2")) = true and ContrSpeciale(persone.fields("Marca_PC_3")) = true then%>

[maximum]

elseif strVAlore & "" = "-" then

P.S.:albis è un babaliot!

[LordNik]

Scusate ma non sono molto esperto di asp, comunque utilizzando la funzione di albis non ho ottenuto il risultato che volevo.

Io vorrei che la condizione if si verificasse se Marca_PC non è nullo, non è vuoto ed è diverso da "-", così come Marca_PC_2 non è nullo, non è vuoto ed è diverso da "-" e Marca_PC_3 non è nullo, non è vuoto ed è diverso da "-".

Però queste condizioni devono essere tutte vere, quindi il metodo proposto da maximum non credo vada bene. Se invece mi sbaglio correggetemi pure...

[albis]

prova così

function ContrSpeciale(strVAlore)
	dim blnRisp
	blnRisp = true
	
	if strVAlore & "" = ""  then
		blnRisp = false
	elseif strVAlore & "" = "-"   then
		blnRisp = false
	end if
	ContrSpeciale = blnRisp
end function
if not ContrSpeciale(persone.fields("Marca_PC"))  = true and ContrSpeciale(persone.fields("Marca_PC_2")) = true  and ContrSpeciale(persone.fields("Marca_PC_3")) = true then

[LordNik]

Credo di avere risolto...

Grazie dell'aiuto!