Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

PRWEB

Gravar campo radio

Por , em ASP Clássico

Recommended Posts

PRWEB    0

PRWEB
Postado

Tudo bem?

 

Como que faço para gravar um campo radio e depois que quero mudar de opção ele sair da opção que já tava selecionada e ficar na seleção nova?

 

Tenho esses campos:

 

<%
ato = campos_cheque("ato")
dd30 = campos_cheque("dd30")
dd60 = campos_cheque("dd60")
dd90 = campos_cheque("dd90")
dd120 = campos_cheque("dd120")
%>

      <input name="opt1" type="radio" value="x" <%if ato = "x" then response.Write("checked")%> />
      </span></label>
    </span></td>
    <td width="7%" bgcolor="#003366"><span class="style155 style35"> 30:
      <label></label>
      <label><span class="style3">
      <input name="opt2" type="radio" value="x" <%if dd30 = "x" then response.Write("checked")%> />
      </span></label>
    </span></td>
    <td width="7%" bgcolor="#003366"><span class="style155 style35">  60:
      <label></label>
      <label><span class="style3">
      <input name="opt3" type="radio" value="x" <%if dd60 = "x" then response.Write("checked")%> />
      </span></label>
    </span></td>
    <td width="7%" bgcolor="#003366"><span class="style155 style35"> 90:
      <label></label>
      <label><span class="style3">
      <input name="opt4" type="radio" value="x" <%if dd90 = "x" then response.Write("checked")%> />
      </span></label>
    </span></td>
    <td width="8%" bgcolor="#003366"><span class="style155 style35"> 120:
      <label><span class="style3">
      <input name="opt5" type="radio" value="x" <%if dd120 = "x" then response.Write("checked")%> />
Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

naun entendi muito bem sua duvida,todos os inputs no formulário devem ter seu nome único que o identifica para uso do script ASP. Os Radio Buttons são uma excessão. Entre as opções dos Radio Buttons, somente um valor será passado para o script , isto implica que todas as opções tenham o mesmo nome.

 

<html><head>
<TITLE>formRadio.asp</TITLE>
</head><body bgcolor="#FFFFFF">
<form action="FormRadiorespond.asp" method="post">
<p>Radio Buttons </p><br><p>Exemplo 1</p>
<p>Qual regional você gostaria de visitar?</p> 
<input TYPE="radio" NAME="Cidade" VALUE="SSA">Salvador
<input TYPE="radio" NAME="Cidade" VALUE="BSB">Brasilia
<input TYPE="radio" NAME="Cidade" VALUE="SPA" CHECKED>São Paulo
 <br><br><input type="submit"><input type="reset">
 </form><hr>
 </body></html>
resposta se parecerá com:
<html><head>
<TITLE>formradiorespond.asp</TITLE>
</head><body bgcolor="#FFFFFF">
<%minhaCidade = request.form("Cidade")
Select Case ucase(MinhaCidade)
case "SSA"
response.write "Salvador te espera no Carnaval"
case "BSB"
response.write "Brasilia te aguarda para o Impeachment do FHC"
 case "SPA"
 response.write "São Paulo é a cidade mais poluída, mas pode vir assim mesmo."
 End Select%>
 </body>
 </html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRWEB    0

PRWEB
Postado

Assim, eu tenho 5 radios: 30, 60, 90, 120 dias, só que quando eu clico exemplo: 60 dias e gravo ele fica marcado lá, beleza, só que depois resolvo mudar para 120 dias então eu queria ver se tem possibilidade de desmarcar 60 dias e ficar gravado no 120 dias.

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Radio Buttons, somente um valor será passado , pq naun faz em dropdown

e assim k o user marcar outro button desmarca o anterior

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma procurada no forum, k existem varios exemplos, com bd,txt,xml etc

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo,este script faz o preenchemento de um combo e pega o valor do combo preenchido pra fazer o outro combo, tipo:

 

um combo pais e outro combo estado

 

as tabelas saun:

 

pais- com os campos

cod_pais - chave primária

nome

 

estado -c om os campos

cod_pais - chave estrangeira

cod_estado

nome

 

as tabelas possuem relacionamento de um para muitos

 

<% Option Explicit 

'declaro as var 
dim var1,var2,var3,....., etc 
'recupero as var 
varpais=request.querystring("pais") 
'crioa a conexao 
%> 

<!--# include file="conexao/conexao.asp"--> 

<% 
'abro a conexao 
Call abre_conexao 
'crio o rs 
set rspais=server.createobject("ADODB.Recordset") 
'crio a SQL 
SQLpais="SELECT * FROM pais ORDER BY nome" 
rspais.open SQLpais,conexao,1,3 
%> 


'aki vou criar o combo, onde no evento onchange ele irá enviar o value do combo pais para a mesma pag, para eu recuperar o codigo do pais e assim preencher o combo estado. 

<form action="inserirend_action.asp" method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 

<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<% if varpais=rs("pais") then 
response.write("Selecionado") 
end if%> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%> 

'aki crio o combo estado 

<select name="estado"size="1"> 
if request("pais") ="" then%> 
<option value=""> selecione um pais 
<%else 
'crio o SQL estado 
SQLestado="Select * from estado where cod_pais="&varpais&" Order by nome" 
'crio o rsestado 
set rsestado=server.createobject("ADODB.Recordset") 
rsestado.open SQLestado,conexao,1,3 
<%while not rsestado.eof%> 
<option value="<%=rsestado("cod_estado")%>"> 
<%=rs("nome")%> 
</option> 
<%rs.movenext 
wend 
end if%> 
</select> 
<% set rsestado=nothing%> 
<% 'fecho a conexao 
call fecha_conexao%>

COMBOFOLDER

 

<% 
Dim fso, f, f1, fc ,diretorio

diretorio = "c:\inetpub\wwwroot"      'Aqui o diretório principal 
Set fso = CreateObject("Scripting.FileSystemObject") 

   IF fso.FolderExists(diretorio) Then 
      Set f = fso.GetFolder(diretorio) 
      '----------------------------------------------- 
      ' lista os subdiretórios do diretório principal 
      '----------------------------------------------- 
      response.write "<select><br>" 
      For Each Item in f.Subfolders 
         response.write "<option value="& item.Name &">"& item.Name &"</option><br>" 
      Next 
      response.write "</select>" 
   End IF 

%>

 

com FSO APARTIR DE UM ARQUIVO TEXTO

 

<FORM NAME=MYFORM>
    <SELECT NAME=LBTEST>
    <%
    'Declare variables
    dim fso, ofile, ldata
    'Open the text data file
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set fsofile = fso.OpenTextFile("c:\texo.txt", 1)
    'Read the file contents line by line and
    '     add to listbox
    Do While not fsofile.AtEndOfStream 
    ldata = fsofile.ReadLine
    Response.Write "<OPTION VALUE=""" & ldata & """>" & ldata
    Loop
    oFile.Close
    set ofile=nothing
    set fso=nothing
    %>
    </SELECT>
    </FORM>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito