Manter valores ao dar insert

[marvazoler 0]

Olá galera beleza?

 

Tenho está situação:

 

Digamos que o usuários está preenchendo os campos, por exmplo:

Nome :

Idade :

telefone:

email :

 

Digamos que ele queira gravar este cadastro com outros emails de contatos

mas ele não quer que quando cadastrar os campos voltem vazios, ou seja

para ele não ter que digita tudo novamente, ou seja, nome, idade telefone etc...

 

Como eu faço para manter isso?

 

Desde já agradeço

[Mário Monteiro 179]

armazena em session e preenche

[marvazoler 0]

Amigão deixa te falar por um caso esta session teria que está no onchange do campo?

por exemplo:

 

<input type= "txt" name="txtnome" value="<%=oRs("Nome")%>" onchange="<%session("nome")%>">

 

Seria isso?

[Mário Monteiro 179]

nao existe onchange em campo text

 

seria no value mesmo

[marvazoler 0]

Com o script daria certo em combobox?

[Mário Monteiro 179]

mas nao é assim que deixa marcado tambem

 

mostre como esta tentando fazer que voce postou aqui um text e que usar change

 

ta confuso demais

[marvazoler 0]

Veja isso!

 

<select name="linha" onChange="<%response.Write session("linha")%>">
 <%			  
'Dim oConn 
Dim oRs
Dim localbd1
Dim bd1
'Dim filePath
call abrir_conexao_
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs = bd1.Execute("select * FROM LINHA ORDER BY LINHA")
Do while not oRs.eof
%>
													<option value="<% Response.Write oRs("CODIGO")%>"> 
													<% Response.Write oRs("LINHA")%>
													</option>
													<%oRs.movenext%>
													<%loop%>
												  </select>

[Mário Monteiro 179]

Se o valor esta mesmo na session será algo assim

 

Aqui neste codigo irei considerar que voce gravou no banco o CODIGO o que é mais logico ja que é o que esta no value

 

<select name="linha">
<%
'Dim oConn
Dim oRs
Dim localbd1
Dim bd1
'Dim filePath
call abrir_conexao_
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs = bd1.Execute("select * FROM LINHA ORDER BY LINHA")
Do while not oRs.eof
%>
<option value="<% Response.Write oRs("CODIGO")%>" <%IF oRs("CODIGO") = session("linha") THEN%>selected<%END IF%>>
<% Response.Write oRs("LINHA")%>
</option>
<%oRs.movenext%>
<%loop%>
</select>

[Jow Xavier 0]

Bom dia, não sei entendi bem o tópico ... você quer q após o cadastro os campos voltem preenchidos, ou seja os campos nome, idade telefone ... e o campo email volte sem preenchimento, para assim o usuário informar outro ??

[Mário Monteiro 179]

seria isso mesmo jow

 

mas acho que ele ta mais preocupado com este combo ai

[Jow Xavier 0]

OK é conforme o Mário disse você deverá conter em uma session os mesmos dados do bd ...

 

e conforme o script q ele postou como possivel solução ... axo q isso atende ...

[marvazoler 0]

Olá galera beleza?

 

bom, fiz teste para que a cada insert o meu combo mantenha o valor anterior

 

mas nada, alguem pode me dar uma luz.

[Mário Monteiro 179]

como esta agora?

 

onde voce armazena a session porque se nao fez isso ainda nao adianta

[marvazoler 0]

Olha como estou fazendo

 

Tenho a página com os campos

 

tenho a página com o script de insert

 

na página de insert eu crio a session

varlinha = request.Form("linha")

session("linha")= varlinha

 

agora que não sei se tá errado

 

quando da o insert eu redireciono para a página

com os campos, ai que eu digo:

 

<select name="linha" onChange="<%response.white session("varlinha")%>">
<%			  
'Dim oConn 
Dim oRs
Dim localbd1
Dim bd1
'Dim filePath
call abrir_conexao_
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs = bd1.Execute("select * FROM LINHA ORDER BY LINHA")
Do while not oRs.eof
%>
													<option value="<% Response.Write oRs("CODIGO")%>"> 
													<% Response.Write oRs("LINHA")%>
													</option>
													<%oRs.movenext%>
													<%loop%>
												  </select>

iai o que pode está errado?

[Mário Monteiro 179]

voce nao fez nada do que te falei no post anterior

 

basicamente é so trocar este seu pelo outro que ta no post #8 deste topico