Ir para conteúdo

POWERED BY:

Arquivado

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

3rsolutions

Problemas com alteração....

Por , em ASP Clássico

Recommended Posts

3rsolutions    0

3rsolutions
Postado

Estou fazendo uma rotina pra alteração de dados do formulario seguem abaixo a codificação, quando clico para alterar ele simplesmente não recebe no altera.asp os devidos campos... mnt_clientes.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="conexao.asp"--><%	session.LCID = 1057	sql = "Select * from tbl_cli where cli_id=" & session("ID")	rs.open sql, conn	if not rs.eof then%>	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">	<link href="../estilos/estilo.css" rel="stylesheet" type="text/css">	<body>	<table align="center">	  <tr><td>	  <form action="altera.asp?frm=cli&id=<%=rs("CLI_ID")%>" method="POST" enctype="multipart/form-data" name="cliente" id="form">	<fieldset>	<legend><strong>Dados cadastrais </strong></legend>	<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="texto">	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">Cód. de atendimento</td>	    <td width="470" height="20" class="texto"><input name="txt_cod" type="text" class="cx_texto" id="cadastro[rg]22" value="<%=rs("CLI_ID")%>" <%if session("ID") <> 1 then%>disabled   onKeyPress="pesquisar(form.cliente.id.value)" <%end if%> size="5" maxlength="4"> 	      Situação 	        <select name="cbo_situa" class="cx_texto" id="cbo_situa" <%if session("ID") <> 1 then%>disabled <%end if%>>			  <option value=<%=rs("CLI_SITUA")%> selected><%=rs("CLI_SITUA")%></option> 	          <option value="ATIVO">ATIVO</option>	          <option value="INATIVO">INATIVO</option>	          <option value="SUSPENSO">SUSPENSO</option>              </select> 	        Dta.Cadastro 	        <input name="txt_dt_cad" type="text" class="cx_texto" id="txt_dt_cad" value="<%=rs("CLI_DT_CAD")%>" disabled size="12" maxlength="10"> 	        Tipo 			 <select name="cbo_tipo" class="cx_texto" id="cbo_tipo" <%if session("ID") <> 1 then%>disabled <%end if%>>				  <option value=<%=rs("CLI_TIPO")%> selected><%=rs("CLI_TIPO")%></option> 	    	      <option value="EVENTUAL">EVENTUAL</option>	        	  <option value="CONTRATO">CONTRATO</option>	          </select>  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">Cliente/Nome fantasia</td>	    <td width="470" height="20" class="texto"><input name="txt_cli_fantasia" type="text" class="cx_texto" id="txt_cli_fantasia" value="<%=rs("CLI_FANTASIA")%>" size="50">    </td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto"> CNPJ/CPF: </td>	    <td width="470" height="20"><input name="txt_cnpj" type="text" class="cx_texto" id="txt_cnpj" value="<%=rs("CLI_CNPJ")%>" size="19" maxlength="15">	      Inscr. Estadual/R.G.	        <input name="txt_rg" type="text" class="cx_texto" id="cadastro[rg]3" value="<%=rs("CLI_IE")%>" size="14" maxlength="10">       	      Inscr. Mun. 	      <input name="txt_insc" type="text" class="cx_texto" id="cadastro[rg]4" value="<%=rs("CLI_IM")%>" size="10" maxlength="10"></td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">Razão Social </td>	    <td width="470" height="20"><input name="txt_razao" type="text" class="cx_texto" id="txt_razao" value="<%=rs("CLI_RAZAO")%>" size="50">      </td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">Ramo de Atividade </td>	    <td width="470" height="20" class="texto">		<select name="cbo_atividade" class="cx_texto" id="select2">		<option value selected><%=rs("CLI_ATIV")%></option> 	    </select>	</td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto"> Responsável:</td>	    <td width="470" height="20" class="texto"><input name="txt_respons" type="text" class="cx_texto" id="txt_respons" value="<%=rs("CLI_RESPONS")%>" size="35"></td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">CEP:  </td>	    <td width="470" height="20" class="texto"><input name="txt_cep" type="text" class="cx_texto" id="txt_cep" value="<%=rs("CLI_CEP")%>" size="14"> </td>	  </tr>		<TR>		    <td width="130" height="20" class="texto">Endereço:  </td>			<TD width="470">	          <select name="txt_logra" class="cx_texto" id="txt_logra">		        <option value=<%=rs("CLI_LOGRA")%> selected><%=rs("CLI_LOGRA")%></option> 	            <option value="R.">R.</option>	            <option value="Av.">Av.</option>	            <option value="Tr.">Tr.</option>	            <option value="Al.">Al.</option>	          </select>	          <input name="txt_ende" type="text" class="cx_texto" id="txt_ende" value="<%=rs("CLI_ENDE")%>" size="35">	Nº<input name="txt_num" type="text" class="cx_texto" id="txt_num" value="<%=rs("CLI_NUM")%>" size="6">	Compl.	<input name="txt_compl" type="text" class="cx_texto" id="cadastro[compl]2" value="<%=rs("CLI_COMPL")%>" size="10"></TD>		</TR>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto"> Bairro:</td>	    <td width="470" height="20" class="texto"><input name="txt_bair" type="text" class="cx_texto" id="txt_bair" value="<%=rs("CLI_BAIRRO")%>" size="20">	      Cidade:	        <input name="txt_cidade" type="text" class="cx_texto" id="txt_cidade" value="<%=rs("CLI_CIDADE")%>" size="24">	  UF:	      <select name="cbo_uf" class="cx_texto" id="cbo_uf">	        <option value=<%=rs("CLI_UF")%> selected><%=rs("CLI_UF")%></option>	        <option value="AC">AC</option>	        <option value="AL">AL</option>	        <option value="AM">AM</option>	        <option value="AP">AP</option>	        <option value="BA">BA</option>	        <option value="CE">CE</option>	        <option value="DF">DF</option>	        <option value="ES">ES</option>	        <option value="GO">GO</option>	        <option value="MA">MA</option>	        <option value="MG">MG</option>	        <option value="MS">MS</option>	        <option value="MT">MT</option>	        <option value="PA">PA</option>	        <option value="PB">PB</option>	        <option value="PE">PE</option>	        <option value="PI">PI</option>	        <option value="PR">PR</option>	        <option value="RJ">RJ</option>	        <option value="RN">RN</option>	        <option value="RO">RO</option>	        <option value="RR">RR</option>	        <option value="RS">RS</option>	        <option value="SC">SC</option>	        <option value="SE">SE</option>	        <option value="SP">SP</option>	        <option value="TO">TO</option>	    </select></td>	  </tr>	  <tr align="left" valign="top">	    <td width="130" height="20" class="texto">Telefone </td>	    <td width="470" height="20"><input name="txt_tel_ddd" type="text" class="cx_texto" id="txt_tel_ddd" value="<%=rs("CLI_TEL_RES_DDD")%>" size="3" maxlength="2">	        <input name="txt_tel" type="text" class="cx_texto" id="txt_tel" value="<%=rs("CLI_TEL_RES")%>" size="13"> 	        Comercial 	        <input name="txt_tel_com_ddd" type="text" class="cx_texto" id="txt_tel_com_ddd" value="<%=rs("CLI_TEL_COM_DDD")%>" size="3" maxlength="2">	        <input name="txt_tel_com" type="text" class="cx_texto" id="txt_tel_com" value="<%=rs("CLI_TEL_COM")%>" size="13"> 	        Celular 	        <input name="txt_tel_cel_ddd" type="text" class="cx_texto" id="txt_tel_cel_ddd" value="<%=rs("CLI_TEL_CEL_DDD")%>" size="3" maxlength="2">	        <input name="txt_tel_cel" type="text" class="cx_texto" id="txt_tel_cel" value="<%=rs("CLI_TEL_CEL")%>" size="13"></td>	  </tr>	  <tr align="left" valign="top" class="texto">	    <td width="130" height="20" class="texto">E-mail Principal</td>	    <td width="470" height="20" class="texto"><input name="txt_email_princ" type="text" class="cx_texto" id="txt_email_princ" value="<%=rs("CLI_EMAIL_PRI")%>" size="35"></td>	  </tr>	  <tr align="left" valign="top" class="texto">	    <td width="130" height="20" class="texto">E-Mail Alternativo </td>	    <td width="470" height="20" class="texto">      <input name="txt_email_alt" type="text" class="cx_texto" id="txt_email_alt" value="<%=rs("CLI_EMAIL_SEC")%>" size="35"></td>	  </tr>	  <tr align="left" valign="top" class="texto">	    <td width="130" height="20" class="texto">Login</td>	    <td width="470" height="20" class="texto"><input name="txt_login" type="text" class="cx_texto" id="txt_login" value="<%=rs("CLI_LOGIN")%>" size="17" maxlength="15"></td>	  </tr>	  <tr align="left" valign="top" class="texto">	    <td width="130" height="20" class="texto">Senha</td>	    <td width="470" height="20" class="texto"><input name="txt_senha" type="password" class="cx_texto" id="txt_senha" value="<%=rs("CLI_SENHA")%>" size="17" maxlength="15"></td>	  </tr>	  <tr align="center" valign="middle" class="texto">	    <td height="35" colspan="2" class="texto">		<table width="409" border="0" align="center" cellpadding="0" cellspacing="0">			<tr align="center" valign="middle">				<td width="131"><%if session("ID") = 1 then%><input name="op" type="submit" class="btn1" value="| Incluir >>"><%end if%></td>				<td width="146"><input name="op" type="submit" class="btn1" value="| >> Atualizar << |"></td>				<td width="132"><%if session("ID") = 1 then%><input name="op3" type="submit" class="btn1" value="| Excluir>>"><%end if%></td>			</tr>		</table>	      </td>	    </tr>	</table>	</fieldset></form></td></tr></table><%end if%>

