Incluir, excluir ou alterar

[Bruno Nathan 0]

Estou com um problema no código e nao sei o que esta errado porque não manjo muito de ASP.. perguei esse código pronto..

 

Aparece mensagem de erro quando vou incluir, excluir ou aterar

 

é ASP+Access..

 

incluir2.asp

<%

Option Explicit

 

'Criando variáveis

Dim localbd, meubd

 

'Indicando local do Banco de dados

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/base.mdb")

 

'Setando conexões

set meubd=server.createobject("adodb.connection")

meubd.Open localbd

 

'Declarando as variáveis que receberão os valores do form

dim titulo, chamada, tipo, conteudo, expira, data, destaque

 

titulo=request.form("titulo")

chamada=request.form("chamada")

tipo=request.form("tipo")

conteudo=request.form("conteudo")

expira=request.form("expira")

data=day(now)&"/"&month(now)&"/"&year(now)

destaque=request.form("destaque")

 

'Faremos aqui a inserção de todos os dados digitados no form anterior

meubd.EXECUTE "INSERT INTO noticias (titulo, chamada, tipo, conteudo, expirar, data, destaque) values ('"&titulo&"','"&chamada&"',"&tipo&",'"&conteudo&"','"&expira&"','"&data&"',"&destaque&")"

 

'Logo após a inserção dos dados, mostrará uma mensagem e voltará para a página principal.asp

response.write "<script>location = 'principal.asp';alert('Sua notícia foi cadastrada com sucesso!')</script>"

%>

alterar2.asp

<%

Option Explicit

 

'Criando variáveis

Dim localbd, meubd

 

'Indicando local do Banco de dados

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/base.mdb")

 

'Setando conexões

set meubd=server.createobject("adodb.connection")

meubd.Open localbd

 

dim titulo, chamada, tipo, conteudo, expira, data, destaque, cod

 

titulo=request.form("titulo")

chamada=request.form("chamada")

tipo=request.form("tipo")

conteudo=request.form("conteudo")

expira=request.form("expira")

destaque=request.form("destaque")

cod=request.form("cod")

 

meubd.EXECUTE "UPDATE noticias SET titulo='"& titulo &"', chamada='"& chamada &"', conteudo='"& conteudo &"', tipo="& tipo &", expirar='"& expira &"', destaque="& destaque &" where codnoticia="& cod &""

 

response.write "<script>location = 'principal.asp';alert('Notícia alterada com sucesso!')</script>"

%>

excluir.asp

<%

Option Explicit

 

'Criando variáveis

Dim localbd, meubd

 

'Indicando local do Banco de dados

localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/base.mdb")

 

'Setando conexões

set meubd=server.createobject("adodb.connection")

meubd.Open localbd

 

'Iremos deletar o registro onde o código é igual ao da querystring que enviamos

meubd.EXECUTE "DELETE * from noticias where codnoticia="&request.querystring("cod")&""

 

'depois da exclusão, redirecionaremos para a página principal.asp

response.redirect "principal.asp"

%>

Obrigado a quem poder me ajudar

[Robex 171 0]

Posta a msg de erro, para sabermos se eh conexão, string...Dei uma olhada por alto e parece estar OK...To no aguardo!Falows!!!

[Bruno Nathan 0]

Ja resolvi o problema.. obrigado..

[Robex 171 0]

Por nada, mas quando for assim diz qual foi a solução. Futuramente pode servir para alguem!