Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Manckenna

Página Categoria .asp Não abre....

Por , em ASP Clássico

Recommended Posts

Manckenna    0

Manckenna
Postado

WinAjuda Pesquisar Membros Grupos FAQ Regras Estatísticas Arquivo

 

Perfil Mensagens Particulares novas: 0 Sair [ Manckenna ]

 

 

 

Página categoria.asp Não abre

 

 

Fórum WinAjuda - Índice do Fórum -> Programação e web

Exibir mensagem anterior :: Exibir próxima mensagem

Autor Mensagem

Manckenna

 

 

 

Registrado em: Domingo, 26 de Junho de 2005

 

Localização: Volta Redonda-RJ

Enviada: Dom Jul 17, 2005 6:33 pm Assunto: Página categoria.asp Não abre

 

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

 

Página categoria.asp Não abre

 

Não consigo abrir esta página no navegador alguém consegue ver erro ai? , alguém conhece algum programa que detecta este erro (se houver) ?

 

<%

DIM conCadLivro

DIM recLivro

DIM categoriaatual

DIM titulocategoria

categoriaatual=(Request.QuerySring("categoria1"))

If categoriaatual = "Administração" then

titulocategoria = "images/titulo_adm.jpg"

end if

If categoriaatual = "Eletrônica" then

titulocategoria = "images/titulo_eletronica.jpg"

end if

if categoriaatual = "Telecomunicações" then

titulocategoria = "images/titulo_telecom.jpg"

end if

if categoriaatual = "Sistemas Operacionais" then

titulocategoria = "images/titulo_sistoper.jpg"

end if

if categoriaatual ="computação Gráfica" then

titulocategoria = "images/titulo_compgraf.jpg"

end if

If categoriaatual = "Internet" then

titulocategoria = "images/titulo_Internet.jpg"

end if

const cntCaminho = "c:\inetpub\wwwroot\asp\cadlivro.mdb"

Set conCadLivro = Server.CreateObject("ADODB.Connection")

Set recLivro = Server.CreateObject("ADODB.Recordset")

ConCadLivro.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho

recLivro.Open "SELECT * FROM Livros where categoria='" & categoriaatual & "' ",concadlivro

%>

 

<html>

<head>

<title><Editora On-Line</title>

</head>

<body bgcolor="#ffffff">

<table border="0" cellpadding="0" cellspacing="0" width="610">

 

<tr>

<td colspan="3" width="100%"><img src="images/Logo_EditoraOnLine.gif" width "610" height="41"></td>

</tr>

<tr>

<td colspan="3" width="100%"><a href="SobreaEditora.htm"><img src="Images/Bt_SobreaEditora.jpg" width="131" height="21" border="0"></a><a href="Lancamento.asp?Lanc1=S"><img src="images/Bt_Lancamentos.jpg" width="126" height="21" border="0"></a><a href="Noticias.htm"><img src="images/Bt_Noticias.jpg" width="97" height="21" border="0"></a><a href="faleConosco.htm"><img src="images/bt_faleConosco.jpg" border="0" width="123" height="21" border="0"></a><a href="index.asp"><img src="images/Bt_PaginaPrincipal.jpg" border="0" width="133" height="21" border="0"></a></td>

</tr>

<tr>

<td colspan="3"><img src="images/Logo_CurvaSup.gif" width="153" height="18"></td>

</tr>

 

</table>

 

<table border="0" cellpadding="0" cellspacing="0" width="610">

 

<tr>

<td valign="top" align="center" width="132" background="images/Fundo_BarraLat.gif"><palign="center">

<a href="categoria.asp?categoria1=Administração"><img src="Images/Bt_AdmF1.gif" border="0" width="130" height="18"></a><br>

<a href="categoria.asp?categoria1=Eletrônica"><img src="Images/Bt_EletronicaF1.gif" border="0" width="130" height="18"></a><br>

<a href="categoria.asp?categoria1=Telecomunicações"><img src="images/Bt_TeleF1.gif" border="0" width="130" height="18"</a><br>

<a href="categoria.asp?categoria1=Sistemas Operacionais"><img src="Images/Bt_SistOperF1.gif" border="0" width="130" height="18"></a><br>

<a href="categoria.asp?categoria1=computação Gráfica"><img src="Images/Bt_CompGrafF1.gif" border="0" width="130" height="18"></a><br>

<a href="categoria.asp?categoria1=internet"><img src="Images/Bt_InternetF1.gif" border="0" width="130" height="18"></a><br><br>

<a href="http://www.oliviero.com.br"><img src="Images/Oliviero.gif" vspace="3" width="114" height="47" border="0"></a><br>

