Jump to content


ibreak's Content

There have been 56 items by ibreak (Search limited from 29/03/2023)



Ordernar por                Order  

#815444 Inserir Banner Do Lado Da Notícia

Posted by ibreak on 12/01/2007, 12:38 in Dreamweaver

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



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

Posted by ibreak on 03/12/2006, 14:05 in ASP

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>



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

Posted by ibreak on 21/11/2006, 20:29 in ASP

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

%>



#785128 Como Trasmitir Tv Ao Vivo Pela Internet?

Posted by ibreak on 30/09/2006, 13:12 in Dúvidas Gerais

Não ajudou...



#784713 Como Trasmitir Tv Ao Vivo Pela Internet?

Posted by ibreak on 29/09/2006, 09:49 in Dúvidas Gerais

Tivin valeu pla Dica, tenho as seguintes dúvidas.

Pode me ajudar nelas.

Primeira dúvida, qual a placa mais recomendada para transmissão ao vivo pela internet?
Qual a melhor configuração do PC?
Tem alguma sugestão para um servidor de vídeo streaming que não seja tão caro?

Obrigado.

Jr.



#784633 Como Trasmitir Tv Ao Vivo Pela Internet?

Posted by ibreak on 28/09/2006, 21:51 in Dúvidas Gerais

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.



#754198 Erro Quando Faço Login No Sistema

Posted by ibreak on 27/06/2006, 00:55 in ASP

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.



#737194 Como Recuperar Nome Do Arquivo Enviado?

Posted by ibreak on 04/05/2006, 20:19 in ASP

Oi pessoal, tudo bem?

Eu tenho um formulário básico para enviar informações ao DB.

Existe um campo nesse formulário de texto com um botão enviar, que no momento em que clico nele abre uma popup para enviar a imagem.

Minha dúvida é a seguinte?

Depois que a foto foi enviada com sucesso, como pego o nome do arquivo enviado e salvo no campo texto do formulário.

Podem me ajudar.

Abaixo o código que envia a imagem. (Dundas Upload que renomeia o arquivo)

<%
' On Error Resume Next, passa por cima de possíveis erros
'On Error Resume Next

Dim objUpload, objUploadedFile
Dim lstFiles, strPath, str1File
Dim strNome, intItem, strMsg

'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = Server.CreateObject("Dundas.Upload.2")

' Seta a não necessidade de alteração de configurações no servidor.
objUpload.UseVirtualDir = False

'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE
'(default), ela vai anexar ao arquivo um número identificador. Estando FALSE,
'ela conserva o nome do arquivo original.
objUpload.UseUniqueNames = TRUE

'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo
objUpload.SaveToMemory

'Pega algumas variaveis importantes que estão presentes no form-html que
'chama esse script
'(é fundamental que estas atribuições só sejam feitas depois de rodar o
'"SaveToMemory"
strNome = objUpload.Form("Nome")
intItem = objUpload.Form("selItems")

'Redireciona para o caminho físico onde serão guardados os docs. dependendo
'do módulo
strPath = Server.MapPath("\news1\arquivos\adm")&"\fotos"&strNome&"\"

lstFiles = ""
For Each objUploadedFile in objUpload.Files 
str1File = objUpload.GetFileName(objUploadedFile.OriginalPath)
lstFiles = lstFiles & "<li>" & str1File & "<BR>"
'' Acrescenta como prefixo ao arquivo a chave do item em questao
'entre chaves

' --- Trocamos o nome do arquivo ---
'objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
objUploadedFile.SaveAs strPath & "FOTO"<NUMERO>".JPG"
Next

'Limpa a instância criada na memória do servidor.
Set objUpload = nothing

' Vericamos se existe algum erro no codigo acima

If Err <> 0 Then
' Mensagem de erro
response.write "<b>Erro no envio do arquivo</b>"
Else
response.write "Arquivo gravado com sucesso com a referencia " & intItem
response.write str1File
End If 

