Ir para conteúdo
Fórum Script Brasil
  • 0

O Que Dá De Errado No Default E No Insert?

marcos_804

Perguntado por marcos_804,

 Share

Pergunta

marcos_804

marcos_804

Postado
Postado (editado)

aqui vai o codigo

default.asp

[*]<html>

<head>
<title>Mensagens dos livro</title>
<style>
a{text-decoration:none;color:#ff0000;padding:3}
a:hover {text-decoration:underline;color:#ff0000;background-color:#f1f1f1}
#barra {color:#ffffff;font-family:verdana;background-color:#DB0E12;text-align:center;width:100%;height:19;border:1px solid #FFFF00;font-weight:bold;padding-top:2;font-size:11}

.1 {font-family:verdana;font-size:12;color:#000000;font-weight:bold}

#bot {color:#000000;font-size:12;background-color:#ffffff;font-family:verdana;text-align:center;width:100%}
#bot a{color:#ffff00;font-size:12;background-color:#ff0000;font-family:verdana;text-align:center;width:50%}
#bot a:hover{color:#ffff00;font-size:12;background-color:#0000ff;font-family:verdana;text-align:center;width:50%;text-decoration:none;text-transform:uppercase;font-weight:bold}
</style>
</head>

<body>



<table border="0" width="500" align="center" colspan="2">
<tr>
    <td colspan="2" class="1" valign="top">
      <br>Desenvolvido por: marcos_804@yahoo.com.br<br><br>
      <div id="bot"><a href="assina_livro.asp">Assina no livro</a></div>
    </td>
  </tr>
<%
Set marcos = CreatObject("ADODB.Connection")
livro = "DRIVER={Microsoft Access Driver(*.mdb)};"
livro = livro &"DBQ="&Server.MapPath("livro.mdb")
marcos.open livro
SQLer = "SELECT * FROM livro ORDER BY data"
SET ler = marcos.Execute(SQLer)
%>
  <%
ler.MoveFirst
DO WHILE NOR ler EOF
%>
<%
nome = ler("nome")
email = ler("email")
site = ler("site")
mensagem = ler("mensagem")
ip = ler("ip")
data = ler("data")
hora = ler("hora")
%>
  <tr>
    <td width="50%" id="barra" colspan="2">
      Assinante: <span style="text-transform:uppercase;color:#ffff00"><%=nome%></span>
    </td>
  </tr>
  <tr>
    <td colspan="2" class="1">
      E-mail: <span style="color:#ff0000"><a href="mailto:<%=email%>"><%=email%></a></span>
    </td>
  </tr>
  <tr>
    <td colspan="2" class="1">
      Site: <%if site <> "não tem site" %><a target="_blank" href="http://<%=site%>"></a><%end if%>
    </td>
  </tr>
  <tr>
    <td colspan="2" class="1">
      Mensagem:<br>
      <span style="color:#000000;font-style:italic;background-color:#f1f1f1;width:100%;padding:5">
      <%=mensagem%>
      </span>
    </td>
  </tr>
  <tr>
    <td width="50%" class="1">
    Postado em: <span style="color:#ff0000;font-style:italic"><%=data%></span>
    </td>
    <td width="50%" class="1">
    Hora: <span style="color:#ff0000;font-style:italic"><%=hora%></span>
    </td>
  </tr>
  <tr>
    <td colspan="2">
    <hr>
    </td>
  </tr>
  <%ler.MoveNext%><%loop%>
  <tr>
    <td colspan="2" id="barra">
    Obrigado pela visita!!!
    </td>
  </tr>
</table>

</body>

</html>
aqui é o inseredados.asp
[*]<%

SET marcos = CreatObject("ADODB.connection")
meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};"
meuLivro = meulivro &"DBQ="& Server.MapPath("livro.mdb")&""
marcos.open meuLivro

'Variveis do Livro de Visitas

nome = request.form("nome")
site = request.form("site")
email = request.form("email")
mensagem = request.form("mensagem")
ip = request.servervariable("remote_addr")
data = date
hora = time

%>

<%
SQL = "INSERT INTO livro (nome,site,email,mensagem,ip,data,hora)"
SQL = SQL &"VALUES('"nome"','"& site &"','"& email &"','"& mensagem &"','"& ip &"','"& data &"','"& hora &"')"
Set grava = marcos.Execute(sql)
%>

<% response.redirect "default.asp"%>

AGUARDO RESPOSTA!!!

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

14 respostass a esta questão

Posts Recomendados

  • 0
bareta

bareta

Postado
Postado

faça o seguinte....

no seu internet explorer vá em ferramentas / opções da internet / avançadas / na parte de navegação desmarque a opção mostrar urls amigaveis..e mostrar mensagens de erro de http amigaveis rode seu script e colete o erro.....

Link para o comentário
Compartilhar em outros sites
  • 0
marcos_804

marcos_804

Postado
  • Autor
Postado

ai vai o post

<%

SET marcos = CreatObject("ADODB.connection")
meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};"
meuLivro = meulivro &"DBQ="& Server.MapPath("livro.mdb")
marcos.open meuLivro

'Variveis do Livro de Visitas

nome = request.form("nome")
site = request.form("site")
email = request.form("email")
mensagem = request.form("mensagem")
ip = request.servervariable("remote_addr")
data = date
hora = time

%>

<%
SQL = "INSERT INTO livro (nome ,site ,email ,mensagem ,ip ,data ,hora)"
SQL = SQL &"VALUES('"nome"','"&site&"','"&email&"','"&mensagem&"','"&ip&"','"&data&"','"&hora&"')"
Set grava = marcos.Execute(sql)
%>
<%end if%>
<% response.redirect "default.asp"%>
aqui vai o ERRO 
Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/teajudo/TESTE ASP/meulivro/inseredados.asp, line 22 

SQL = SQL &"VALUES('"nome"','"&site&"','"&email&"','"&mensagem&"','"&ip&"','"&data&"','"&hora&"')"
---------------------^

Link para o comentário
Compartilhar em outros sites
  • 0
halakaluf

halakaluf

Postado
Postado

Man coloca desse jeito:

SQL = "INSERT INTO livro (nome ,site ,email ,mensagem ,ip ,data ,hora) VALUES('"nome"','"&site&"','"&email&"','"&mensagem&"','"&ip&"','"&data&"','"&hora&"')"

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

Pelo que eu top vendo aqui o erro e porque você não deu espaço entre o ")" e o "VALUES"

SQL = "INSERT INTO livro (nome ,site ,email ,mensagem ,ip ,data ,hora)"

SQL = SQL &"VALUES('"nome"','"&site&"','"&email&"','"&mensagem&"','"&ip&"','"&data&"','"&hora&"')"

Fui....

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado

Tenta ai gasparzinho, da proxima posta o erro senão nem vou ler seu post...

[*]<html>

<head>
<title>Mensagens dos livro</title>
<style>
a{text-decoration:none;color:#ff0000;padding:3}
a:hover {text-decoration:underline;color:#ff0000;background-color:#f1f1f1}
#barra {color:#ffffff;font-family:verdana;background-color:#DB0E12;text-align:center;width:100%;height:19;border:1px solid #FFFF00;font-weight:bold;padding-top:2;font-size:11}

.1 {font-family:verdana;font-size:12;color:#000000;font-weight:bold}

#bot {color:#000000;font-size:12;background-color:#ffffff;font-family:verdana;text-align:center;width:100%}
#bot a{color:#ffff00;font-size:12;background-color:#ff0000;font-family:verdana;text-align:center;width:50%}
#bot a:hover{color:#ffff00;font-size:12;background-color:#0000ff;font-family:verdana;text-align:center;width:50%;text-decoration:none;text-transform:uppercase;font-weight:bold}
</style>
</head>

<body>



<table border="0" width="500" align="center" colspan="2">
<tr>
   <td colspan="2" class="1" valign="top">
     <br>Desenvolvido por: marcos_804@yahoo.com.br<br><br>
     <div id="bot"><a href="assina_livro.asp">Assina no livro</a></div>
   </td>
 </tr>
<%
Set marcos = CreatObject("ADODB.Connection")
livro = "DRIVER={Microsoft Access Driver(*.mdb)};"
livro = livro &"DBQ="&Server.MapPath("livro.mdb")
marcos.open livro
SQLer = "SELECT * FROM livro ORDER BY data"
SET ler = marcos.Execute(SQLer)
%>
 <%
ler.MoveFirst
DO WHILE NOT ler EOF
%>
<%
nome = ler("nome")
email = ler("email")
site = ler("site")
mensagem = ler("mensagem")
ip = ler("ip")
data = ler("data")
hora = ler("hora")
%>
 <tr>
   <td width="50%" id="barra" colspan="2">
     Assinante: <span style="text-transform:uppercase;color:#ffff00"><%=nome%></span>
   </td>
 </tr>
 <tr>
   <td colspan="2" class="1">
     E-mail: <span style="color:#ff0000"><a href="mailto:<%=email%>"><%=email%></a></span>
   </td>
 </tr>
 <tr>
   <td colspan="2" class="1">
     Site: <%if site <> "não tem site" %><a target="_blank" href="http://<%=site%>"></a><%end if%>
   </td>
 </tr>
 <tr>
   <td colspan="2" class="1">
     Mensagem:<br>
     <span style="color:#000000;font-style:italic;background-color:#f1f1f1;width:100%;padding:5">
     <%=mensagem%>
     </span>
   </td>
 </tr>
 <tr>
   <td width="50%" class="1">
   Postado em: <span style="color:#ff0000;font-style:italic"><%=data%></span>
   </td>
   <td width="50%" class="1">
   Hora: <span style="color:#ff0000;font-style:italic"><%=hora%></span>
   </td>
 </tr>
 <tr>
   <td colspan="2">
   <hr>
   </td>
 </tr>
 <%ler.MoveNext%><%loop%>
 <tr>
   <td colspan="2" id="barra">
   Obrigado pela visita!!!
   </td>
 </tr>
</table>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...