Jump to content

  2. → Viewing Profile: Tópicos: ibreak

ibreak

Member Since 18/03/2006
Offline Last Active 15/01/2007, 15:11
-----

Topics I've Started

Inserir Banner Do Lado Da Notícia

12/01/2007, 12:38

Oi pessoal, tudo bem

tenho uma dúvida que acredito er fácil de resolver.

Eu gostaria de inserir numa página um banner ao lado da notícia, assim como ficam as fotos ao lado das notícias também em sites e em jornais impressos.

Tentei fazer usando tabela mas não dá certo, já que a tabela divide em duas colunas não deixando o texto cair também para debaixo da foto no momento em que o texto é maior dq o banner...

Como que faço isso?

Obrigado.

paulo

Ajuda Para Chamar Link Do Db Para As Opções Do Menu.

03/12/2006, 14:05

Oi pessoal, estou precisando da ajuda de vocês...

Eu tenho um menu de um site, aonde a categoria que aparece no menu e as subcategorias vem de uma DB em Access...

Minha DB tem duas tabelas:
Tabela CATEGORIAS >> campos: ID, titulo, link
Tabela SUBCATEGORIAS >> campos: ID, categoria, titulo, link

O erro que está aprecendo é este:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'subcategorias'
/nr/menu/menu2.asp, line 48

Na linha 48 eu tenho isso:

response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA

Podem me ajudar neste código que estou tentando montar... O que eu quero é chamar no menu que aparece na página asp para cada opção cadastrada no menu, o link cadastrado para aquela opção...

Veja abaixo código completo da página:

<html>
<head>
<title>Menu Suspenso</title>
<style type="text/css">
.estilo1{
font-family: Arial;
font-size: 12px;
background: whitesmoke;
color: black;
}
.estilo2{
font-family: Arial;
font-size: 12px;
background: gray;
color: white;
}
</style>
</head>
<body>

<%
Dim StrCon, objCon, ComandoSQL, objRS, objRS2

StrCon = "Data Source=C:\Inetpub\wwwroot\nr\Menu\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open StrCon

strSQL = "SELECT titulo.categorias, subcategorias.titulo "
strSQL = strSQL & "FROM categorias "
strSQL = strSQL & "INNER JOIN subcategorias "
strSQL = strSQL & "ON categorias.id = subcategorias.categoria "
strSQL = strSQL & "ORDER BY Categorias.titulo, subcategorias.categoria"

ComandoSQL = " SELECT * FROM categorias ORDER BY titulo ASC"
Set objRS = objCon.Execute(ComandoSQL)
%>
<table border="1" bordercolor="silver" cellpadding="3" cellspacing="0">
<%
If Not objRS.EOF Then
  While Not objRS.EOF
  
titulo=""
while not objrs.eof
if objrs("titulo")<>titulo then
  response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?categoria="&objRS("id")&"','_self')"">"&objRS("titulo")&"</span>"'IMPRIME A CATEGORIA
titulo=objrs("titulo")' ALTERA O VALOR DE "TITULO"
end if
response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA
objrs.movenext
wend
  
%>

<tr>

<%
ComandoSQL = " SELECT * FROM subcategorias WHERE categoria=" & objRS("id") & " ORDER BY titulo ASC"
Set objRS2 = objCon.Execute(ComandoSQL)
%>
<div id="layer_menu_<%=objRS("id")%>" style="position:absolute; z-index:1; display: none" onMouseOut="this.style.display='none'">
<%
If Not objRS2.EOF Then
%>
<table border="1" bordercolor="silver" cellpadding="3" cellspacing="0">
<%
  While Not objRS2.EOF
%>
  <tr>
	<td class=estilo1 onMouseOver="this.className='estilo2'" onMouseOut="this.className='estilo1'">
	  <span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>&subcategoria=<%=objRS2("id")%>','_self')">
<%
Response.Write objRS2("titulo")
%>
	  </span>
	</td>
  </tr>
<%
	objRS2.MoveNext
  Wend
%>
</table>
<%
End If
%>
</div>
<%
Set objRS2 = Nothing
%>
	</td>
  </tr>
<%
	objRS.MoveNext
  Wend
End If
%>
</table>

<%
objRS.Close
Set objRS = Nothing
Set ComandoSQL = Nothing

objCon.Close
Set objCon = Nothing
Set StrCon = Nothing
%>

</body>
</html>

Código Que Captura Notícia De Um Site...

21/11/2006, 20:29

Pessoal, podem me ajudar na montagem dessa página...

Eu quero capturar as notícias da folha e colocar no meu site...
Pegar as notícias como nessa página:
http://www1.folha.uo...a/emcimadahora/

Pra ajudar eu peguei um código que pega a cotação do dolar e exibe na página... ele está funcionando...

Eu gostaria de mostrar as 5 últimas notícias, categoria, data e título e a data.

o arquivo é em xmlhttp.

Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar.

Vejam código abaixo:

<%
Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false
XMLHttp.send()
cotacao = XMLHttp.ResponseText
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo
response.Write(cotacoes)
dim valores()
dim cont, cont_valores
for cont = 1 to len(cotacoes) step 1
if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then
cont_valores = cont_valores + 1
Redim Preserve valores(cont_valores)
valores(cont_valores) = Cstr(str)
str = ""
else
str = str + mid(cotacoes,cont,1)
end if 
next
' Fim Coloca valores em uma Array

' Coloca os valores nas variaveis
DOLAR_COMERCIAL_COMPRA = valores(3)
DOLAR_COMERCIAL_VENDA = valores(4)
DOLAR_COMERCIAL_VARIACAO = valores(5)

DOLAR_PARALELO_COMPRA = valores(7)
DOLAR_PARALELO_VENDA = valores(8)
DOLAR_PARALELO_VARIACAO = valores(9)

DOLAR_TURISMO_COMPRA = valores(11)
DOLAR_TURISMO_VENDA = valores(12)
DOLAR_TURISMO_VARIACAO = valores(13)


'PTAX_COMPRA = valores(15)
'PTAX_VENDA = valores(16)
'PTAX_VARIACAO = valores(17)
' Fim coloca os valores nas variaveis

%>

Como Trasmitir Tv Ao Vivo Pela Internet?

28/09/2006, 21:51

Oi pessoal eu gostaria de saber como eu faço para transmitir uma canal de televisão ao vivo para a internet. O que eu preciso??? Programas???, Hospedagem???

Qual éo processo...

Poderiam me ajudar.

Obrigado.

Jr.

Erro Quando Faço Login No Sistema

27/06/2006, 00:55

Pessoal blz... quando faço o login num sistema de atnedimento on-line está reportando este erro:

Microsoft JET Database Engine error '80004005'

Not a valid file name.

/suporte/admin_login.asp, line 232

Na linha 232 eu tenho isso aqui:

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("SOS_conexao")
Set objRS = Server.CreateObject("ADODB.Recordset")

O que pode estar ocorrendo... Já mudei o caminho inúmeras vezes da página funções que faz a conexão com o DB mas nada adiantou...

veja o arquivo funções que faz a conexão com o DB:

'Define demais variaveis do sistema
Application("SOS_conexao") = "Data Source=" & endereco_fisico & "databases\SOSdatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Application("SOS_sistema_ativo") = True

Podem me ajudar a resolver...

Aguardo contato... Obrigado.

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: ibreak
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq