Funktion med true/false fra DB

If CBool(objRs("True_False_Field")) = False Then

End If

og så videre...

//>Rune

okey thx. Jeg har bare 20 forskellige felter i min DB med true/ false. Kan man lave det for dem alle i en funktion?

Er det checkbokse du bruger ?
Og skal de sættes alt efter din værdi i databasen, eller vil du bare have resultaterne udskrevet ?
Hvis det sidste kan du jo lave en lille Sub der tager værdien som argument, tester værdien og udskriver det rigtige resultat...

Ja smæk det ind i en løkke!:

While Not objRs.EOF
If CBool(objRs("True_False_Field")) = False Then
    Response.Write("Nej")
Else
    Response.Write("Ja")
End If
objRs.MoveNext()
Wend

//>Rune

Nu er jeg en megaNoob hvad det her angår, så jeg får selvf. fejl: "object requiered".

Jeg gør sådan her:
                        <!-- #include file="DBOpen.asp" -->
<%
   
   
    id = request("id")
   
   
    Query= " SELECT * from tbl_baad where id =" & id
    Set Res = Conn.Execute(Query)
    Session.LCID = 1030
    'Response.write(typebaad)
   
    While Not objRes.EOF
    If CBool(objRes("True_False_Field")) = False Then
        Response.Write("Nej")
    Else
        Response.Write("Ja")
    End If
   
%>

-- Så har jeg dataerne ---

<%
objRes.MoveNext()     
Wend
%>

<!-- #include file="DBClose.asp" -->


Gør jeg noget galt?

Hvad hedder dit felt i databasen ?

True_False_Field ?

Det ville jo for det første være lettere  for mig hvis du gav mig en fejlmeddelse!

For det andet så skal der stå:
Set objRes = Conn.Execute(Query)
istedet for
Set Res = Conn.Execute(Query)

For det 3. så skal der stå navnet
på dit felt der hvro jeg har skrevet True_False_Field!

//>Rune

sorry... Men mit problem er jo, at jeg har 20 forskellige felter i min DB, som alle er true/ false felter.

Er der ikke en smart måd hvorpå man bare kan sige at hvis felter er et true / false felt, så skal den skrive ja / nej istedet for true / false...

Ellers må jeg jo lave mange funktioner...
...
If CBool(Res("kompas")) = False Then
        Response.Write("Nej")
    Else
        Response.Write("Ja")
    End If

If CBool(Res("ur")) = False Then
        Response.Write("Nej")
    Else
        Response.Write("Ja")
    End If

... osv osv...

Du kunne blot smide koden ind i en Sub  der udfører testen hvorfra du udskriver resultatet.

Sub skrivRes(arg)
If CBool(arg) = False
    Response.Write "Nej"
Else
    Response.Write "Ja"
End If
End Sub

- og så kalde den med:
Call skrivRes(Res("field"))

Så kunne du gøre sådan her:

If CBool(Res(0)) = False Then
        Response.Write("Nej")
    Else
        Response.Write("Ja")
    End If

If CBool(Res(1)) = False Then
        Response.Write("Nej")
    Else
        Response.Write("Ja")
    End If

og så ellers fortsæt op til 19 hvis ud har 20 felter!

//>Rune

okey, jeg er dog ikke helt med. :)

Der hvor du skriver (arg) hvad er det? ;)

Og så er det en god idé at teste lidt mere:

Sub skrivRes(arg)
If CBool(arg) = False Then
    Response.Write "Nej"
ElseIf CBool(arg) = True Then
    Response.Write "Ja"
Else
    Response.Write "Ukendt"
End If
End Sub

- og det er også en god ide at huske "Then" efter If ;-)

arg er det argument du sender med til din Sub -altså en variabel.
Der hvor du vil have udskrevet resultaterne indsætter du din kald til din Sub:
Call skrivRes(Res("field1"))
Call skrivRes(Res("field2"))
osv.. hvor værdien af Res("field1")) er den værdi der sendes med til din Sub.

Det er ligesom en funktion blot med den forskel at en sub ikke har nogen returværdi, til gengæld er den glimrende til det du vil.

Og selve Sub'en placeres blot i toppen eller bunden af siden, eller i en includefil så du kan genbruge den på andre sider

Weeee så er jeg med.. :)  Tusind tak for hjælpen. :D