Inicinate

[inicio 0]

Bom dia,

estou tentando desenvolver um código que inclua dados em um banco access, solicito correção:

O código é:

<% Dim nome,email,telefone,assuntonome = (Request.Form("nomeag"))email = Request.Form("emailag")telefone = Request.Form("telag")assunto = Request.Form("assunto")Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("d:\web\localuser\jamesnascimento\banco\banco.mdb"))Query = "INSERT INTO banco (nome,email,telefone,assunto)" &_"VALUES ('"&nome&"','"&email&"', '"&telefone&"', '"&assunto&"')"' O "&_" DB.Execute(Query)response.write "<B>" & "index_resp.htm" & "</B>"'Abre uma pagina com a mensagem: dados incluidos com sucessoSet=nothingoConn=nothingend if%>

O código do formulário é:

 

<form name="form1" method="post" action="incluir.asp">		<p align="right"><font color="#FFCC00" size="2" face="Tahoma"><strong>Nome:</strong></font>					<input name="nomeag" type="text" size="45" maxlength="50">			</p>		<p align="right"><font color="#FFCC00" size="2" face="Tahoma"><strong>Email:</strong></font>		  <input name="emailag" type="text" id="senha2" size="45" maxlength="50"></p>		<p align="right">		  <font color="#FFCC00" size="2" face="Tahoma"><strong>Telefone:</strong></font>		  		  <input name="telag" type="text" id="telag" size="45" maxlength="15"></p>		<p align="right">		  <font color="#FFCC00" size="2" face="Tahoma"><strong>Assunto:				<textarea name="assunto" cols="34" rows="5"></textarea>		  </strong></font></p>		<p align="center"><strong><font color="#FFCC00" size="2" face="Tahoma">		  <input type="submit" name="Submit" value="Enviar  Agenda">		</font></strong></p>		</form>

Os campos do BD são:

 

nomeag, emialag,telefoneag,assuntoag

 

James

[Elbrinner 0]

Qual o erro?

[Ted k' 126]

O Server.MapPath é para caminho virtual

 

fiz alterações no seu código asp e achei alguns erros mais concertados:

 

Existia até um end if que eu ñ sei o que ele estava fechando

 

<% 
Dim nome,email,telefone,assunto

nome = Request.Form("nomeag")
email = Request.Form("emailag")
telefone = Request.Form("telag")
assunto = Request.Form("assunto")

caminho=server.mappath("banco/banco.mdb")
conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"
set oConn=server.createobject("adodb.connection")
oConn.open conexao

Query = "INSERT INTO banco (nome,email,telefone,assunto) VALUES ('"&nome&"','"&email&"', '"&telefone&"', '"&assunto&"')"
oConn.Execute(Query)

response.write "<B>" & "index_resp.htm" & "</B>"
%>