Problem

Tjena!

Jag har ett formulär med tre kryssboxar samt tre gömda fält(falskcogo) för att kunna skicka med värden även om inte boxarna är ikryssade. Vad som ska hända är att den ska sätta in en 1 där kryssboxen är ifylld och en 0:a om den inte är det.

Så här ser min kod ut:

If Request.Form("falskcogopc") = "on" Then
pc=0
ElseIf mac=Request.Form("pc") = "on" Then
pc=1
ElseIf Request.Form("falskcogomac") = "on" Then
mac=0
ElseIf mac=Request.Form("mac") = "on" Then
mac=1
ElseIf Request.Form("falskcogoannat") = "on" Then
annat=0
ElseIf annat=Request.Form("annat") = "on" Then
annat=1
End If

sql = "INSERT INTO foretagsprofil (pc,mac,annat)"
sql = sql & "VALUES ('"& pc &"','"& mac &"','"& annat &"')"
Set sql = Connect.Execute(sql)

Hoppas ni förstår och kan hjälpa mig...

[Redigerat av rilu den 08 apr 2001]

Jag förstår inte vad du behöver dom extra fälten till?

If Request.Form("pc") = "on" Then
pc=1
Else
pc=0
End if
If Request.Form("mac") = "on" Then
mac=1
Else
mac=0
End if
If Request.Form("annat") = "on" Then
annat=1
Else
annat=0
End If

sql = "INSERT INTO foretagsprofil (pc,mac,annat)"
sql = sql & "VALUES ('"& pc &"','"& mac &"','"& annat &"')"
Connect.Execute sql,,128

Om din SQLsats inte returnerar något resultat så kan du skriva som ovan.

------------------
essentitia preter non sans multiplicandum

Tack så mycket!

Jag ska alltid krångla till saker och ting...