webForumDet fria alternativet

If satser med kryssrutor

ASP

11 svar · 305 visningar · startad av His Divine Shadow

Medlem sedan sep. 20004 079 inlägg
Frågan#1

Hur går syntaxen då man vill använda en kryss ruta för att bestämma sant eller falskt?

Medlem sedan dec. 20003 887 inlägg
#2
Request.Form("[i]ditt checkbox-id[/i]")
Medlem sedan aug. 2001226 inlägg
#3
[RED]
bolVar = Request.Form("din checkbox")
'bolVar = true/false
[/RED]
Medlem sedan sep. 20004 079 inlägg
#4

Uhm, jo anropa den kan jag, men hur man skriver den, det är frågan.

Såhär har jag det:
IF request("Kryssruta") = True THEN
END IF

Har också prövat:
IF request("Kryssruta") = "True" THEN

Dom verkar inte funka.

Medlem sedan sep. 20004 079 inlägg
#5

Förtydligar, hur gör jag om jag vill göra en if sats som är sann om kryssrutan är ifylld?

Medlem sedan dec. 20003 887 inlägg
#6
If CBool(Request.Form("Kryssruta")) Then
    [blue]' True[/blue]
Else
    [blue]' False[/blue]
End If
Medlem sedan sep. 20004 079 inlägg
#7

Type mismatch: 'CBool' får jag nu

Medlem sedan dec. 20003 887 inlägg
#8

Jahapp... testa med

If CInt(Request.Form("Kryssruta")) <> 0 Then
    ' True
Else
    ' False
End If
Medlem sedan feb. 2002116 inlägg
#9

Sätt kryssrutan typ:

<input type="checkbox" value="1" name="kryssruta1">

' sen kör du bara

If request.form("kryssruta1")="1" then
'Kryssrutan är ikryssad
else
'Kryssrutan är INTE ikryssad
end if
Medlem sedan sep. 20004 079 inlägg
#10

Precis den metoden har jag prövat, men den har inte funkat, vaf*n är det som pågår?

Medlem sedan feb. 2002116 inlägg
#11

Det ska fungera. Skickar du svaret med POST eller GET. Om du inte skickar med POST så skall du ju ha request.querystring istället för request.form.

Medlem sedan sep. 20004 079 inlägg
#12

Jahapp.... Ser att själva koden funkar, men tillämpningen av den är kaputt.

Här är hur jag försöker använda den:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\Spas\Spa.mdb;"
set rs = server.createobject("adodb.recordset")
SQL = "SELECT * from Produkt WHERE ID = " & Request("ID") & ""
rs.open sql, conn, 2, 2, adCmdText

	rs("Field") = Request("Field")
IF Request("Val") = "on" THEN
	rs.AddNew
ELSE
	rs.Update
END IF

Alltså, IF satsen funkar, men inte skapas nån ny post inte, den gamla uppdateras istället.

272 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
139 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)