Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
ola
amigos estou tentando salvar uns dados em um banco de dados. mas estou tendo probelma com um loop
um formulario e seu text e criado a partir de um rs. otimo esta funcionando. agora quero recupera estes text num outro loop
<%
A = REQUEST.FORM(rs(2))
response.write A
%>
interesante e que estava funionando... dai quando eu coloque no loop para coletar os dados começou a dar pau
cara e incrivel como isso acontece....
todo o post
<html>
<head>
<title>Coleta União Peças. Dados Salvo com sucesso!!!</title>
</head>
<body>
<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<img src="imagens/logo_uniaopecas.jpg" width="360" height="77"></div>
</td>
</tr>
</table>
<%Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB.1; Network Library=dbmssocn; Data Source=000.000.000.000;" & _
"User ID=000000; Password=000000; Initial Catalog=000000;"
sql = "execute william_itens"
set rs = objConn.execute(sql)
%>
DADOS.
<br>
NUMREG_FORN :
<% NUMFOR = session("id")
response.write NUMFOR %>
<br>
NUMREG_COTACAO: <%NUMCOT = rs(0)
RESPONSE.WRITE NUMCOT %>
<br>
NUMREG_COTACAO_ITENS: <%NUMCOTITEM = rs(1)
RESPONSE.WRITE NUMCOTITEM%>
<br>
NUMREG_ITENS: <%NUMITEM = rs(2)
RESPONSE.WRITE NUMITEM%>
<BR>
TAREFA: <%I = ("INSERIR")
RESPONSE.WRITE I%>
<BR>
CUSTO:
<%
A = REQUEST.FORM(rs(2))
response.write A
%>
<BR>
QUANTIDADE:
<%QT = rs(6)
RESPONSE.WRiTE QT%>
<%
'Dim strcon, Con, rs2
' strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("banco/dados.mdb")&";Persist Security Info=False"
'Set Con = Server.CreateObject( "ADODB.Connection" )
'Set rs2 = Server.CreateObject( "ADODB.Recordset")
' con.open strcon
%>
<%
'sqlstring = "insert into cota (cota, cotacao, item, fornecedor, valor, qt) values ('"_
'& numcot & "','"& numcotitem & "','" & numitem & "','" & NUMFOR & "','" & a & "','" & qt & "')"
'con.execute(sqlstring)
%>
<%
rs.movefirst
While not rs.eof
rs.movenext
wend
'rs.close
'objConn.close
%>
<!--<br/>Salvo com sucesso!<br/> -->
</BODY>
</html>Carregando comentários...