altera.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="conexao.asp"--><%	session.LCID = 1057	if Request.QueryString("frm")="cli" then		' Procedimento de alteração de cadastro	de clientes		sql = "Update TBL_CLI set CLI_SITUA='"&Request.Form("cbo_situa")&"',CLI_DT_CAD='"&FormatDateTime(Request("txt_dt_cad"),2) _		&"',CLI_TIPO='"&Request.Form("cbo_tipo")&"',CLI_FANTASIA='"&Request.Form("txt_cli_fantasia") _		&"',CLI_CNPJ='"&Request.Form("txt_cnpj")&"',CLI_IE='"&Request.Form("txt_rg")&"',CLI_IM='"&Request.Form("txt_insc") _ 		&"',CLI_RAZAo='"&Request.Form("txt_razao")&"',CLI_ATIV='"&Request.Form("cbo_atividade") _		&"',CLI_RESPONS='"&Request.Form("txt_respons")&"',CLI_CEP='"&Request.Form("txt_cep")&"',CLI_LOGRA='"&Request.Form("txt_logra") _		&"',CLI_ENDE='"&Request.Form("txt_ende")&"',CLI_NUM='"&Request.Form("txt_num")&"',CLI_COMPL='"&Request.Form("txt_compl") _		&"',CLI_BAIRRO='"&Request.Form("txt_bair")&"',CLI_CIDADE='"&Request.Form("txt_cidade")&"',CLI_UF='"&Request.Form("cbo_uf") _		&"',CLI_TEL_RES_DDD='"&Request.Form("txt_tel_ddd")&"',CLI_TEL_RES='"&Request.Form("txt_tel") _		&"',CLI_TEL_COM_DDD='"&Request.Form("txt_tel_com_ddd")&"',CLI_TEL_COM='"&Request.Form("txt_tel_com") _		&"',CLI_TEL_CEL_DDD='"&Request.Form("txt_tel_cel_ddd")&"',CLI_TEL_CEL='"&Request.Form("txt_tel_cel") _		&"',CLI_EMAIL_PRI='"&Request.Form("txt_email_princ")&"',CLI_EMAIL_SEC='"&Request.Form("txt_email_alt") _		&"',CLI_LOGIN='"&Request.Form("txt_login")&"',CLI_SENHA='"&Request.Form("txt_senha")&"' where CLI_ID ='"&request.QueryString("id")&"'"		rs.open sql, conn'		response.Write "<script>alert('Registro Alterado com Sucesso !');</script>"		response.Write sql'		response.redirect ("mnt_cliente.asp")	end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Camarada<

 

