problemas ao add dados
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>
Discussão (1)
Carregando comentários...