Sub Rotinas - Q dor de cabeça

[rodrigobill 0]

Tenho duas subrotinas: Adicionar e Adicionando

A primeira é composta por um formulário simples com os campos: Produto, Descricao, FalarCom, Valor, Data..

Após preenchido os dados, eles são enviados para o mesmo arquivo, mas para outra subrotina, algo como classificados.asp?acao=adicionando... Vou mostrar agora o código da subrotina Adicionando:

 

produto = Request.Form("Produto")

descricao = Request.Form("Descricao")

falarcom = Request.Form("FalarCom")

valor = Request.Form("Valor")

data = Day(Now) & "/" & Month(Now) & "/" & Year(Now)

 

db.Execute "INSERT INTO " & tabela & " (Produto,Descricao,FalarCom,Valor,Data) VALUES ('" & produto & "','" & descricao & "','" & falarcom & "','" & valor & "','" & data & "')"

 

'redirecionando o usuário e exibindo uma mensagem de êxito

Response.Redirect("classificados.asp?acao=adicionar&erro=Registro Atualizado com Sucesso")

 

 

O novo registro é criado no banco de dados, no entanto o unico campo que mostra valor é o de auto identificação... É como se os dados não fossem inseridos no banco... Por favor se alguém souber o que estou fazendo de errado me diga... Muito obrigado e valeu ae galera...Qualquer coisa é só falar...

 

Rodrigo Felix - rodrigobill@hotmail.com

[grustyn 0]

nao sei se eh isso, mas c jah tentou trocar o nome dessas variavies, usa nomes diferentes dos campos da tabela..... se nao for postae

[rodrigobill 0]

tipo já tentei vou colar o codigo aqui pra vcs darem uma olhada

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../conexao.inc" -->

<%

Response.Buffer = True

Response.AddHeader "cache-control", "private"

Response.AddHeader "pragma", "no-cache"

Response.ExpiresAbsolute = #January 1, 1990 00:00:01#

Response.Expires=0

%>

 

<%

'verifica se o usuário se identificou

If Session("Identificacao") <> "sim" Then

'redireciona o usuário para ele se identificar

Response.Redirect("default.asp")

End If

%>

<%

'declarando uma variável com a tabela

Dim tabela

tabela = "Classificados"

%>

 

<%

'redirecionando o usuário

IF Request.QueryString("acao") = "adicionar" Then

:Adicionar

Elseif Request.QueryString("acao") = "adicionando" Then

:Adicionando

Elseif Request.QueryString("acao") = "deletar" Then

:Deletar

Elseif Request.QueryString("acao") = "deletando" Then

:Deletando

Elseif Request.QueryString("acao") = "editar" Then

:Editar

Elseif Request.QueryString("acao") = "editando" Then

:Editando

Elseif Request.QueryString("acao") = "listaeditar" Then

:ListaEditar

End IF

%>

<% Sub Adicionar %>

</div>

<form action="classificados.asp?acao=adicionando" method="post" enctype="multipart/form-data" name="form1" >

<div align="center">

<table width="500" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">

<tr>

<td bordercolor="#666666"><table width="500" border="0" cellspacing="2" cellpadding="0">

<tr bgcolor="#CCCCCC">

<td colspan="3"> <div align="left"><strong><font size="1" face="Arial, Helvetica, sans-serif">:.

Adicionar Classificado </font></strong></div></td>

</tr>

<tr>

<td colspan="3"><div align="center"><strong><font color="#FF0000" size="1" face="Arial, Helvetica, sans-serif"><%= Request.QueryString("erro") %></font></strong></div></td>

</tr>

<tr>

<td width="80"> <div align="right"><strong><font size="1" face="Arial, Helvetica, sans-serif">Produto   

</font></strong></div></td>

<td width="5" bgcolor="#CCCCCC">  </td>

<td><input name="produto" type="text" class="forms" id="usuario3" size="50" maxlength="100">

<font color="#666666" size="1" face="Arial, Helvetica, sans-serif"><strong>

(máx. 100 letras)</strong></font></td>

</tr>

<tr>

<td>

<div align="right"><strong><font size="1" face="Arial, Helvetica, sans-serif">Descricao    </font></strong></div></td>

<td bgcolor="#CCCCCC">  </td>

<td><input name="descricao" type="text" class="forms" id="senha2" size="50" maxlength="250">

<font color="#666666" size="1" face="Arial, Helvetica, sans-serif"><strong> (máx. 250 letras)</strong></font></td>

</tr>

<tr>

<td>

<div align="right"><strong><font size="1" face="Arial, Helvetica, sans-serif">Falar Com    </font></strong></div></td>

<td bgcolor="#CCCCCC">  </td>

<td><input name="falarcom" type="text" class="forms" id="senha2" size="50" maxlength="250">

<font color="#666666" size="1" face="Arial, Helvetica, sans-serif"><strong> (máx. 50 letras)</strong></font></td>

</tr>

<tr>

<td> <div align="right"><strong><font size="1" face="Arial, Helvetica, sans-serif">Valor   </font></strong></div></td>

<td bgcolor="#CCCCCC">  </td>

<td><input name="valor" type="text" class="forms" id="senha2" value="R$" size="50" maxlength="250">

<font color="#666666" size="1" face="Arial, Helvetica, sans-serif"><strong>

(estilo 11,50 - R$)</strong></font></td>

</tr>

<tr valign="bottom">

<td height="25" colspan="3"> <div align="center">

<input name="Submit" type="submit" class="botoes" value="Adicionar">

</div></td>

</tr>

</table></td>

</tr>

</table>

</div>

</form>

<div align="center">

<% End Sub %>

</div>

<p align="center">

 

<% Sub Adicionando %>

<%

'armazenando os valores em variáveis

produto = Request.Form("Produto")

descricao = Request.Form("Descricao")

falarcom = Request.Form("FalarCom")

valor = Request.Form("Valor")

data = Day(Now) & "/" & Month(Now) & "/" & Year(Now)

 

'executando uma ação para salvar os dados no banco de dados

 

db.Execute "INSERT INTO " & tabela & " (Produto,Descricao,FalarCom,Valor,Data) VALUES ('" & produto & "','" & descricao & "','" & falarcom & "','" & valor & "','" & data & "')"

 

'redirecionando o usuário e exibindo uma mensagem de êxito

Response.Redirect("classificados.asp?acao=adicionar&erro=Registro Atualizado com Sucesso")

%>

 

<% End Sub %>

[grustyn 0]

tds seus campos da tabela sao string????

[rodrigobill 0]

está tudo certo em relação aos campos em relacao a ser numerico ou de texto... no caso sao todos strings.... se alguem souber o q está ocorrendo por favor me diga q to com um problemaço...valeu ae

[Penna 0]

Nao teria que fechar todas as subs abertas/?