Penando no Include Virtual

[I.K. 0]

Entao, antes de mais nada, eu queria dizer q procurei topicos relacionados ao assunto mas n me ajudou a principio, entao resolvi postar isso aki. http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

Enfim,

 

to aprendendo ASP por um livro, Aprendendo ASP por Nicholas Chase

 

Td indo bem ateh q numa "licao" eu tenho q trabalhar com include virtual

 

soh q ao abrir a pagina, dah erro pq n encontra a tal pagina do include.

 

o codigo esta assim:

 

<%@ LANGUAGE="VBSCRIPT" %>

<!-- #include virtual= "../pagetop.txt"-->

<H2>Mission to Destiny</H2>

...

 

e o erro no browser:

 

Tipo de erro:

Active Server Pages, ASP 0126 (0x80004005)

O arquivo de inclusão '../pagetop.txt' não foi encontrado.

/asp3/news/destiny.ASP, line 2

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

 

Página:

GET /asp3/news/destiny.ASP

 

------------------

 

alguem poderia me ajudar?

 

valeu pela atencao

 

[]s

[Mário Monteiro 179]

com include virtaal a parada é um pouco diferente do include file normalvocê deve criar um diretorio virtual e colocar o endereço desce a raiz deste até o caminho final...

[I.K. 0]

eu consegui o efeito q eu desejava mudando para include file...n tinha tentado antes...oopsvou tentar essa dica suavaleu pela atencao

[Mário Monteiro 179]

eu consegui o efeito q eu desejava mudando para include file...n tinha tentado antes...oops

 

vou tentar essa dica sua

 

valeu pela atencao

beleza cara http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

normalmente uspo o include file mesmo pois é mais simples...

 

mas o server pode não aceitar incluir arquivos de diretorios superiores usando o ../ mas isso se for configurado assim

 

bem mas isso é outro papo

[I.K. 0]

Continuando no meu estudo aqui, "empaquei" em outro ponto...tentei algumas sugestões mas nada certo...Conexao ao BDtipo, eu fiz um formulario, ele roda e abre a pagina q "pega" os dados, abre a conexao e joga no BDporem, nada eh jogado no BD, e o pior, n aparece erro nenhum!!Segue o codigo:- register.asp<%@ LANGUAGE=VBSCRIPT %><!-- #include file="../pagetop.htm" --><h1>Registre-se</h1>Preencha este formulário para tornar-se um menbro do Primary Outpost<p><form action="../register/take_registration.asp">Identificação do Usuário Desejada: <input type="text" name="p_name" size=20 maxlength=15 value="MeuUsuário"><br>Senha: <input type="password" name="p_pass1" size="20"><br>Senha (confirmação): <input type="password" name="p_pass2" size="20"><br>Primeiro Nome: <input type="text" name="p_first" size="20"><br>Último Nome: <input type="text" name="p_last" size="20"><br>ENdereço Eletrônico: <input type="text" name="p_email" size="20"><p>Você acredita em aliens:<input type="radio" name="p_aliens" value="sim" checked> Absolutamente<input type="radio" name="p_aliens" value="não"> Não seja ridículo<p>Como você curte Ficção Científica?<br><input type="checkbox" name="p_medium" value="Televisão">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><input type="submit" value="Enviar Registro"><input type="reset" value="Começar novamente"></form><br><!-- #include file="../pagebottom.htm" --></body></html>- take_registration.asp<%@ LANGUAGE=VBSCRIPT %><!-- #include file="../pagetop.htm" --><% p_name = 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") p_aliens = Request.QueryString("p_aliens") p_medium = Request.QueryString("p_medium")%><% set outpostDB = server.createObject("ADODB.connection") outpostDB.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=C:\outpost.mdb" theSQL = "insert into members" theSQL = theSQL & "(p_name, password, firstname, lastname, " theSQL = theSQL & "email, believesinaliens)" theSQL = theSQL & "values ('"&p_name&"', '"&p_pass1&"', '"&p_first&"', '"&p_p_last&"', '"&p_email&"', '"&p_aliens&"')" outpostDB.Execute(theSQL) for each p_medium in Request.QueryString("p_medium") theSQL = "insert into p_name_medium (p_name, medium)" theSQL = theSQL & "values ('"&p_name&"', '"&p_medium&"')" outpostDB.Execute(theSQL) next outpostDB.close set outpostDB = Nothing%><h2>Registro de Usuários</h2>Usuário: <%= p_name %> <br>Senha: <%= p_pass1 %> <br>Senha (confirmação): <%= p_pass2 %> <br>Primeiro Nome: <%= p_first %> <br>Último Nome: <%= p_last %> <br>Endereço Eletrônico: <%= p_email %> <br>Você acredita em aliens? <%= p_aliens %> <br><% for each p_medium in Request.QueryString("p_medium")%> Mídia Preferida: <%= p_medium %> <BR><% next%><p><!-- #include file="../pagebottom.htm" --></body></html>valeu pela atencao[]s

[Mário Monteiro 179]

antes dessa linhaoutpostDB.Execute(theSQL)posta issoresponse.write theSQLresponse.ende posta aqui o que aparecer..

[I.K. 0]

