Pessoal, agora o erro mudou ...
o novo problema:
HTTP 403.1 Proibido: acesso de execução proibido
Internet Information Services
Procurei no site da microsoft sobre este erro e encontrei isto:
403.1 - Acesso de execução proibido. As duas causas seguintes são as mais comuns para essa mensagem de erro:
• Você não possui permissões de Execução suficientes. Por exemplo, é possível receber esta mensagem de erro se você tentar acessar uma página ASP em um diretório onde as permissões estiverem definidas como Nenhuma ou se tentar executar um script CGI em um diretório com permissões Somente Scripts. Para modificar essas permissões de Execução, clique com o botão direito no diretório no Console de Gerenciamento da Microsoft (MMC), clique em Propriedades, clique na guia Diretórios e verifique se a configuração Permissões de Execução é apropriada para o conteúdo que você está tentando acessar.
• O mapeamento de script para o tipo de arquivo que está tentando executar não está configurado para reconhecer o verbo que você está usando (por exemplo, GET ou POST). Para verificar isso, clique com o botão direito no diretório no MMC, clique em Propriedades, clique na guia Diretório, clique em Configurações e verifique se o mapeamento de script para o tipo de arquivo apropriado está configurado para permitir o verbo que você está usando.
Dúvida: onde fica esse tal de MMC??? não achei o tal do console ... alguem sabe onde está?
Vou colocar aqui o código do arquivo de processamento:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<%
Dim con
Dim rst
Const adOpenKeyset = 1
Const adLockOptimistic = 3
' Cria os objetos
Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
' Abre a conexão com o banco de dados agenda.mdb
con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\teste.mdb"
' Cria um Recordset do tipo keyset baseado na tabela clientes
' usando o bloqueio otimista
rst.Open "SELECT * FROM usuarios", con, adOpenKeyset, adLockOptimistic
' Cria um registro em branco
rst.AddNew
' Recebe os dados do formulário e os atribui aos campos da tabela cliente
rst("nome")= Request.Form("nome")
rst("endereco")= Request.Form("endereco")
rst("cidade")= Request.Form("cidade")
rst("estado")= Request.Form("estado")
rst("telefone")= Request.Form("telefone")
' Salva o registro
rst.Update
Response.Write "<B>Registro salvo com sucesso !</B>"
rst.Close
con.Close
%>
<BR><A HREF="menu.html">Retorna a página principal</A>
</body>
</html>
Abraço
