Ir para conteúdo

POWERED BY:

Arquivado

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

Mr Crowley

seguinte, o cara seleciona as pecas e da enviar e

Por , em ASP Clássico

Recommended Posts

Mr Crowley    0

Mr Crowley
Postado 

<%@LANGUAGE="VBSCRIPT"%><% option explicit %><html><head><link href="css.css" rel="stylesheet" type="text/css"></head><%session("senha") = 69098398session("user") = "Crowley"dim conndim orsdim selec set conn = server.CreateObject("ADODB.Connection")conn.open "Provider=SQLOLEDB.1;Password=" & session("senha") & ";Persist Security Info=True;User ID=" & session("user") & ";Initial Catalog=Novelteck;Data Source=CROWLEY\CROWLEY"selec = "select * from list_pec"set ors = server.CreateObject("ADODB.RecordSet")ors.open selec, conn,3,3%><body><form name="form1" method="post" action="selecao_peca_sel.asp"><table width="800" border="1" cellspacing="1" cellpadding="1">  <tr>    <td width="68"><strong> Empresa:</strong> </td>    <td width="509"><input name="empresa" type="text" id="empresa" size="30" maxlength="30"></td>    <td width="68"><strong> Data:</strong> </td>    <td width="132"><input name="data" type="text" id="data" size="10" maxlength="10"></td>  </tr>  <tr>    <td><strong> Contato:</strong> </td>    <td><input name="contato" type="text" id="contato" size="10" maxlength="10"></td>    <td><strong> Depto.:</strong> </td>    <td><input name="depto" type="text" id="depto" size="10" maxlength="10"></td>  </tr>  <tr>    <td><strong> Telefone:</strong> </td>    <td><input name="tel" type="text" id="tel" size="10" maxlength="10"></td>    <td><strong> Cidade:</strong> </td>    <td><input name="cidade" type="text" id="cidade" size="10" maxlength="10"></td>  </tr>  <tr>    <td><strong> e-mail</strong> </td>    <td><input name="email" type="text" id="email" size="30" maxlength="30"></td>    <td><strong> Proposta:</strong> </td>    <td><input name="proposta" type="text" id="proposta" size="10" maxlength="10"></td>  </tr>  <tr>    <td> </td>    <td><input type="checkbox" name="tst" value="1"></td>    <td> </td>    <td> </td>  </tr></table><p> </p><table width="800" border="1" cellspacing="1" cellpadding="1">  <tr>    <td width="87">Selecione</td>    <td width="97">COD de Peca </td>    <td width="598">Descrição</td>  </tr> <% do until ors.eof %>  <tr>    <td>      <div align="center">        <input type="checkbox" name="<%response.Write(ors.fields("cod_lt"))%>" value="1">      </div></td>    <td><%response.Write(ors.fields("cod_lt"))%> </td>    <td><%response.Write(ors.fields("desc_pec"))%> </td>  </tr> <% ors.movenext : loop %></table><table width="130" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>    <td width="50">        <div align="center">          <input name="Envia" type="submit" id="Envia" value="Envia">          </div></td>    <td width="50"><div align="center">      <input name="Apagar" type="reset" id="Apagar" value="Apagar">    </div></td>  </tr></table><p> </p></form></body></html>

--------------------

 

<%@LANGUAGE="VBSCRIPT"%><%option explicit %><html><head><link href="css.css" rel="stylesheet" type="text/css"></head><%session("senha") = 69098398session("user") = "Crowley"dim conndim orsdim selec set conn = server.CreateObject("ADODB.Connection")conn.open "Provider=SQLOLEDB.1;Password=" & session("senha") & ";Persist Security Info=True;User ID=" & session("user") & ";Initial Catalog=Novelteck;Data Source=CROWLEY\CROWLEY"selec = "select top 1 * from list_pec"set ors = server.CreateObject("ADODB.RecordSet")ors.open selec, conn,3,3dim empresadim contatodim teldim emaildim datadim deptodim cidadedim propostadim totaldim tstdim ACempresa  = request.Form("empresa")contato  = request.Form("contato")tel 	 = request.form("tel")email 	 = request.form("email")data  = request.form("data")depto  = request.form("depto")cidade 	 = request.form("cidade")proposta	= request.form("proposta")tst 	 = request.Form("tst")AC 	 = request.Form("AC")%><body><table width="800" border="1" cellspacing="1" cellpadding="1">  <tr>    <td width="68"><strong> Empresa:</strong> </td>    <td width="509"><%response.Write(empresa)%> </td>    <td width="68"><strong> Data:</strong> </td>    <td width="132"><%response.Write(data)%> </td>  </tr>  <tr>    <td><strong> Contato:</strong> </td>    <td><%response.Write(contato)%> </td>    <td><strong> Depto.:</strong> </td>    <td><%response.Write(depto)%> </td>  </tr>  <tr>    <td><strong> Telefone:</strong> </td>    <td><%response.Write(tel)%> </td>    <td><strong> Cidade:</strong> </td>    <td><%response.Write(cidade)%> </td>  </tr>  <tr>    <td><strong> e-mail</strong> </td>    <td><%response.Write(email)%> </td>    <td><strong> Proposta:</strong> </td>    <td><%response.Write(proposta)%> </td>  </tr>  <tr>    <td> </td>    <td><% if tst = 1 then response.Write("ok") %> </td>    <td> </td>    <td> </td>  </tr></table><p> </p><p> 3<strong> -</strong><strong>DETALHAMENTO DOS ITENS SELECIONADOS</strong>: </p><table width="800" border="1" cellspacing="1" cellpadding="1">  <tr>    <td width="64"><div align="center"><strong> QUANT.</strong> </div></td>    <td width="56"><div align="center"> <strong> REF.</strong> </div></td>    <td width="662"><div align="center"> <strong> DESCRIÇÃO</strong> </div></td>  </tr><% if AC = 1 then %>  <tr>    <td> </td>    <td> </td>    <td> </td>  </tr><% end if %></table><p> 4<strong> -</strong><strong>VALOR</strong><strong> DO EQUIPAMENTO DESCRITO (VIDE ITEM 3)</strong>: </p><p>  </p><p><strong> PREÇO TOTAL DO EQUIPAMENTO ................................................................... R$ <% response.Write(total) %></strong></p><p><strong>  </strong></p><p> 4.1 - I.P.I.: 3,5% (a ser acrescido na nota fiscal) </p><p> 4.2 - Classificação Fiscal: 84.22.30.29 </p><p><strong>  </strong></p><p>5<strong> - CONDIÇÕES DE FORNECIMENTO: </strong></p><p><strong>  </strong>5.1 - Preço FOB São Paulo; </p><p> 5.2 - Condições de pagamento: 50% na colocação do pedido e saldo faturado a 28 ddl; </p><p><strong> Obs.: Consulte opções de financiamento. </strong></p><p> 5.3 - Prazo de entrega: 60 dias, após a confirmação do pedido; </p><p> 5.4 - Validade da proposta: 15 dias. </p><p> </p></body></html>

 

seguinte, o cara seleciona as pecas e da enviar

no proximo eu tenho que fazer aparecer todos os arquivos que ele selecionou

mais............

acho que vo ter que abrir e fechar uma conecção para casa item que ele seleciona

pq tenho que colocar a descrição tb

alguem ai tem uma logica pra isso

 

seleciono na 1 pagina e faço aparecer na 2 denovo!

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