ASP - grabar radiobutton

Buenas,

Tengo una duda y no se como hacerlo, tengo un radiobutton en un formulario, se validar y grabar un campo de texto, pero nunca he tenido que programar para que me grabe un radiobutton o un optionbutton, os adjunto el codigo que he hecho, que me funciona.

Me ayudarias a encontrar la solucion, supongo que es sencilla,

<%
IdMensaje = Request.QueryString("IdMensaje")
Usuari = Trim(Request.Form("Usuari"))
email = Trim(Request.Form("email"))
Ext = Trim(Request.Form("Ext"))
Missatge = Request.Form("Missatge")
GFH = Trim(Request.Form("GFH"))



If Usuari = "" OR email = "" OR Missatge = "" then
Response.Write "<BR><BR>Hi han errors en el formulari o mancan dades."
Response.Write "<BR>Pulsa ENDARRERA/ATRAS i completa les dades correctament"
ElseIf InStr(email, "@") = 0 OR InStr(email,".") = 0 OR Len(email) < 5 then
Response.Write "<BR><BR>Hi han errors en el formulari o mancan dades."
Response.Write "<BR>Pulsa ENDARRERA/ATRAS i completa les dades correctamente"
Else

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./comanda.mdb")

Missatge = Replace (Missatge, "'", "''")
If IdMensaje = "" then
oConn.Execute "INSERT INTO discusion (Usuari, email, GFH, Missatge, Ext, SAC, fecha) VALUES ('"&Usuari&"', '"&email&"', '"&GFH&"', '"&Missatge&"', '"&Ext&"', '"&SAC&"', '"& Now()&"')"
'Si es una respuesta a una pregunta...
Else
oConn.Execute "INSERT INTO discusion (Usuari, email, GFH, Missatge, Ext, SAC, fecha, IdCabeza) VALUES ('"&Usuari&"', '"&email&"', '"&GFH&"', '"&Missatge&"', '"&Ext&"', '"&SAC&"', '"& Now()&"', "&IdMensaje&")"
Set RS_Resp = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT respuestas FROM discusion WHERE IdMensaje="&IdMensaje&""
RS_Resp.Open sql, oConn, 2 ,2
oConn.Execute "UPDATE discusion SET Respuestas=("&RS_Resp("Respuestas")+1&") WHERE IdMensaje="&IdMensaje&" "
RS_Resp.Close
Set RS_Resp = Nothing
End If%>
<BR><BR><B>Moltes Gràcies, <%=Usuari%>,<BR>
La seva comanda s'ha gravat correctament <FONT COLOR="#B5BBCA"><%= GFH %></FONT> amb el texte: </B><BR><BR>
<P><I><%=AcomodarTXT(Missatge)%></I></P><BR><BR>
<A HREF="aplicacio.htm"><B><FONT FACE="Arial" SIZE="2">Tornar</FONT></B></A>
<%
oConn.Close
Set oConn = nothing
End If

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>

Los Radios t devuelven 1(Activado) o 0(desactivado) para grabarlos simplement recoge los datos como cualquier otro campo

opt1=request("option1")

y el valor del opt1 es q grabas.

Ahora si en base a ese dato(activado o desactivado) deseas hacer algo tiene q preguntar.

if opt1=1 then
'haces tu rutina
else
'haces otra cosa.
end if

Espeto t sirva.

Hasta Pronto