%>



#735559 Erro Desconhecido No Upload...

Posted by ibreak on 28/04/2006, 14:15 in ASP

Alguém pode ajudar?

Muito obrigado.



#734180 Erro Desconhecido No Upload...

Posted by ibreak on 24/04/2006, 17:55 in ASP

Fernando andei procurando na net algo sobre essa rotina para mudar o nome das fotos para uma sequência de números, mas não encontrei. Se você ou alguém puder ajudar nessa rotina agradeço... Valeu... :)



#734056 Erro Desconhecido No Upload...

Posted by ibreak on 24/04/2006, 14:08 in ASP

:D Pessoal depois de muitos testes consegui resolver o problema. O Upload está sendo feito agora. O problemas era apenas com o caminho da pasta que estava errada.

Tenho duas perguntas sobre o código e gostaria de que me ajudassem neste mesmo tópico...

Neste trecho do código completo acima,

objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File

o nome do arquivo é trocado. Suponhamos que eu envie o arquivo foto1.jpg, o Dundas Upload2 vai trocar para {}_foto1.jpg

Pelo que eu entendi ele apenas acrescenta os ítens em vermelho descritos no código ao nome do arquivo enviado.

Como eu poderia por exemplo fazer ele trocar o nome todo, tipo ao invés de apenas acrescentar caracteres ao nome, mudar o nome todo, como foto1.jpg, foto2.jpg, foto3.jpg e assim sucessivamente.

Eu procurei na busca do Fórum mas não encontrei em si ítens que falavam sobre isso...

Quero agradecer a todos que me ajudaram de álguma forma. Muito obrigado.



#733863 Renomear Com Aspupload

Posted by ibreak on 23/04/2006, 20:33 in ASP

