ASP + Access

[mkboy 1]

Ola amigos,Comprei um livro que chama-se "Aprendendo ASP3".Estou fazendo um exemplo, mas não consigo resolver, tentei o suporte da Makron Books mas eles não deram a mínima em me ajudar. Falaram que iam responder mas faz mais de uma semana e nada.Se alguem poder me ajudar fico grato.Criei um formulário que chama-se ( register.asp ) esse formulário ao ser enviado, ele execulta a página ( take_registration.asp ) que processa o formulário e grava no banco.No banco chamado outpost.mdb existem 02 tabelas. A primeira:

create table members ( username char(30) password char(30) first_name char(30) last_name char(30) email char(30) comments char(500) believe_in_aliens char(30))

A segunda:

A segunda:create table user_medium ( username char(30) medium char(30))

onsigo gravar na tabela members até a opção Endereço Eletronico, preenchendo só ate esta opção.Mas se eu preencher até o final ele da erro.Segue as duas páginas:register.asp

<%@ Language="Vbscript" %><%= pagetitle %><% pageTitle="Registre-se" %><!--#include virtual="/pagetop.txt"--><h1>Registre-se</h1>Preencha este formulário para tornar-se um membro do Primary Outpost.<p><form action="/take_registration.asp">Identificação de Usuário Desejada: <input type="text" name="p_name" size=20 maxlength=15 ><br>Senha: <input type="password" name="p_pass1"><br>Senha (Confirmação): <input type="password" name="p_pass2"><br>Primeiro Nome: <input type="text" name="p_first"><br>Último Nome: <input type="text" name="p_last"><br>Endereço Eletrônico: <input type="text" name="p_email"><p>Você acredita em Aliens?<br><input type="radio" name="p_aliens" value="sim" checked>Absolutamente <br><input type="radio" name="p_aliens" value="nao"> Não seja ridículo<p>Como você curte ficção ciêntifica?<br><input type="checkbox" name="p_medium" value="televisao"> Televisão <br><input type="checkbox" name="p_medium" value="filmes"> Filmes <br><input type="checkbox" name="p_medium" value="livros">Livros <br><input type="checkbox" name="p_medium" value="quadrinhos">Quadrinhos <br><input type="checkbox" name="p_medium" value="online">Online <br><input type="checkbox" name="p_medium" value="fanzines">Fanzines<br><p><p><input type="submit" value="Enviar Registro"> <input type="reset" value="Começar Novamente"></form><!--#include virtual="/pagebottom.txt"--></body></html>

take_registration.asp

<%@ language="Vbscript" %><%= pageTitle %> <% pageTitle="Confirmação de Registro" %><!--#include virtual="pagetop.txt"--><%p_userid = Request.QueryString("p_name")p_pass1 = Request.QueryString("p_pass1")p_pass2 = Request.QueryString("p_pass2")p_first = Request.QueryString("p_first")p_last = Request.QueryString("p_last")p_email = Request.QueryString("p_email") set outpostDB = server.CreateObject("ADODB.Connection") outpostDB.open "outpost"        theSQL = "insert into members"        theSQL = theSQL & "(username, password, first_name, last_name, "        theSQL = theSQL & "email, believes_in_aliens)"        theSQL = theSQL & " values ('"&p_userid&"','"&p_pass1&"', '"        theSQL = theSQL & p_first&"', '"&p_last&"', '"&p_email&"', '"        theSQL = theSQL & p_believes_in_aliens&"')"                               outpostDB.Execute(theSQL) for each p_medium in Request.QueryString("p_medium")         theSQL = "insert into user_medium" theSQL = theSQL & (userid, medium) value ('"         theSQL = theSQL & p_userid&"','"&p_medium&"')" outpostDB.Execute (theSQL)next outpostDB.close set outpost = Nothing%><h2>Registro de Usuário</h2>Usuário: <%= p_userid %> <br>Senha: <%= p_pass1 %> <br>Senha ( confirmação): <%= p_pass2 %> <br>Primeiro Nome: <%= p_first %> <br>Ultimo Nome: <%= p_last %> <br>Endereço Eletrônico: <%= p_email %> <br><br><% for each p_medium in Request.QueryString("p_medium")%>Mídia Preferída: <%= p_medium %><br><% next %><!--#include virtual="pagebottom.txt"--></body></html>

Fico grato se alguem me ajudar, pois a varios dias tento e nada.Pois estou começando com ASP.Valeu

[brunofilhorj 0]

for each p_medium in Request.QueryString("p_medium")

 

      theSQL = "insert into user_medium"

theSQL = theSQL & " (userid, medium) value ('"

        theSQL = theSQL & p_userid&"','"&p_medium&"')"

vê o que está destacado? acrescente isso e veja se resolve...

[mkboy 1]

Ok.

 

Funcionou perfeito.

 

Exatamente as aspas que não coloquei ( no livro também não tem ).

 

Mas a sua ajuda foi de grande ajuda para mim, pois ja estava a uma semana sem descobrir esse erro.

 

Valeu mesmo.

[brunofilhorj 0]

qualquer um pode cometer esse erro... Erro de digitação nos toma um tempo terrível.Quando precisar, estamos aqui!