Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 validar radiobutton
 Foro Bloqueado  Tema Bloqueado


Autor Temas
holi63
Starting Member

España
24 Posts
Mensajes - 28 Aug 2006 :  09:18:45  Ver Perfil  Enviar Email
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, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>


holi63
Starting Member

España
24 Posts
Posted - 28 Aug 2006 :  10:37:01  Ver perfil  Enviar e-mail
disculpad es un checkbox, no un radiobutton

Inicio Pagina

holi63
Starting Member

España
24 Posts
Posted - 29 Aug 2006 :  09:50:32  Ver perfil  Enviar e-mail
Gracias,

Ya he encontrado la solucion.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar