galera to fazendo um formulario com envio para o banco de dados mais não quer ir aparece uma porcaria de mensagem de erro . diz que o banco de dados e somente leitura. que merdaaaaaaaa..
alguém pode me ajudar..
vo colocar o codigo na tela ta dividido em 3 partes
Pergunta
Guest luis bilar
galera to fazendo um formulario com envio para o banco de dados mais não quer ir aparece uma porcaria de mensagem de erro . diz que o banco de dados e somente leitura. que merdaaaaaaaa..
alguém pode me ajudar..
vo colocar o codigo na tela ta dividido em 3 partes
conexaobd
confirmacao
e a pagina do formulario em si.
a pagina do formulario...
<html>
<title>Formulario</title>
<body>
<form name="form1" method="post" action="confirmacao.asp">
Nome:
<input type="text" name="nome">
<br>
Endereço:
<input type="text" name="endereco">
<br>
Telefone:
<input type="text" name="tel">
<br>
E-mail:
<input type="text" name="email">
<br>
<br>
<input type="submit" name="Submit" value="Enviar">
</form>
</body>
</html>
a de confirmacao
<!-- #include file="conexaobd.asp" -->
<!-- #include file="ADOVBS.inc" -->
<%
dim conconexao
'Aqui você pode inserir mais dados, siga o exemplo abaixo
Session("nome") = Request.Form("nome")
Session("endereco") = Request.Form("endereco")
Session("tel") = Request.Form("tel")
Session("email") = Request.Form("email")
Sub ProcessaPagina
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "form", conconexao, adOpenDynamic, adlockoptimistic, adcmdtable
rs.Addnew
'Aqui você pode inserir mais dados, siga o exemplo abaixo
rs.fields("nome") = Session("nome")
rs.fields("endereco") = Session("endereco")
rs.fields("tel") = Session("tel")
rs.fields("email") = Session("email")
rs.update
end sub
processapagina
%>
<html>
<title> Form </title>
<body>
<h4>Dados enviados com sucesso!!!</h4>
</body>
</html>
e finalmente a conexaoo
<%@ Language=VBScript %>
<%
option explicit
dim connstring
response.expires=-1
Set conconexao = Server.CreateObject("ADODB.Connection")
conconexao.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("dados.mdb")
%>
se alguém puder me ajudar. agradeço..
=[[[
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.