smarcon

Olá pessoal, estou necessitando de ajuda, pois não consigo ver erro algum neste código, e isto já faz umas 4,5 horas, tô ficando loucão...

O erro foi este:

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/cadastro.asp, line 17, column 74
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

O codigo de cadastro é:

<%
Session.LCID = 1046

Function DataInvertida(data)
    dia=day(Data)
    mes=month(Data)
    ano=year(Data)
    DataInvertida=mes&"/"&dia&"/"&ano
End Function

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Codigo = Request.Form("Codigo_cliente")
Nome = Request.Form("Nome_cliente")
Telefone = Request.Form("Telefone")
Data = Datainvertida(Request.Form("Data"))
Obs = Request.Form("Obs")


Conexao.Execute "insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('" & Codigo & "','" & Nome & "','" & Telefone & "',#" & Data & "#,'" & Obs & "')"

Conexao.Close
Set Conexao = Nothing
%>

O código de consulta é:

<%

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Set RS_Max = Server.CreateObject("ADODB.Recordset")
RS_Max.CursorType = adOpenKeyset

RS_Max.Open "SELECT * FROM Clientes order by Nome", Conexao

%>
<table border="0" width="100%">
<tr>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Cód_Cliente</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Nome</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Telefone</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Data</font></td>
</tr>
</table>
<%
do while not Rs_max.eof
%>
<table border="0" width="100%">
<tr>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Codigo_cliente")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Nome")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Telefone")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Data_cadastramento")%></font></td>
</tr>
</table>
<%
rs_max.movenext
loop

Rs_max.close
Conexao.Close
Set Conexao = Nothing
%>

Se algum de você conseguirem identificar o erro, por favor me notifiquem.

Agradecido,

Sandrão

E ai pessoal, será que vocês poderiam me ajudar, pois eu não consigo conectar o BD a minha pagina de formulário, sempre dá um erro assim:

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/cadastro.asp, line 17, column 74
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Dêem uma olhada no codigo para ver se eu errei:

Este é de cadastro:

<%
Session.LCID = 1046

Function DataInvertida(data)
dia=day(Data)
mes=month(Data)
ano=year(Data)
DataInvertida=mes&"/"&dia&"/"&ano
End Function

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Codigo = Request.Form("Codigo_cliente")
Nome = Request.Form("Nome_cliente")
Telefone = Request.Form("Telefone")
Data = Datainvertida(Request.Form("Data"))
Obs = Request.Form("Obs")


Conexao.Execute "insert into Clientes(Codigo_cliente, Nome, Telefone, Data_cadastramento, Obs) values('" & Codigo & "','" & Nome & "','" & Telefone & "',#" & Data & "#,'" & Obs & "')"

Conexao.Close
Set Conexao = Nothing
%>

Este é consulta:

<%

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\inetpub\wwwroot\meu_banco.mdb"

Set RS_Max = Server.CreateObject("ADODB.Recordset")
RS_Max.CursorType = adOpenKeyset

RS_Max.Open "SELECT * FROM Clientes order by Nome", Conexao

%>
<table border="0" width="100%">
<tr>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Cód_Cliente</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Nome</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Telefone</font></td>
<td width="20%" bgcolor="#999966" align="center"><font size="2" face="Verdana">Data</font></td>
</tr>
</table>
<%
do while not Rs_max.eof
%>
<table border="0" width="100%">
<tr>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Codigo_cliente")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Nome")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Telefone")%></font></td>
<td width="25%"><font size="2" face="Verdana"><%=rs_max("Data_cadastramento")%></font></td>
</tr>
</table>
<%
rs_max.movenext
loop

Rs_max.close
Conexao.Close
Set Conexao = Nothing
%>


Alguém poderia me dizer aonde eu errei, pois já estou olhando para ele umas 4 horas e não consegui perceber nada de errado, talvez já nem consiga raciocinar mais.

Agradeço desde já a ajuda que prestarem,

Obrigado[B]

Olá pessoal,

Estou tentando fazer um site no Dreamweaver e irá existir uma pagina de formulário no qual os dados pesquisados se encontram em um BD Access XP, para que eu possa fazer meu site acessar estes dados precisarei utilizar uma programação e me recomendaram que seria melhor usar ASP, o problema é que não conheço muito de programação, então gostaria de saber se alguém pode me ajudar ou até mesmo passar os codigos eu usaria para que este formulário acessasse os dados do Access?

Obrigado !!!

Sandrão

Aí pessoal, eu gostaria de saber se alguém sabe como eu faço para que um formulário feito no dreamweaver pode buscar informações em um banco de dados feito no access XP ?? tenho que ter uma programação específica??

Agradeço desde já aqueles que poderão me ajudar