Dynamisk Radio

Jeg vil gerne gemme værdien fra radio knappen i en database. Hvilket jeg ikke kan få til at virke. I øjeblikket køre side i sig selv.

Er der nogen der har styr på dynamisk radio knapper ??

Stig

----------------- mit script ----------------------

<html>
<head>
    <TITLE></TITLE>
</head>
<body bgcolor="Silver">
<!--#INCLUDE FILE="ADOVBS.INC" -->
<!--#include file="script/conn.asp"-->
<%

sqltemp = "SELECT * FROM tblQuestion Where Ark = 1"

mypage=request("whichpage")
If  mypage="" then
  mypage=1
end if
mypagesize=request("pagesize")
If mypagesize="" then
  mypagesize=1
end if
mySQL=request("SQLquery")
IF  mySQL="" THEN
  mySQL=SQLtemp
END IF

set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation=aduseclient
rstemp.cachesize=5
rstemp.open mySQL,Conn
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1

DO  UNTIL rstemp.eof OR howmanyrecs>=maxrecs

response.write "<table border='0'><tr valign='top'>"
response.write "<td height='80'><h2>"& UCase(rstemp("question")) &"</h2></td></tr>"
response.write "</table>"
response.write "<table><tr><td><table>"

    sql = "select * from tblAnswer where question = " & rstemp("id")
    set rs = conn.execute(sql)
    do while not rs.eof or rs.bof
    response.write "<tr><td><input type='Radio' name='n' value='"& rs("point")&"'></td><td>"& UCase(rs("answer"))&"</td></tr>"
    rs.movenext
    Loop
  response.write "</table>"

    rstemp.movenext
    howmanyrecs=howmanyrecs+1
LOOP
response.write "</table>"

pad=""
scriptname=request.servervariables("script_name")
mcounter = mypage + 1
response.write "<table><tr><td>Side "& mypage &" af "& maxpages &"</td></tr></table>"
rstemp.close
set rstemp=nothing

if (mypage mod 10) = 0 then
  counterstart = mypage - 9
else
  counterstart = mypage - (mypage mod 10) + 1
end if

counterend = counterstart + 9
if counterend > maxpages then counterend = maxpages
if mypage + 1 > maxpages then
response.write "<form method='post' action='xxx.asp'>"
else
response.write "<form method='post' action='" & scriptname & "?whichpage=" & mcounter & "&pagesize=" & mypagesize & "&sqlQuery=" & server.URLencode(mySQL) & "'>"
end if

response.write "<table border='0'><tr><td>"
response.write "<input type='submit' name='vidre' value='Næste'></form>"
response.write "</td></tr></table>"
%>
</body>
</html>