Passar valores

[majaque 0]

Bom dia, galera.

 

Tenho um formulario de pesquisa onde procurar meu clientes cadastrados, coloquei um botão para alterar, onde gostaria de passar as informações do formulario de pesquisa para um formulario identico ao cadastro, como faço para passar essa informações e como faço para trabalhar essas informações neste outro formulario...

Espero que vcs me ajudem, pois nunca programei nada em ASP

 

Formulario de Pesquisa:

<%Dim strURL	 			 Dim cnnSearch Dim rstSearch  Dim strDBPath  Dim strSQL	Dim strSearch  inicio = Timer'#Função que tira todos os acentos das palavrasfunction TiraAcento(StrAcento) for i = 1 to len(StrAcento)   Letra = mid(StrAcento, i, 1)  Select Case Letra   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"   Letra = "A"   Case "é","É","ê","Ê","Ë","ë","È","è"   Letra = "E"   Case "í","Í","ï","Ï","Ì","ì"   Letra = "I"   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"   Letra = "O"   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"   Letra = "U"   Case "ç","Ç"   Letra = "C"   Case "ñ"   Letra = "N"  End Select  texto = texto & Letra next TiraAcento = textoend function strURL = Request.ServerVariables("URL")strSearch = Request.QueryString("search")%><title>Procura Fornecedores</title><div id="Layer1" style="position:absolute; width:1088px; height:120px; z-index:1; left: 5px; top: 4px;">   <div align="left"> 	<div id="Layer5" style="position:absolute; width:38px; height:30px; z-index:3; left: 717px; top: 87px;"> 	  <a href="ListaFornec_FormInclusao.asp"><img name="cadastrars" src="../../Figuras_site_dp/cadastrars.gif" width="35" height="30" border="0" alt="Cadastrar Fornecedor"></a></div>	<img src="../../Figuras_site_dp/cabecalho_FuncoesLab.gif" alt="" name="cabecalho_FuncoesLab" width="914" height="86" border="0" usemap="#cabecalho_FuncoesLabMap"> 	<div id="Layer5" style="position:absolute; width:242px; height:30px; z-index:5; left: 370px; top: 44px;"><font color="#003399" size="5"><strong>Lista 	  de Fornecedores</strong></font></div>	<map name="cabecalho_FuncoesLabMap">	  <area shape="rect" coords="488,9,568,24" href="Lab_Principal.asp">	  <area shape="rect" coords="576,9,716,25" href="fale_administrador.asp">	</map>  </div></div><p> </p><p> </p><!-- Bloqueia o botão direito para evitar cópia --><script language=JavaScript><!--function click() {if (event.button==2| event.button==3 | event.button==4) {alert('Criado por Guilherme Odaguiri - XVHW')}}document.onmousedown=click// --></SCRIPT><!-- abre pop up " tipos de fornecedores" com o clique no link --><script language=JavaScript>function abrir(URL) {   var width = 570;   var height = 320;   var left = 99;   var top = 99;   window.open(URL,'DP', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');}</SCRIPT><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">  <tr> 	<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="2" cellpadding="2">		<tr> 		  <td height="101" bgcolor="#FFFFFF"> <p align="left"><font color=royalblue face=Tahoma size=2><strong><font color="#888888">:: 			  Pesquisa - Digite o nome ou o tipo do Fornecedor::</font></strong></font></p>			<form action="<%= strURL %>" method="get">			  <div align="left"> 				<input name="search" value="<%= strSearch %>" size="20" />				<input name="submit" type="submit" value="Pesquisar" />			  </div>			</form>			<p align="center"> 			  <%If strSearch <> "" Then	strDBPath = Server.MapPath("Lab_xp.mdb")Const adUseClient = 3		Set cnnSearch = Server.CreateObject("ADODB.Connection")	cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"cnnSearch.CursorLocation = adUseClientstrSQL = "SELECT nome_fornecedor,tipo_fornecedor,fornecimento,endereco,bairro,cidade,cep,telefone,telefone2,fax,representante,celular,email " _		& "FROM ListaFornecedores_TabelaDados " _		& "WHERE tipo_fornecedor LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _		& "OR nome_fornecedor LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _		& "ORDER BY nome_fornecedor;"	Set rstSearch = cnnSearch.Execute(strSQL)intContador = rstSearch.RecordCount		%>			</p></td>		</tr>	  </table>	  <p align="center"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ 		Foram encontradas <b><%=intContador%></b> ocorrências ] </font> </p>	  <div align="center"> 		<table width="919" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">		  <tr bgcolor="#003399"> 			<th width="77"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Fornecedor</font></strong></div></th>			<th width="28"> 			  <div align="right"><strong><font color=#FFFFFF face=Tahoma size=1>Tipo</font></strong></div></th>			<th width="237"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Endereco</font></strong></div></th>			<th width="37"> 			  <div align="center"><strong><font color=royalblue face=Tahoma size=2><font color="#FFFFFF" size="1">Bairro</font></font></strong></div></th>			<th width="66"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Cidade</font></strong></div></th>			<th width="45"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>CEP</font></strong></div></th>			<th width="125"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Tel1</font></strong></div></th>			<th width="73"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Tel2</font></strong></div></th>			<th width="21"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>FAX</font></strong></div></th>			<th width="38"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Repres.</font></strong></div></th>			<th width="36"> 			  <div align="center"><strong><font color=#FFFFFF face=Tahoma size=1>Celular</font></strong></div></th>			<th width="27"> 			  <div align="center"><strong><font color=royalblue face=Tahoma size=2><font color="#FFFFFF" size="1">Email</font></font></strong></div></th>			<th width="27"> 			  <div align="center"><strong><font color=royalblue></font></strong></div></th>			 </tr>		 <%	Do While Not rstSearch.EOF		%>		  <tr bordercolor="#000000" bgcolor="#E8E8E8"> 			<td height="26"> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome_fornecedor").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("tipo_fornecedor").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("endereco").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("bairro").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("cidade").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("cep").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("telefone").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("telefone2").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("fax").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("representante").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("celular").Value %></font></div></td>			<td> 			  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("email").Value %></font></div></td>			<td><form action="form_alterafornec.asp">			 <div align="center"><font size="1" face="Verdana, Arial,Helvetica,sans-serif">			 <input type="hidden" name="nome" value="<%=rstSearch.Fields("nome_fornecedor")%>"> 			 <input name="submit" type="submit" value="Alterar">			 </font></div></form></td>		  </tr>		  <%		rstSearch.MoveNext	Loop	%>		</table>		<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>		 Sua busca foi processada em 		<%response.write FormatNumber( Timer - inicio, 2 )%>		segundos.</font><br>		<%		rstSearch.Close	Set rstSearch = Nothing	cnnSearch.Close	Set cnnSearch = NothingEnd If%>	  </div></td>  </tr></table><div id="Layer4" style="position:absolute; width:35px; height:25px; z-index:2; left: 765px; top: 92px;">   <a href="java script:abrir('tipos_fornecs.asp');"> <img name="fornecedores" src="../../Figuras_site_dp/fornecedores.gif" width="36" height="29" border="0" alt="Tipos de Fornecedores do Laboratório"></a></div><p> </p>Formulario que irá receber as informações:<html><LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"><head><title>Alterar Cadastro fornecedor</title><body><%On error resume NextDim objConn, stringSQL, strConnection, idid = Request.QueryString("nome_fornecedor")' Conectando com o banco de dados Lab_xp.mdbSet objConn =  Server.CreateObject("ADODB.Connection")Set objRS =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("Lab_xp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"stringSQL = "SELECT * FROM ListaFornecedores_tabeladados WHERE nome_fornecedor = "&idSet objRS = objConn.Execute(stringSQL)%><form method="post" action="ListaFornec_altera.asp" name="form" >  <div align="center">	<center>	  <p> </p>	  <div id="Layer1" style="position:absolute; width:946px; height:113px; z-index:1; left: 4px; top: 0px;"> 		<div align="left"><img src="../../Figuras_site_dp/cabecalho_FuncoesLab.gif" alt="" name="cabecalho_FuncoesLab" width="914" height="86" border="0" usemap="#cabecalho_FuncoesLabMap"> 		  <div id="Layer5" style="position:absolute; width:255px; height:30px; z-index:5; left: 370px; top: 44px;"><font color="#003399" size="5"><strong>Alterar			Fornecedor</strong></font></div>		  <map name="cabecalho_FuncoesLabMap">			<area shape="rect" coords="488,9,568,24" href="Lab_Principal.asp">			<area shape="rect" coords="576,9,716,25" href="fale_administrador.asp">		  </map>		</div>	  </div>	  <p> </p>	  <div id="Layer3" style="position:absolute; width:381px; height:22px; z-index:4; left: 542px; top: 110px;"><font color="#FF0000"><strong><font size="2">Onde 		estou?</font></strong> -</font> <font color="#999999" size="2"><strong>LabNet 		/ Lista de Fornecedor / Alterar Fornecedor</strong></font></div>	  <p> </p>	  <table width="951" height="376" border="0" cellpadding="1" cellspacing="1" bordercolor="#000000" bgcolor="#FFFFFF">		<tr bordercolor="#CCCCCC" bgcolor="#003399"> 		  <td height="10" colspan="2"> 			<div align="center"><font size="2"><b></b></font></div></td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="24" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Tipo 			  Fonecedor</font></div></td>		  <td width="839" bgcolor="#FFFFFF"> <font color="#000000"> <em><strong> 			<font size="2" face="Times New Roman, Times, serif"> 			<select name="Tipo_Fornecedor" id="Tipo_Fornecedor" value="<%=objRS("tipo_fornecedor")%>">			  <option>Selecione o Tipo de Fornecedor</option>			  <option>Artigos para Lab.</option>			  <option>Assistência Técnica</option>			  <option>Consultoria</option>			  <option>Embalagens</option>			  <option>Embalagens e Lacres</option>			  <option>Equipamentos</option>			  <option>Gás</option>			  <option>Informática</option>			  <option>Instrumentos</option>			  <option>Lab Ambientais/Resíduos</option>			  <option>Materiais em platina</option>			  <option>Material Hospitalar</option>			  <option>Motores em Geral</option>			  <option>Moveis para Lab.</option>			  <option>Produtos p/ Lab</option>			  <option>Reagentes</option>			  <option>Refrigeração</option>			  <option>Valvulas e Reguladores</option>			  <option>Vidraria</option>			  <option>Outros</option>			</select>			*</font></strong></em></font></td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="25" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Nome 			  do Fornecedor</font></div></td>		  <td width="839"> <input name="Nome_Fornecedor" type="text" id="Nome_Fornecedor"  value="<%=objRS("nome_fornecedor")%>"size="80">			* </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="26" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Endereço</font></div></td>		  <td width="839"><input name="Endereco" type="text" id="Endereco"  value="<%=objRS("Endereco")%>" size="80">			* </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td height="26" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> <div align="center"><font color="#000000" size="2" face="tahoma">Bairro</font></div></td>		  <td> <input name="Bairro" type="text" id="Bairro"  value="<%=objRS("Bairro")%>"size="50">			*</td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="24" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">CEP</font></div></td>		  <td width="839"> <input name="CEP" type="text" id="CEP"  value="<%=objRS("CEP")%>"size="20">			*</td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="24" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Cidade</font></div></td>		  <td width="839"> <input name="Cidade" type="text" id="Cidade"  value="<%=objRS("Cidade")%>"size="50">			* </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="21" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Telefone</font></div></td>		  <td width="839"> <input name="Telefone" type="text" id="Telefone"  value="<%=objRS("Telefone")%>" size="20">			*</td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="24" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font size="2" face="tahoma" color="#000000">Telefone 			  2 </font></div></td>		  <td width="839"> <font size="2" face="Times New Roman, Times, serif"> 			<input name="Telefone2" type="text" id="Telefone2"  value="<%=objRS("Telefone2")%>"size="20">			</font></td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="25" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Email</font></div></td>		  <td width="839"><input name="Email" type="text" id="Email"  value="<%=objRS("Email")%>"size="50"> 		  </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="25" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Celular</font></div></td>		  <td width="839"><input name="Celular" type="text" id="Celular"  value="<%=objRS("Celular")%>"size="20"> 		  </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="25" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000">Fax</font></div></td>		  <td width="839"><input name="Fax" type="text" id="Fax"  value="<%=objRS("Fax")%>"size="20"> </td>		</tr>		<tr bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 		  <td width="105" height="25" bordercolor="#FFFFFF" bgcolor="#EAEAEA"> 			<div align="center"><font color="#000000" size="2" face="tahoma">Fornecimento</font></div></td>		  <td width="839"><textarea name="Fornecimento" cols="50"  value="<%=objRS("Fornecimento")%>"id="Fornecimento"></textarea> 		  </td>		</tr>		<tr bordercolor="#CCCCCC"> 		  <td colspan="2"> <div id="Layer4" style="position:absolute; width:200px; height:115px; z-index:2; left: 10px; top: 494px;"><font size="2" face="tahoma"><em>* 			  Campos Obrigatórios</em></font></div>			<div id="Layer2" style="position:absolute; width:200px; height:115px; z-index:5; left: 12px; top: 525px;"><img name="rod_funcoes" src="../../Figuras_site_dp/rod_funcoes.gif" width="913" height="150" border="0" alt=""></div>			<p align="center"> 			  <input type="submit" value="Alterar" name="Alterar">		  </td>		</tr>	  </table>	  </center>  </div></form></body></html>

Muito Obrigado!!!!

[Cesão 1]

Para passar TODAS as informações que você disse, eh preciso apenas passar a informação do ID do registro que você quer fazer a alteração...então no botão de alteração você tem que colocar algo como...<a href="edicao.asp?id=<%=RS("id")%>">ALTERAR</a>