Ir para conteúdo

POWERED BY:

Arquivado

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

enetsat

problemas ao add dados

Por , em ASP Clássico

Recommended Posts

enetsat    0

enetsat
Postado

Ola tudo bem amigos,

 

 

 

Sou novato comecei a mexer com ASP faz 3 dias e estou tendo algumas dificuldades que para outros e banalidade :D

 

 

 

Eu criei um cadastro nome endereco e telefone .. so para teste

 

 

 

ele nao da erro algum e da essa menssagem ..

 

 

 

Formulário de Inclusão

 

 

 

Os dados foram enviados com sucesso!

Clique aqui para continuar

 

 

mais nada acontece nao adiciona no DB ...

 

 

 

o que sera q esta acontecendo ?

 

 

 

Agradeco a todos do forum ..

 

 

 

meu msn e enetsec@hotmail.com caso alguem queiram me ajudar serei muito garto

 

 

 

Obrigado a todos

 

 

 

 

o codigo acima eu consigo consultar ,e modificar mais nao incluir .. :S

 

<html><head><title>TESTE DE ASP</title></head><body><center><font face="Arial" size="4"><b>Formulário de Inclusão</b></h2></center><%If IsEmpty( Request.Form("submit") ) Then%><form method=post action="<%=Request.ServerVariables("script_name")%>"><table border=0 width="80%" align=center>  <tr>	<td align=right valign=top><font face="Arial" size="2">endereco:</font></td>	<td align=left valign=top>	  <font face="Arial" size="2">	<input type=text name="endereco" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">	</td>  </tr>  <tr>	<td align=right valign=top><font face="Arial" size="2">nome:</font></td>	<td align=left valign=top>	  <font face="Arial" size="2">	<input type=text name="nome" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">	</td>  </tr>  <tr>	<td align=right valign=top><font face="Arial" size="2">tel:</font></td>	<td align=left valign=top>	  <font face="Arial" size="2">	<input type=text name="tel" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">	</td>  </tr>  </font></table><center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></center></form><%Else  If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("endereco")) <> ""  AND Trim(Request.Form("nome")) <> ""  AND Trim(Request.Form("tel")) <> ""  Then	Set Conexao = Server.CreateObject("ADODB.Connection")	Constr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/1.mdb") 'Caminho do Banco de Dados	Conexao.Open Constr	ComandoSQL = "INSERT INTO Tabela1 (endereco, nome, tel)"	ComandoSQL = ComandoSQL & " VALUES ("	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "',"	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "',"	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("tel")) & "')"	Set bd = Conexao.Execute(ComandoSQL)	Conexao.Close	Set bd = Nothing	Set Conexao = Nothing%>   <font face="Arial" size="2">   <center><br>Os dados foram enviados com sucesso!   <br><a href="add.asp"><b>Clique aqui</b></a> para continuar</font></center><%  Else%>   <font face="Arial" size="2">   <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente   <br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center><%  End IfEnd If%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

retire Server.HTMLEncode

troque isso

Set bd = Conexao.Execute(ComandoSQL)	Conexao.Close	Set bd = Nothing	Set Conexao = Nothing
por 

Conexao.Execute(ComandoSQL)Conexao.CloseSet Conexao = Nothing
coloque as aspas no method do forumulario

<form method="post" action="<%=Request.ServerVariables("script_name")%>">

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