Guestbook

[Mateustg]

Olá, baixei um sistema de guestbook, mas na hora que vou executá-lo ele me aponta o seguinte erro:

Erro de compilação do Microsoft VBScript error '800a0400'

Instrução esperada

/recados/guestbook/setup.asp, line 4

Option Explicit

^

O que eu faço? Como concerto isso? Vou postar o código abaixo para que vocês possam me ajudar se possível. Vlw.

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%@ LANGUAGE="VBScript" %>
<% 
Option Explicit 

dim ConnString
dim dbname

'**************************** INSTRUCTIONS *********************
'**    You only need to change two lines below this box      ***
'**                                                          ***
'** STEP 1                                                   ***
'** Make dbname equal to the path of your Access Database.   ***
'** eg: dbname="c:\inetpub\wwwroot\databases\guestbook.mdb"  ***
'**                                                          ***
'**    gb2000.mdb is an Access 2000 Database                 ***
'** guestbook.mdb is an Access 97/98 Database                ***
'**                                                          ***
'** STEP 2                                                   ***
'** Select the best ConnString to use by taking out the (')  ***
'** before the statement ConnString = " etc..etc.."          ***
'**                                                          ***
'**   Also remember Internet Users (IUSER_???) must be able  ***
'**   to write to the database so the proper permissions     ***
'**   need to be set. The "CHANGE" permission should work.   ***
'**   If this was not already done you may need to ask       ***
'**   your System Administrator to do this.                  ***
'**                                                          ***
'**    If you have problems visit our website for help.      ***
'**                                                          ***
'**                                            Gateserver    ***
'**                                       www.gateserver.com ***
'***************************************************************

'dbname = "c:\inetpub\wwwroot\recados\guestbook\guestbook.mdb"
dbname = "c:\inetpub\wwwroot\recados\guestbook\gb2000.mdb"

'NOTE: If using forward slashes adjust the line below accordingly.
'dbname = Server.Mappath(dbname)

'ConnString = "Provider=Microsoft.Jet.OLEDB;Data Source=" & dbname & ";Persists Security Info=False"
'ConnString = "Provider=SQLOLEDB;Persists Security Info=False;User Id=sa;Initial Catalog=ActiveGuestBook;Initial File Name=" & dbname
'ConnString = "driver={SQL Server};server=<YourServerName>;uid=sa;pwd=;database=" & dbname 
'ConnString = "Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=" & dbname
'ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname
'ConnString = dbname
'ConnString = "DSN=" & dbname
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dbname

'*********************** MODIFY ABOVE ONLY *********************

Server.ScriptTimeout = 60
Response.Buffer = True

Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

Const adStateClosed = 0
Const adStateOpen = 1

%>

[dark0]

opa.. beleza?

eu olhei seu codigo.. achei meio complicado.. então fiz um guestbook aqui na corrida:

guestbook.asp

<%
url_conexao = Server.MapPath("g_book.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

if request.form("assinar") <> "" Then
	nome = Request.Form("nome")
	email = request.form("email")
	comentarios = request.form("comentarios")

	if nome = "" or comentarios = "" then
  response.write "Preencha os dados <br>"
  response.write "<a href='guestbook.asp'>clique aqui para voltar</a>"
  response.end
	end if

	SQL = "insert into guestbook (nome,email,comentarios)"
	SQL = SQL & " VALUES ("
	SQL = SQL & "'" & nome & "',"
	SQL = SQL & "'" & email & "',"
	SQL = SQL & "'" & comentarios & "')

    Set rs = Conexao.Execute(SQL)
	response.write "Guestbook assinado com sucesso!<br>"
	response.write "<a href='guestbook.asp'>clique aqui para voltar</a>"
	response.end
else
%>

<form method="POST" action="guestbook.asp">

  <p align="center"><font color="#800000">Guestbook</font></p>
  <div align="center">
    <center>
    <table border="0" width="50%">
      <tr>
        <td width="20%"><font color="#800000">Nome:</font></td>
        <td width="46%"><input type="text" name="nome" size="30"></td>
      </tr>
      <tr>
        <td width="20%"><font color="#800000">E-mail:</font></td>
        <td width="46%"><input type="text" name="email" size="30"></td>
      </tr>
      <tr>
        <td width="20%"><font color="#800000">Comentários</font></td>
        <td width="46%"><textarea rows="4" name="comentarios" cols="30"></textarea></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="Assinar" name="assinar"></p>
</form>
<%end if%>
<br><br>
<%
Sql_busca_dados = "Select * from Guestbook order by id desc;"
set rs_busca_dados = conexao.execute(Sql_busca_dados)

if rs_busca_dados.eof = false then
%>
Livro de Visitas:
<%do while not rs_busca_dados.eof%>
<form method="POST">
 <div align="center">
  <center>
  <table border="1" width="56%" height="29" style="border-style: ridge">
    <tr>
      <td width="34%" height="20"><font color="#800000">Nome:</font></td>
      <td width="66%" height="20"><%=rs_busca_dados("nome")%></td>
    </tr>
<%if rs_busca_dados("email") <> "" then%>    
    <tr>
      <td width="34%" height="16"><font color="#800000">E-mail:</font></td>
      <td width="66%" height="16"><a href="mailto:<%=rs_busca_dados("email")%>"><%=rs_busca_dados("email")%></a></td>
    </tr>
<%end if%>    
    <tr>
      <td width="34%" height="1"><font color="#800000">Comentários:</font></td>
      <td width="66%" height="1"><%=Replace(rs_busca_dados("comentarios"),chr(13),"<br>")%></td>
    </tr>
</table>
  </center>
</div><br>
</form>

<%rs_busca_dados.movenext
loop
end if
%>

você deve criar um banco de dados, com esse nome: g_book.mdb

criar nele uma tabela: com o nome de guestbook, com os campos:

- id - auto num

- nome - texto

- email - texto

- comentarios - memorando

aqui ta um link: Guestbook

com esse guestbook funcionando + o banco..

[ursolouco]

<%@ LANGUAGE="VBScript" %>

<%

Option Explicit

dim ConnString

dim dbname

Altere e faça um teste:

<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<%
dim ConnString
dim dbname
...

Abraços!!!

[urso]

[Mateustg]

Ai urso, troquei mas deu a mesma falha.

dark0, fiz o seu e deu beleza, vlw a ajuda.

[dark0]

okays...

ate mais..

[dark0]

close this topic admin

thanks

hehe

[Tork]

Não sei qual é esse problemas, mas às vezes dá pau na Option Explicit, deve ter um jeito certo de usar porque em alguns sistemas meus não dá erro, em outros dá... o seu código tá certo, Mateustg, é só tirar a option explicit pra ver o código em si...

[Guest Marcelo Canevello Ferreira]

option explicit obriga que você declare todas as variáveis antes de usá-las... por isso dá pau... se você num declarar alguma variável o IIS te mostra o erro... ok

abração

[Tork]

Mas normalmente o erro não é esse, pelo menos não no PWS, no PWS é apontada a variável que não foi declarada.