<!--include file="conecta.asp"-->
<% Dim conexao, strSQL, rs
Dim nome, email, msg
nome= Trim(Request.Form("nome"))
email= Trim(Request.Form("email"))
msg= Trim(Request.Form("msg"))
Call aBre
strSQL= "INSERT INTO banco (nome, email, message) values ('"& nome &"','"& email &"','"& msg &"')"
Set rs= conexao.Execute(strSQL)
Call fEcha
Set rs=Nothing
Response.Redirect("index.asp")
%>
e o código do conecta.asp:
<%
sub aBre
conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "DBQ=C:\Inetpub\wwwroot\comentario2\database.mdb;Driver={Microsoft Access Driver (*.mdb)}"
end sub
sub fEcha
conexao.Close
Set conexao=Nothing
end sub
%>
Pergunta
Eughenio
Olá pessoal espero q vocês me ajudem, quero saber porque está dando erro de imcompatibilidade na linha do Call aBre, valeu....
o código da index.asp:
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Comentários</title> <style type="text/css"> <!-- .style2 {font-family: Verdana, Arial, Helvetica, sans-serif} .style3 { font-size: 30px; font-family: Verdana, Arial, Helvetica, sans-serif; } --> </style> </head> <body> <!--include file="conecta.asp" --> <% dim conexao, strSQL, rs Call aBre strSQL= "SELECT nome, email, message FROM banco ORDER BY codigo" Set rs= conexao.Execute(strSQL) Call fEcha Set rs=Nothing %> <center class="style3">Comentários</center> <center><%=rs("nome")%> <a hre='mailto:<%=rs("email")%>'><%=rs("email")%></a><br><%= rs("message")%></center> <form action="inclui.asp" method="post" name="formulario" > <table border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><span class="style2">Nome:</span> <input name="nome" type="text" id="nome"> </div></td> <td><div align="center"><span class="style2">E-mail:</span> <input name="email" type="text" id="email"> </div></td> </tr> <tr> <td colspan="2"><div align="center"><textarea name="msg" cols="60" rows="10"></textarea> </div> </td> </tr> <tr> <td><div align="center"> <input name="Submit" type="submit" class="style2" value="Enviar"> </div></td> <td><div align="center"> <input name="Reset" type="reset" class="style2" value="Apagar"> </div></td> </tr> </table> </form> </body> </html>o código do inclui.asp:<!--include file="conecta.asp"--> <% Dim conexao, strSQL, rs Dim nome, email, msg nome= Trim(Request.Form("nome")) email= Trim(Request.Form("email")) msg= Trim(Request.Form("msg")) Call aBre strSQL= "INSERT INTO banco (nome, email, message) values ('"& nome &"','"& email &"','"& msg &"')" Set rs= conexao.Execute(strSQL) Call fEcha Set rs=Nothing Response.Redirect("index.asp") %>e o código do conecta.asp:<% sub aBre conexao = Server.CreateObject("ADODB.Connection") conexao.Open "DBQ=C:\Inetpub\wwwroot\comentario2\database.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fEcha conexao.Close Set conexao=Nothing end sub %>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
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.