Function controlla 4 campi

[semolino]

Ciao ragazzi volevo scrivere una funzione che mi possa permettere di controllare 4 campi di una db e restituire una tabella preimpostata.

I campi sono A, B, C, D. A,B,C, sono tipo yes/no e D è value/list.

In pratia vorrei che:

IF
A = si
B = no
C = no
D = n0
Then mostro una sequenza di immagini una legata al si e altre tre per i no!


Else IF
A = si
B = si
C = no
D = n0
Then mostro una sequenza di immagini una legata al si e altre due per i no!


Else IF
A = si
B = si
C = si
D = n0
Then mostro una sequenza di immagini una legata al si e l'altra al no!
....
....
Cosi per tutte le combinazioni.

Per scrivere questo non ho problemi, ma non capisco che valori devo impostare per poter richiamare la funzione. A me verrebbe in mente di mettere tipo:

"& CheckCode (valorecampoA, valorecampoB, valorecampoC, valorecampoC)&"

Con una funzione tipo

Function CheckCode (?,?,?,?)
'tutto il codice
End Function

In sostanza credo che il mio problema è capire cosa devo mettere al posto dei "?".

Grazie :master:

[teorema55]

Per un campo booleano di Access, il controllo funziona così:

var = rs("nomecampo")

if var = true then
... istruzioni ...
end if

Regolati quindi di conseguenza.

[semolino]

questo lo so... forse nonmi sono spiegato, scusate.

Quello in cui trovo difficoltà è nel costruire correttamente la function da richiamare. La function inoltre risiede in un file esterno
che conterrà:

Function CheckCode (Var1, Var2, Var3, Var4)

'...
'tutta il codice che controlla le varie possibilità
'...

End Function


_------_

Poi nella pagina che mi interessa avrò

Response.write ""&CheckCode (Rs("A"), Rs("B"), Rs("C"), Rs("D")).

Quello che chiedo è se costruisco nel modo corretto i contenuti che ci sono nella parentesi della Function e del comando che la richiama.

[santino83]

function CheckCode(var1, var2, var3, var4)

if var1=true and var2=false and.....

CheckCode=AZIONE_CHE_FA_LA_FUNCTION

elseif .......

CheckCode=AZIONE_CHE_FA_LA_FUNCTION

end if

end function

[semolino]

allora stavo procedendo in modo corretto... ora la scrivo poi vi faccio sapere

[semolino]

Ho scritto questo codice:

