Hej För att markera första: Det skall vara ordet "checked" för att få en radiobutton markerad, i nedanstående är Kategori 1 markeradMarkera första "radioknappen"
Hur får jag den första "radioknappen" att bli markerad när sidan laddas?
Radioknapparna radas upp såhär:
<% Do While Not RecSet.EOF %>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= RecSet("SortId") %>"</td>
<td width="80%"><font size="2" face="verdana, arial"><% =RecSet("Kategori") %></td>
<% RecSet.MoveNext
Loop %>
/GöranSv: Markera första "radioknappen"
<code>
<%
Dim fldSortId
Dim fldKategori
If RecSet.EOF Then
Response.Write "No records"
Else
Set fldSortId = RecSet("SortId")
Set fldKategori = RecSet("Kategori")
%>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= fldSortId %>" selected></td>
<td width="80%"><font size="2" face="verdana, arial"><% =fldKategori %></td>
<%
RecSet.MoveNext
Do Until RecSet.EOF
%>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= fldSortId %>"></td>
<td width="80%"><font size="2" face="verdana, arial"><% =fldKategori %></td>
<%
RecSet.MoveNext
Loop
%>
</code>
För att markera vald:
<code>
<%
Dim SelectedItem
SelectedItem = Request.Form("x")
Set fldSortId = RecSet("SortId")
Set fldKategori = RecSet("Kategori")
Do Until RecSet.EOF
If SelectedItem = fldSortId Then
%>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= fldSortId %>" selected></td>
<td width="80%"><font size="2" face="verdana, arial"><% =fldKategori %></td>
<%
RecSet.MoveNext
Exit For
Else
%>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= fldSortId %>"></td>
<td width="80%"><font size="2" face="verdana, arial"><% =fldKategori %></td>
<%
End If
RecSet.MoveNext
Loop
Do Until RecSet.EOF
%>
<td width="20%"><font size="2" face="verdana, arial"><input type="radio" name="x" value="<%= fldSortId %>"></td>
<td width="80%"><font size="2" face="verdana, arial"><% =fldKategori %></td>
<%
RecSet.MoveNext
Loop
%>
</code>Sv: Markera första "radioknappen"
<code>
<td width="20%">
<input type="radio" name="x" value="1" checked>
</td>
<td width="80%">Kategori 1</td>
</tr>
<tr>
<td width="20%">
<input type="radio" name="x" value="2" >
</td>
<td width="80%">Kategori 2</td>
</tr>
</code>