execute os comando abaixo e poste o resultado:

 

response.write request.from & "<br><br>"response.write request.QueryString & "<br><br>"

Para podermo analisar o que esta sendo trafegado entre as paginas.

 

Mas não se preocupe não que resolveremos seu problema.

 

t+

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tenho quase 99,9% de certeza de que quando você utiliza enctype="multipart/form-data" ele "elimina" o request.form e o request.querystring. hehe

 

Tira isso, você nem tá fazendo upload.

 

Só não digo 100% pq nunca testei. rs

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Tenho quase 99,9% de certeza de que quando você utiliza enctype="multipart/form-data" ele "elimina" o request.form e o request.querystring. hehe

 

Tira isso, você nem tá fazendo upload.

 

Só não digo 100% pq nunca testei. rs

Tb achie isso hargon. Mas não tenho certeza tb.

 

t+

Compartilhar este post

Link para o post
Compartilhar em outros sites

3rsolutions    0

3rsolutions
Postado

meus caros... hargon e jothaz por gentileza façam um jogo da sena e me enviem oks ? dou 1% do valor que eu ganhar.... rs realmente o problema era este, eu havia copiado e acabei nao alterando, obrigado, são coisas que acontecem quando se tem muito a fazer em poucotempo, detalhes passam despercebidos.... rs

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