seguinte erro:

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

--------------------------------------------------------------------------------

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F6)

'End' esperado

/livroasp3/register/take_registration.asp, line 36

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

 

Página:

POST 115 bytes to /livroasp3/register/take_registration.asp

 

POST Data:

p_name=rmc&p_pass1=cd&p_pass2=cd&p_first=Rafael&p_last=Carvalho&p_email=a@a.com.br&p_aliens=yes&p_medium=television

 

Hora:

sábado, 23 de abril de 2005, 14:57:36

 

----------------------

 

Segue abaixo o codigo novamente como esta agora:

 

- register.asp

 

<%@ LANGUAGE="VBSCRIPT" %>

<!--#include file="../pagetop.htm"-->

 

<H1>Register</H1>

Fill in this form to become a member of Primary Outpost.

<P>

 

<FORM ACTION="../register/take_registration.asp" method="post">

<TABLE BORDER=0>

<TR>

<TD>Desired Username: </TD>

<TD><INPUT TYPE="text" NAME="p_name" SIZE=20 MAXLENGTH=15></TD>

</TR>

<TR>

<TD>Password: </TD>

<TD><INPUT TYPE="password" NAME="p_pass1" size="20"></TD>

</TR>

<TR>

<TD>Password (again): </TD>

<TD><INPUT TYPE="password" NAME="p_pass2" size="20"></TD>

</TR>

<TR>

<TD>First Name: </TD>

<TD><INPUT TYPE="text" NAME="p_first" size="20"></TD>

</TR>

<TR>

<TD>Last Name: </TD>

<TD><INPUT TYPE="text" NAME="p_last" size="20"></TD>

</TR>

<TR>

<TD>Email Address: </TD>

<TD><INPUT TYPE="text" NAME="p_email" size="20"></TD>

</TR>

</TABLE>

Do you believe in aliens?

<INPUT TYPE="radio" NAME="p_aliens" VALUE="yes" CHECKED>Absolutely

<INPUT TYPE="radio" NAME="p_aliens" VALUE="no">Don't be ridiculous

<P>

How do you enjoy your science fiction?<BR>

<TABLE BORDER = 0>

<TR>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "television"></TD>

<TD>Television</TD>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "movies"></TD>

<TD>Movies</TD>

</TR>

<TR>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "books"></TD>

<TD>Books</TD>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "comics"></TD>

<TD>Comics</TD>

</TR>

<TR>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "online"></TD>

<TD>Online</TD>

<TD><INPUT TYPE="checkbox" NAME="p_medium" VALUE= "fanzines"></TD>

<TD>Fanzines</TD>

</TR>

<TR>

<TD colspan=2><INPUT TYPE="submit" VALUE="Submit Registration"></TD>

<TD colspan=2><INPUT TYPE="reset" VALUE="Start Over"></TD>

</TR>

</TABLE>

<P>

</FORM>

 

<!--#include file="../pagebottom.htm"-->

</BODY>

</HTML>

 

 

- take_registraion.asp

 

<%@ LANGUAGE="VBSCRIPT" %>

<!--#include file="../pagetop.htm"-->

<%

On Error Resume Next

 

p_userid = Request.Form("p_name")

p_pass1 = Request.Form("p_pass1")

p_pass2 = Request.Form("p_pass2")

p_first = Request.Form("p_first")

p_last = Request.Form("p_last")

p_email = Request.Form("p_email")

 

if p_pass1 = p_pass2 then

 

set outpostDB = server.createObject("ADODB.Connection")

outpostDB.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=C:\outpost.mdb"

 

theSQL = "insert into members "

theSQL = theSQL & "(p_name,password,firstname,lastname,"

theSQL = theSQL & "email,believesinaliens)"

theSQL = theSQL & " values ('"&p_name&"', '"&p_pass1&"', '"

theSQL = theSQL & p_first&"', '"&p_last&"', '"&p_email&"', '"

theSQL = theSQL & p_aliens&"')"

 

response.write theSQL

response.end

outpostDB.Execute(theSQL)

 

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

theSQL = "insert into p_name_medium (p_name, medium) values ('"

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

outpostDB.Execute(theSQL)

next

 

outpostDB.close

set outpostDB = Nothing

 

%>

 

<H2>User Registration</H2>

<!--#include file="../pagebottom.htm"--></BODY></HTML>

[dark0 0]

na pagina do erro.. você deve ter aberto um IF.. e não deve ter fechado ele..apenas coloque "END IF" para fechar o if.. que deve resolver..

[I.K. 0]

Bom dia

 

entao cara....colokei o end if no local certo como você me disse

 

dai a pagina agora roda!!! abre a take-registration mas soh o topo (q eh um include) q entra legal

 

no corpo da pagina "escapa" esse codigo:

 

insert into members(p_name, password, firstname, lastname, email, believesinaliens)values('', 'a', 'r', 'r', 'r', '')

 

 

e mais nada na page

 

http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[dark0 0]

isso eh pq no meio do seu codigo tem:response.write theSQLresponse.endO response.write ali.. vai mostrar na tela o SQL..E o response.end faz o processamento parar..é só apagar essas 2 linhas..beleza?