Radiobutton RecSet?

Vill bara börja att säga att jag har sökt men inte hittat något som svarar på min fråga..

Jag kör med en Access databas. Jag håller på med en sida där man kan "Skapa ny post" och "Ändra post", precis som vanligt. Och nu har jag försökt mig på radiobuttons för första gången, Det var jätte lätt att använda sig av dem men jag har ett problem. När jag väljer "Ändra post" så vet jag inte hur jag ska kunna hämta vilken radiobutton som är vald, hur hämtar jag detta? Via en funktion antar jag.

ex:

	<input name="iconid" type="radio" value="1">
	<input name="iconid" type="radio" value="2">
	<input name="iconid" type="radio" value="3">

DittVärde = request.form("iconid")
select case DittVärde
case "1"
case "2"
case "3"
end select

kan du förklara dej lite?

<%
lIconId = request.form("iconid")
select case lIconId
case "1"
  s1 = "selected"
case "2"
  s2 = "selected"
case "3"
  s3 = "selected"
end select
%>
<input name="iconid" type="radio" value="1" <% =s1 %>>
<input name="iconid" type="radio" value="2" <% =s2 %>>
<input name="iconid" type="radio" value="3" <% =s3 %>>

För det första så förstår jag inte hur denna funktionen skulle kunna fungera? sen får jag den inte till att fungera :l

<%
lIconId = request.form("iconid")
select case lIconId
case "1"
  s1 = "selected"
case "2"
  s2 = "selected"
case "3"
  s3 = "selected"
case "4"
  s4 = "selected"
case "5"
  s5 = "selected"
case "6"
  s6 = "selected"
end select
%>
	<input name="iconid" type="radio" value="1" <% =s1 %>><img src="bilder/ico_1.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="2" <% =s2 %>><img src="bilder/ico_2.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="3" <% =s3 %>><img src="bilder/ico_3.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="4" <% =s4 %>><img src="bilder/ico_4.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="5" <% =s5 %>><img src="bilder/ico_5.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="6" <% =s6 %>><img src="bilder/ico_6.gif" width="15" height="15" align="absmiddle">

För det första är det ingen funktion. För det andra tror jag att det finns ett fel i den. För det tredje är den helt otestad. ;)

<%
lIconId = CLng(request.form("iconid"))
select case lIconId
case 1
  s1 = "selected"
case 2
  s2 = "selected"
case 3
  s3 = "selected"
case 4
  s4 = "selected"
case 5
  s5 = "selected"
case 6
  s6 = "selected"
end select
%>
	<input name="iconid" type="radio" value="1" <% =s1 %>><img src="bilder/ico_1.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="2" <% =s2 %>><img src="bilder/ico_2.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="3" <% =s3 %>><img src="bilder/ico_3.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="4" <% =s4 %>><img src="bilder/ico_4.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="5" <% =s5 %>><img src="bilder/ico_5.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="6" <% =s6 %>><img src="bilder/ico_6.gif" width="15" height="15" align="absmiddle">

Funkar inte :birp men går det inte att hämta iconid ur databasen? den spara ju nummret 1 till 6 också blir den rutan bara checked som har samma nummer?

Jaha, jag trodde du menade vid en ompostning av formuläret. Jo, det går väl att hämta ur databasen.

lIconId = CLng(recset("IconId"))

men var ska jag sätta det? det är ju 6 olika input boxar...

<%
[b]lIconId = CLng(recset("IconId"))[/b]
select case lIconId
case 1
  s1 = "selected"
case 2
  s2 = "selected"
case 3
  s3 = "selected"
case 4
  s4 = "selected"
case 5
  s5 = "selected"
case 6
  s6 = "selected"
end select
%>
	<input name="iconid" type="radio" value="1" <% =s1 %>><img src="bilder/ico_1.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="2" <% =s2 %>><img src="bilder/ico_2.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="3" <% =s3 %>><img src="bilder/ico_3.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="4" <% =s4 %>><img src="bilder/ico_4.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="5" <% =s5 %>><img src="bilder/ico_5.gif" width="15" height="15" align="absmiddle">
	<input name="iconid" type="radio" value="6" <% =s6 %>><img src="bilder/ico_6.gif" width="15" height="15" align="absmiddle">

det funkade lite bättre när man skrev Checked istället för selected OveRRide :birp men nu funkar det! tackar! fast jag har ingen aning om vad koden nedanunder egentligen betyder, care to explain?

<%
lIconId = CLng(recset("IconId"))
select case lIconId
case 1
  s1 = "checked"
case 2
  s2 = "checked"
case 3
  s3 = "checked"
case 4
  s4 = "checked"
case 5
  s5 = "checked"
case 6
  s6 = "checked"
end select
%>

Argh. Det var ju en fetmiss. :D :r

Select Case är ungefär som en If.. Else If.. End if-sats, men med lite mindre grötig syntax. Alltså; Select Case dinVariabel, bestämmer vilket värde som skall jämföras och sedan kollar man bara vilket som stämmer med Case Värde.

Det kan vara värt att notera att Select Case-satser inte stödjer några andra logiska jämförelser än likamed ( = ), alltså; du kan inte skriva syntaxer såsom t.ex. Case > 1 eller Case <> 1.

okej tack, då förstår jag lite bättre iaf, nu är det såhär att jag har 4 serier med radioknappar på samma sida och jag försökte översätta din kod så jag kunde använda den på alla men misslyckades:

Type mismatch: 'CLng'

Koden jag gjorde är:

<%
lTil = CLng(recset("Til"))
select case Til
case 1
  s1 = "checked"
case 2
  s2 = "checked"
case 3
  s3 = "checked"
end select
%>

	<input name="til" type="radio" value="Pelle" <% =r1 %>><b>Pelle</b>
	<input name="til" type="radio" value="Anders" <% =r2 %>><b>Anders</b>
	<input name="til" type="radio" value="Peter" <% =r3 %>><b>Peter</b>

Jag förstår ju att det är fel att ha med det 2 ggr men jag vet inte hur det ska ersättas, hur gör jag?

Vad innehåller kolumnen 'Til'? Text, tal, datum? CLng() funkar ju bara på tal. ;)

Om Til innehåller namnen:

<%
Til = recset("Til") 
select case Til
case "Pelle"
  r1 = "checked"
case "Anders"
  r2 = "checked"
case "Peter"
  r3 = "checked"
end select
%>

	<input name="til" type="radio" value="Pelle" <% =r1 %>><b>Pelle</b>
	<input name="til" type="radio" value="Anders" <% =r2 %>><b>Anders</b>
	<input name="til" type="radio" value="Peter" <% =r3 %>><b>Peter</b>