:( Oi pessoal, blz... eu não tive muito sucesso no meu servidor tentando fazer upload. Andei procurando vários códigos aqui no Fórum, muitos testei, mas não funcionaram como deveriam...

Bem primeiro que recebi muitas informações dos internautas tipo, de que é melhor sempre fazer upload com componente... E de que também que tem componentes que não permitem renomear o arquivo que vc está enviando...

É o seguinte... eu consegui um código do Dundas que renomeia na hora que envia o arquivo, mas sempre reportava erro de permissão e o servidor alega que está tudo bem e que o erro é meu...

Ele me reomendou para eu fazer upload usando o ASPUpload, pois bem peguei o código ASPUpload e ele está funcionando... mas e agora como eu renomeio o arquivo no momento em que fazer o upload.

Outro detalhe é que eu preciso que o upload feito, seja captura pelo formulário para depois enviar para o DB. Tipo eu clico em enviar arquivo, abre uma popup, faço o upload e o nome do arquivo enviado vai pro formulário.

Podem me ajudar a resolver este problema...

O código abaixo, padrão, está funcionando...

Veja:

[code=auto:0]
<%
Dim objUpload
Set objUpload = Server.CreateObject("Persits.Upload")

' Tamanho máximo do arquivo, em bytes
objUpload.SetMaxSize 150000, True

x = objUpload.SaveVirtual("/news1/arquivos/adm/fotos")

Response.Write "Upload efetuado com sucesso"

Set objUpload = Nothing
%>
[code=auto:0]



#733540 Alguém Tem Um Código Aspupload?

Posted by ibreak on 22/04/2006, 15:20 in ASP

Oi pessoal, blz... bem eu postei aqui no Fórum um erro que tá ocorrendo com o Dundas... fala de que não é possível escrever na pasta, mas o servidor não alega problema álgum, por isso gostaria de usar o código aspupload que no envio renomeia o arquivo, tipo foto01, foto02 e etc...

Alguém tem o código aspmail pra enviar foto que renomeia no envio.

Obrigado.



#733068 Erro Desconhecido No Upload...

Posted by ibreak on 20/04/2006, 16:13 in ASP

Demorei a responder este post porque diante da resposta do Generation iniciei um processo de discussão com o servidor afim de verificar porque está ocorrendo esse erro de permissão na pasta. Bem depois de muita discussão eles me enviaram um link aonde o upload funciona normalmente.

O Upload é feito pelo dundas também.
Veja o código que eles testaram:

<% Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 150000
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = False

objUpload.Save "/"

Set objUpload = Nothing

Response.Write "Upload efetuado com sucesso"
%>

Não entendo porque este dá certo e o meu não. Veja o erro que continua a dar no meu código:

DSUpload.UploadedFile.2 error '80004005'

Can't open file for writing.

/teste/adm/upload2.asp, line 42


Na linha 42 do código, completo em mensagens anteriores, eu tenho isso:

' --- Trocamos o nome do arquivo ---
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
Next

Porque o meu continua a acusar erro de permissão e o que o servidor montou pra teste funciona?



#731747 Erro No Formulário De Indicação.

Posted by ibreak on 17/04/2006, 10:43 in ASP

Generation o meu link está aparecendo daquele jeito que eu te disse acima. Pode ser também alguma configuração do meu PC.

Bem o trecho que monta o link é este:

TXT = "<script language=JavaScript type=text/javascript>"
TXT = TXT & "function abrir(URL) {"
TXT = TXT & " var width = 232; var height = 266; var left = 99; var top = 99; "
TXT = TXT & "window.open(URL,'Player','width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');}"
TXT = TXT & "</script>"
TXT = TXT & "Nome: " & Request.form("seu_nome") & "<br>"
TXT = TXT & "E-mail: "&Request.form("seu_email")&"<br>"
TXT = TXT & "Para ver o vídeo clique no link abaixo ou copie para o navegador:<br>"
TXT = TXT & "<a href=java script:abrir http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&">Clique Aqui</a>"jmail.AppendHTML(TXT)



#731631 Erro No Formulário De Indicação.

Posted by ibreak on 16/04/2006, 22:47 in ASP

Generation pega aí... http://www.aldo.noti...star_videos.asp

Clica no teste e depois faça a indicação da notícia.

Obrigado pela ajuda...



#731477 Erro Desconhecido No Upload...

Posted by ibreak on 16/04/2006, 13:01 in ASP

Generation valeu pela ajuda...

Apareceu outro erro agora, pode me ajudar novamente.

Veja o erro:

DSUpload.UploadedFile.2 error '80004005'

Can't open file for writing.

/news1/arquivos/adm/upload2.asp, line 42


Na linha 42 eu tenho isso: (em vermelho)

' --- Trocamos o nome do arquivo ---
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
Next

Obrigado.



#731030 Erro No Formulário De Indicação.

Posted by ibreak on 14/04/2006, 14:17 in ASP

Generation nem sei como te agradecer kara... valeu pela força... bem andei testando a alteração que vc fez... e tá funcionando o código... quando eu recebo o e-mail com a indicação e clico no link abre uma caixa de aviso escrito none... e o link que eu recebo pra ver o vídeo vem assim... file:///C:/Document and settings/usuário/configuracoeslocais/dadosdeaplicativos/IM/runtine/message/(um monte de número/show/java...

Não entendi pra estar resolvendo isso... porque o envio do link do aplicativo?



#731019 Erro Desconhecido No Upload...

Posted by ibreak on 14/04/2006, 13:57 in ASP

Valeu Generation...

O erro que está aparecendo é este: (veja código acima)

Microsoft VBScript compilation error '800a0400'

Expected statement

/news1/arquivos/adm/upload2.asp, line 26

"SaveToMemory"
^



#731013 Erro Desconhecido No Upload...

Posted by ibreak on 14/04/2006, 13:41 in ASP

Oi pessoal, blz... montei uma página simples para envio de arquivos para o servidor usando o componente Dundas... muito popular na net por ser free...

Eu tenho um formulário básico que localiza e em seguida envia o arquivo.

Quando eu clico para enviar o arquivo abre uma janéla informando que a página não pode ser exibida, mostrando no final da página o seguinte erro:

HTTP 500 - erro interno do servidor
Internet Explorer


Bem não tenho nem idéia do que possa ser, por isso estou postando aqui o código da página responsável por enviar a foto...

UPLOAD2.ASP

<%
' On Error Resume Next, passa por cima de possíveis erros
'On Error Resume Next

Dim objUpload, objUploadedFile
Dim lstFiles, strPath, str1File
Dim strNome, intItem, strMsg

'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = Server.CreateObject("Dundas.Upload.2")

' Seta a não necessidade de alteração de configurações no servidor.
objUpload.UseVirtualDir = False

'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE
'(default), ela vai anexar ao arquivo um número identificador. Estando FALSE,
'ela conserva o nome do arquivo original.
objUpload.UseUniqueNames = False

'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo
objUpload.SaveToMemory

'Pega algumas variaveis importantes que estão presentes no form-html que
'chama esse script
'(é fundamental que estas atribuições só sejam feitas depois de rodar o
"SaveToMemory"
strNome = objUpload.Form("Nome")
intItem = objUpload.Form("selItems")

'Redireciona para o caminho físico onde serão guardados os docs. dependendo
'do módulo
strPath = Server.MapPath("..")&"\fotos\"&strNome&"\"

lstFiles = ""
For Each objUploadedFile in objUpload.Files 
str1File = objUpload.GetFileName(objUploadedFile.OriginalPath)
lstFiles = lstFiles & "<li>" & str1File & "<BR>"
'' Acrescenta como prefixo ao arquivo a chave do item em questao
'entre chaves

' --- Trocamos o nome do arquivo ---
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
Next

'Limpa a instância criada na memória do servidor.
Set objUpload = nothing

' Vericamos se existe algum erro no codigo acima

If Err <> 0 Then
' Mensagem de erro
response.write "<b>Erro no envio do arquivo</b>"
Else
response.write "Arquivo gravado com sucesso com a referencia " & intItem
End If 

%>

Abaixo código do formulário. upload.asp

<html>
<body>
<form method="post" action="upload2.asp" enctype="multipart/form-data">
Arquivo: <input type="file" name="arquivo">
<input type="submit" value="Enviar">
</form>
</body>
</html>



#730895 Como Pegar O Nome Do Arquivo Enviado.

Posted by ibreak on 14/04/2006, 01:37 in ASP

Luís Otávio obrigado pela ajuda... Não entendi de que forma devo usar o código que vc me enviou pra capturar o nome... pode me reorientar...

Obrigado...



#730163 Como Pegar O Nome Do Arquivo Enviado.

Posted by ibreak on 12/04/2006, 00:36 in ASP

Oi pessoal...

Gostaria de contar com a ajuda de vocês no seguinte problema.

Eu tenho um campo no meu formulário que se chama url. Do lado desse campo tem o botão escolher. Quando eu clico nele é aberta uma janéla popup com a página upload.asp(1º código). Eu seleciono o arquivo que eu quero e clico no botão para enviar o arquivo.

Acontece que quando eu faço isso... além deu não receber qualquer informação se o arquivo foi ou não enviado, o nome do arquivo que acabou de ser enviado, não é capturado pelo campo URL da tela principal. Nos testes que eu fiz a foto é enviada normalmente, mas o nome do arquivo não é capturado pela janéla principal depois de enviado na popup.

Como resolver isso...

Abaixo postei o código que faz o upload sem componente (deste fórum)... e mais abaixo o formulário que deverá capturar o nome do arquivo que foi enviado.

UPLOAD.ASP

<%
byteCount = Request.TotalBytes
'RequestBin = Request.BinaryRead(byteCount)

%>
<html>
<head>
<title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title>
<script LANGUAGE="JavaScript">
function Limit(upload) {
if (upload.file.value == "") { 
alert("Informe o nome do arquivo (.jpg ou .gif)!"); 
upload.file.focus(); 
return false; 
} 
vfile = upload.file.value; 
tfile = vfile.length; 

if ((vfile.substr(tfile - 4, 4) != ".jpg") & (vfile.substr(tfile - 4, 4) != ".gif")){ 
alert("O arquivo deverá possuir o formato (.jpg ou .gif)!"); 
upload.file.focus(); 
return false; 
} 
}
</script>

</head>
<body>

  <form name=upload OnKeyPress="return false;" OnSubmit= "return Limit(upload);" method=post ENCTYPE="multipart/form-data">
	Arquivo : <input type="file" name="file" size="20"><br>
	<input type=submit Name="Action" value="Upload do Arquivo">
  </form></input></input>
</body></HTML>

<!---#INCLUDE FILE="upload.inc" --->

<%

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields
  Set Fields = GetUpload()

If byteCount > 200000 Then
Response.write "Tamanho do arquivo: <font color='red'>" & byteCount & "</font><br>" 
Response.Write "<center>Não deu certo...</center>"
Response.End
End If
  
'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 
'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC
'DEIXE A BARRA "/" - PARA USAR NO SEU SITE
'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET

  FilePath = Server.MapPath("fotos") & "\" & Fields("file").FileName
  Fields("file").Value.SaveAs FilePath
End If
'BY - ROBERTO GODOY
%>

INCLUIR.ASP

<!--#include file="cookies.asp" -->
<% 
'Criando variáveis
Dim rsTipos

set rsTipos=server.createobject("adodb.recordset")

'Esta SELECT irá selecionar todos os tipos de notícias
'Neste caso, será para colocarmos no formulário as opções de escolher o tipo da notícia
rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd

%>

<script language="JavaScript">

function eventos() {

   var width = 350;
   var height = 300;

   var left = 0;
   var top = 0;
   
   self.name = 'opener';
   remote = open('upload2.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');
   remote.focus();


}
function enviarfoto() {

   var width = 350;
   var height = 200;

   var left = 0;
   var top = 0;
   
   self.name = 'enviarfoto';
   remote = open('upload.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');
   remote.focus();


}

</script>

<html>
<head>
<title>iMasters / ASP - Notícias</title>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" cellspacing="3" cellpadding="0">
  <tr valign="middle">
	<td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">ADMINISTRATIVO
		- ASP NOT&Iacute;CIAS</font></td>
  </tr>
  <tr>
	<td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
  </tr>
  <tr>
	<td width="126" height="277" valign="top" bgcolor="#BFEFFF"><table width="100%" border="0" cellspacing="2" cellpadding="1">
	  <tr>
		<td bgcolor="#FFFFFF"><a href="incluir.asp">
		  <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir
				Not&iacute;cia</strong></font></div>
		</a></td>
	  </tr>
	</table></td>
	<td width="600" valign="top"><blockquote>
	  <p><font face="Arial, Helvetica, sans-serif"><strong><font size="4">
		Incluir not&iacute;cia</font></strong></font></p>
	  <p><font size="2" face="Arial, Helvetica, sans-serif">Para incluir uma
		nova not&iacute;cia, preencha o formul&aacute;rio abaixo:</font></p>
	  <form name="form1" method="post" action="incluir2.asp">
		  <table border="0" align="center" cellpadding="0" cellspacing="3">
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">T&iacute;tulo:</font></div></td>
			  <td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2"> 
				  <input name="titulo" type="text" id="titulo" size="40">
				  </font></font></div></td>
			</tr>
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div></td>
			  <td><font size="2" face="Arial, Helvetica, sans-serif"> 
				<select name="tipo" id="tipo">
				  <% while NOT rsTipos.EOF %>
				  <option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option>
				  <%
			rsTipos.movenext
			wend
			%>
				</select>
				</font></td>
			</tr>
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div></td>
			  <td><font face="Arial, Helvetica, sans-serif"><font size="2"> 
				<textarea name="chamada" cols="40" id="chamada"></textarea>
				</font></font></td>
			</tr>
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conte&uacute;do:</font></div></td>
			  <td><font face="Arial, Helvetica, sans-serif"><font size="2"> 
				<textarea name="conteudo" cols="40" rows="5" id="conteudo"></textarea>
				</font></font></td>
			</tr>
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Data 
				  para expirar:</font></div></td>
			  <td><font size="2" face="Arial, Helvetica, sans-serif"> 
				<input name="expira" type="text" id="expira">
				</font></td>
			</tr>
			<tr> 
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td>
			  <td> <table width="100" border="0" cellspacing="0" cellpadding="1">
				  <tr> 
					<td><font size="2" face="Arial, Helvetica, sans-serif"> 
					  <input type="radio" name="destaque" value="1">
					  </font></td>
					<td><font size="2" face="Arial, Helvetica, sans-serif">Sim</font></td>
					<td><font size="2" face="Arial, Helvetica, sans-serif"> 
					  <input name="destaque" type="radio" value="0" checked>
					  </font></td>
					<td><font size="2" face="Arial, Helvetica, sans-serif">N&atilde;o</font></td>
				  </tr>
				</table></td>
			</tr>
			<tr>
			  <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div></td>
			  <td><table width="254" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td width="152" height="24"><input name="url" type="text" id="url" readonly> 
					</td>
					<td width="102"><table width="81" border="0" cellspacing="0" cellpadding="0">
						<tr> 
						  <td width="81"><font size="1" face="Arial, Helvetica, sans-serif">Escolher</font></td>
						</tr>
						<tr> 
						  <td><font size="1" face="Arial, Helvetica, sans-serif"><a href="java script:enviarfoto();">Enviar</a></font></td>
						</tr>
					  </table></td>
				  </tr>
				</table> </td>
			</tr>
			<tr> 
			  <td colspan="2"><div align="right"> 
				  <input type="submit" name="Submit" value="Cadastrar">
				</div></td>
			</tr>
		  </table>
	  </form>
	  <p>&nbsp;</p>
	</blockquote></td>
	<td width="40" bgcolor="#BFEFFF"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
  </tr>
  <tr>
	<td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">ASP
	- Not&iacute;cias</font></div></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>



#730058 Erro No Formulário De Indicação.

Posted by ibreak on 11/04/2006, 17:26 in ASP

Generation estou apanhando muito.... aqui...

É o seguinte...

tentando seguir a sua linha de raciocínio eu montei da seguinte forma...

TXT = "<script language=JavaScript type=text/javascript>"
TXT = TXT & "function abrir(URL) {var width = 232; var height = 266; var left = 99; var top = 99; window.open(URL,'Player','width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');}"
TXT = "</script>"
TXT = "Nome: " & Request.form("seu_nome") & "<br>"
TXT = TXT & "E-mail: "&Request.form("seu_email")&"<br>"
TXT = TXT & "Para ver o vídeo clique no link abaixo ou copie para o navegador:<br>"
TXT = TXT & "<a href="java script:abrir "http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&">Clique Aqui</a>"
jmail.AppendHTML(TXT)

Não está funcionando tá...
estou perto de fazer fonunciar?

Valeu pela força.



#729952 Erro Quando Obtenho Informações Usando Session

Posted by ibreak on 11/04/2006, 14:12 in ASP

Alguém pode me ajudar a resolver este problema?



#729944 Erro No Upload

Posted by ibreak on 11/04/2006, 14:03 in ASP

Oi Elo também estou com o mesmo problema quando tento enviar um arquivo de vídeo. Eu estou usando o componente de envio aspSmartUpload. Já verifiquei também permissão de escrita na pasta e o servidor fala a mesma coisa que eo seu disse... mas o erro continua. Assim que conseguir resolver o meu problema, postarei aqui o que me disseram... blz... abraço.




IPB Skin By Virteq