Function CheckCode(Var1, Var2, Var3, Var4, Var5) 
 
	 If Var5 = "0" Then 
	 Var5 = "" 'controllo su campo database
	 ElseIf Var5 = "1" Then 
	 Var5 = "Access"
	 Else 
	 Var5 = "MySQL"
	 End If
 
 Response.Write(" <table width='224' border='1' cellspacing='0' cellpadding='0'>")
  Response.Write(" <tr>")
  
 If Var1 = True And Var2 = False And Var3 = False And Var4 = False And Var5 = "0" Then 'mostra solo HTML
 	 Response.Write(" <td width='53'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = False And Var3 = False And Var4 = True And Var5 = "0" Then 'mostra HTML e Flash
 	 Response.Write(" <td width='53'>[img][/img]</td>")
	 Response.Write(" <td width='14'>[img][/img]</td>")
  ElseIf Var1 = True And Var2 = True And Var3 = False And Var4 = False And Var5 = "0" Then 'mostra HTML e ASP
	 Response.Write(" <td width='53'>[img][/img]</td>")
	 Response.Write(" <td width='72'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = True And Var3 = False And Var4 = False And Var5 = "1" Then 'mostra HTML, ASP e Access 
	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='16'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = True And Var3 = False And Var4 = False And Var5 = "2" Then 'mostra HTML, ASP e MySQL
 	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='16'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = False And Var3 = True And Var4 = False And Var5 = "2" Then 'mostra HTML, PHP e MySQL
 	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='16'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = False And Var3 = True And Var4 = True And Var5 = "2" Then 'mostra HTML, PHP, Flash e MySQL
 	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='14'>[img][/img]</td>")
	Response.Write(" <td width='16'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = True And Var3 = False And Var4 = True And Var5 = "2" Then 'mostra HTML, ASP, Flash e MySQL
 	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='14'>[img][/img]</td>")
	Response.Write(" <td width='16'>[img][/img]</td>")
 ElseIf Var1 = True And Var2 = True And Var3 = False And Var4 = True And Var5 = "1" Then 'mostra HTML, ASP, Flash e Access 
	Response.Write(" <td width='53'>[img][/img]</td>")
    Response.Write(" <td width='72'>[img][/img]</td>")
    Response.Write(" <td width='14'>[img][/img]</td>")
	Response.Write(" <td width='16'>[img][/img]</td>")
 End If
 
   Response.Write(" <tr>")
Response.Write(" </table>")
 
End Function

E la richamo con

Response.Write(" <tr class=""smalltext"" align=""center"" valign=""top"">")
		   Response.Write("<td align=""left"">Codice utilizzato: " & CheckCode(intSizHtml, intSizAsp, intSizPhp, intSizFlash, intSizDb) & "</td>")
		  Response.Write(" </tr>")

Risultato un casino micidiale di tabelle!!! Dove sbaglio?

[semolino]

Sto effettuando un po di verifiche!!
Risolto il problema delle tabelle incasinate! Ora però, provando con i vari response mi sono accorto che le variabili vengono apssate regolarmente, ma non viene stampata la tabella della function!

Allora se nella pagina della function faccio i rispettivi response di:

Function CheckCode(Var1, Var2, Var3, Var4, Var5) 
 
	 If Var5 = "0" Then 
	 Var5 = "" 'controllo su campo database
	 ElseIf Var5 = "1" Then 
	 Var5 = "Access"
	 Else 
	 Var5 = "MySQL"
	 End If
	 
	 response.Write(Var1)&"
"
	 response.Write(Var2)&"
"
	 response.Write(Var3)&"
"
	 response.Write(Var4)&"
"
	 response.Write(Var5)&"
"

Mi escono correttamente i valori passati dalla pagina in cui richiamo la function; vi ricordo che la chiamo cosi:
Response.Write("" & CheckCode(intSizHtml, intSizAsp, intSizPhp, intSizFlash, intSizDb) & "")

Quindi ilproblema sta proprio nel modo in cui costruisco la tabella. Adesso per fare le prove l'ho ridotta al minimo, ovvero al solo caso (True, True, False, False, 1), quindi avrò:

Function CheckCode(Var1, Var2, Var3, Var4, Var5) 
 
	 If Var5 = "0" Then 
	 Var5 = "" 'controllo su campo database
	 ElseIf Var5 = "1" Then 
	 Var5 = "Access"
	 Else 
	 Var5 = "MySQL"
	 End If
	 
	 'response.Write(Var1)&"
"
	 'response.Write(Var2)&"
"
	 'response.Write(Var3)&"
"
	 'response.Write(Var4)&"
"
	 'response.Write(Var5)&"
"
 
Dim strSizTableCode 'creazione tabella contenuti
	strSizTableCode = ""
 
strSizTableCode = strSizTableCode  & vbCrLf & " <table width='224' border='2' cellspacing='0' cellpadding='0'>"
  strSizTableCode = strSizTableCode  & vbCrLf & " <tr>"
  
 If Var1 = True And Var2 = True And Var3 = False And Var4 = False And Var5 = "1" Then 'mostra HTML, ASP e Access 
	strSizTableCode = strSizTableCode  & vbCrLf & " <td width='53'>[img][/img]</td>"
    strSizTableCode = strSizTableCode  & vbCrLf & " <td width='72'>[img][/img]</td>"
    strSizTableCode = strSizTableCode  & vbCrLf & " <td width='16'>[img][/img]</td>"
End If
 
  strSizTableCode = strSizTableCode  & vbCrLf & " </tr>"
strSizTableCode = strSizTableCode  & vbCrLf & " </table>" 

Response.Write(strSizTableCode)

End Function

Ho messo apposta il bordo tabella a 2 per capire se me la stampa da qualche parte. Non esce un bel niente!!!

[semolino]

Ci sono arrivato!!!!!!
Io allinizio imposto var5 = "..." nei vari casi e negli if invece di cercare Var%5="...", utilizzavo ancora il numero, quindi non mi trovava niente!!!

Grazie a tutti lo stesso...