<script language=javascript>
function radioselect(rid)
{
alert(document.f1.rad1[rid].value);
}
</script>
<body>
<form name=f1>
<table>
<%dim con,rs,i,level1
dim radval
radval=0
set con=server.CreateObject ("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
'set rs1=server.CreateObject("adodb.recordset")
con.Open "Driver=Sql Server;Server=Astrodev;uid=sa;pwd=sa;Database=Spcf "
'Response.Write con
rs.Open "Select * from links_test where parentlink=0",con,3,3
'Response.Write rs.RecordCount
i=1
if not rs.EOF then
'while not rs.EOF
'parentid=rs(5)
'Response.Write rs(1) & "<br>"
level1=0
display rs("LinkNAME"),rs("LinkID")
rs.MoveNext
level1=0
'wend
else
i=0
end if
Response.Write "<table border=0><tr>"
function display(parentname,parentid)
Dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "Select * from links_test where parentlink=" & parentid & " order by sortorder",con,3,3
'level=1
while not rs1.EOF
%>
<tr>
<tr>
<td></td>
<td>
<table>
<tr>
<td><input type=radio name=r1 align=right></td>
<td align=left><%=rs1("linkname")%></td>
</tr>
<td><%display rs1("linkname"),rs1("linkid")%></td>
</table>
</td>
</tr>
</tr>
<% rs1.MoveNext
wend
set rs1=nothing
end function
Response.Write "</table>"
%>
</table>
</form>
</body>
|