<a href="http://www.erica.com.br"><img src="Images/erica.gif" border="0" vspace="3" width="114" height="47" border="0"></a><br>

<a href="http://www.sili.com.br"><img src="Images/silicom.gif" vspace="3" width="114" height="49" border="0"><br></a></td>

<td valign="top" width="8"> </td>

<%

Response.write "<td width='470' valign='top' background='images/fundo01.gif'><img src='" & titulocategoria & "' " & " width='470' height='30'><br>"

%>

<font color='black' size='1' face='Arial'>Para ler o resumo de um livro clique sobre sua capa</font><br>

<%

Do While Not RecLivro.Eof

Response.Write "<table border='0' cellpadding='0' cellspacing='1' width='470'>"

Response.write "<tr>" & "<td valign='top' width='90%' bgcolor='#996600'><img src='redondo_es.gif' align='top' width='8' height='8'><font color='#ffffff' size='2' face='arial'><b>" & RecLivro.Fields("NomeLivro") & "</b></font></td>" & "<td valign='top' width='10%'></td>" & "</tr><br>"

Response.Write "<tr>" & "<td colspan='2' width= '100%' bgcolor='#ffcc99'><a href='detalhe.asp?codigo1=" & RecLivro.fields("Codigo") & "'><img src='images/" & RecLivro.Fields("Capa") & ".gif'" & "align='left' hspace='5' vspace='3' width='59' height='84' border='0'></a><font color='#000000' size='2' face='arial'><b>autor: " & RecLivro.Fields("NomeAutor") & "<br>"

Response.Write "Nº de páginas: " & RecLivro.Fields("NumPaginas") & "<br>"

Response.Write "Formato: " & RecLivro.Fields("Formato") & "<br>"

Response.Write "codigo: " & RecLivro.Fields("Codigo") & "<br>"

Response.Write "Preço: " & RecLivro.Fields("Preco") & "</b></font></td></tr></table>"

RecLivro.MoveNext

Loop

recLivro.Close

conCadLivro.close

%>

<p> </p>

</td>

</tr>

</table>

<p> </p>

</body>

</html>

_________________

Antonio Carlos Gomes

antonio.c.gomes@uol.com.br

manckenna@hotmail.com

http://skill.idiomas.sites.uol.com.br/ (Cique Aqui)

 

Voltar ao Topo

 

 

Resposta Rápida

 

 

 

Opções

Citar a última mensagem

Adicionar Assinatura (as assinaturas podem ser alteradas em Perfil)

Notificar-me quando for respondida

 

 

Mostrar os tópicos anteriores: Todas as mensagens1 Dia7 Dias2 Semanas1 Mês3 Meses6 Meses1 Ano Antigas primeiroRecentes primeiro

 

Fórum WinAjuda - Índice do Fórum -> Programação e web Todos os horários são GMT - 3 Hours

 

Página 1 de 1

Parar de observar este Tópico

 

Ir para: Selecione um Fórum Administração----------------AvisosProblemas, críticas, sugestões e dúvidas Windows----------------Windows XP, 2000 e 2003Windows 95, 98 e MeSoftwares em geralDeskmodDicas, tweaks e tutoriaisDrivers e Registro Assuntos específicos----------------HardwareNotícias e novidadesSegurançaProgramação e webJogos Extras----------------Tema livreClassificadosConversa Fiada

 

Enviar Mensagens Novas: Permitido.

Responder Tópicos: Permitido.

Editar Mensagens: Permitido.

Excluir Mensagens: Permitido.

Votar em Enquetes: Permitido.

 

 

 

 

WinAjuda © 2002-2005

Powered by phpBB © 2001, 2005 phpBB Group

Traduzido por: Suporte phpBB

Compartilhar este post

Link para o post
Compartilhar em outros sites

Manckenna    0

Manckenna
Postado

Tem como voce colocar ela na internet ON-LINE para podermos visuzalizar?

 

 

[]'s

<{POST_SNAPBACK}>

 

 

 

Pessoal o nosso colega Marcos 804 do fórum Script Brasil conseguiru solucionar o problema , veja minha observação abaix

 

QUOTE (marcos_804 @ Jul 17 2005, 11:31 PM)

Isso esta errado = 'Request.QuerySring'

fica cassim "Request.QueryString"

 

 

Rapaz você é de Deus simplesmente resolveu a situação ....

 

São pessoas como você que nos ensina a ser bons........MUITO GRATO. uma símples humildade nos mostra as vezes UMA GRANDE SOLUÇÃO.........

 

manckenna@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito