Jump to content

  2. → ibreak's Content

ibreak's Content

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


Tipos

See this member's


Ordernar por                Order  

#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?


#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>


#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.


#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"
^


#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.


#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... :)


#727817 Inserir Campo Para O Envio De Foto

Posted by ibreak on 05/04/2006, 15:57 in ASP

Operador muito bacana a sua explicação. Está de parabéns e tenho certeza que me ajudou muito... ficou até fácil compreender como funciona o sistema de envio de fotos.

Tenho álgumas duvidas e gostaria de que me ajudasse se possível...

A primeira delas é sobre a melhor forma de enviar a foto. Eu tenho um formulário já na página que pega o título a data e o texto e envia para o DB. Eu inclui nessa página um outro formulário que vai pegar a foto e vai ter o botão upload que vai mandar a foto para o servidor. Irá abrir um janéla popup dizendo que a foto foi enviada com sucesso.

Essa forma que eu criei é funcional e é uma forma legal de mandar as fotos?

Depois de mandar a foto, ficará o nome da foto no campo foto. Como eu configuro o outro formulário o que vai mandar a notícia para pegar o nome da foto e enviar para o DB. Veja o código abaixo como está o envio dos campos do dormulário. Minha dúvida é como falar pro formulário da notícia também pegar o que está escrito na caixa de texto da foto que foi enviada. Quando eu envio a foto o sistema deixa o nome da foto apenas...

Meu servidor suporta sim o Dundas...

<%if session("logado")="" then
response.Redirect("login.asp")
response.end
end if%>
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p><font size="5">Nova noticia</font></p>
<script language="JavaScript">

function abrir(URL) {

   var width = 400;
   var height = 200;

   var left = 99;
   var top = 99;

   window.open(URL,'Foto', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');

}

</script>

<table width="390" border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td width="390"><form method="POST" enctype="multipart/form-data" action="java script:abrir('http://localhost/news/upload.asp');">
<input type="FILE" size="40" name="FOTO"><br>
	  </form></td>
  </tr>
  <tr>
	<td><input name="submit" type=submit value="Upload!"></td>
  </tr>
</table>
<form name="form6" method="post" action="novaok.asp">
  <table border="0" cellspacing="0" cellpadding="0">
	<tr> 
	  <td><strong>Data:</strong></td>
	  <td> <input name="data" type="text" id="data" value="<%=date%>" readonly> 
	  </td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	</tr>
	<tr> 
	  <td><strong>Título</strong></td>
	  <td> <input name="titulo" type="text" id="titulo"> </td>
	</tr>
	<tr> 
	  <td><strong>Notícia</strong></td>
	  <td> <textarea name="noticia" cols="50" rows="10" id="noticia"></textarea> 
	  </td>
	</tr>
	<tr> 
	  <td> <input type="submit" name="Submit" value="Enviar"> </td>
	  <td> <input type="reset" name="Submit2" value="Limpar"> </td>
	</tr>
  </table>
</form>
<p><font size="5"></font> </p>
</body>
</html>


#727760 Inserir Campo Para O Envio De Foto

Posted by ibreak on 05/04/2006, 13:21 in ASP

Oi pessoal, peguei um sistema de notícias aqui do fórum na seção scripts prontos. Ele é bem padrãozinho, mas é bem legal.

Eu gostaria de criar nesse sistema uma opção para o envio de foto. Ele não tem esse sistema.

Sou iniciante em ASP então qualquer dica é sempre bem vinda.

Eu tenho um sistema de news em asp aonde vc cadastra a notícia e depois abre uma tela para o envio da foto para o ID da notícia que vc cadastrou anteriormente, mas acho complicado isso, até porque depois pra editar a foto como a notícia acaba sendo bem mais complicado.

Eu gostaria de saber qual a melhor forma de criar um campo para enviar a foto, e aonde ele deve ficar, tipo junto na hora que vc cadastra a notícia, ou depoisnde cadastrada, o que é melhor...

Existem técnicas em ASP para reduzir o tamanho da foto ou limitar o tamanho para que o usuário não envie um afoto gigantesca...

E o componente de envio. É melhor sem componente.

Se alguém tiver algums script ou informações detalhadas de como fazer isso agradeço de coração.

Muito obrigado.


#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)


#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.


#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...


#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?


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

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

Generation obrigado mais uma vez... Eu dei um SET na Variável porque senão o vídeo não é carregado. Foi um amigo meu que tinha um sistema similar de rádio e adaptou para vídeo. Sem o SET o vídeo não carrega.

Bem eu vi se imprimi o valor na janéla ver vídeo e imprimi sim... também fiz o mesmo na janéla de indicação e lá ele não imprimi... aparece em branco... isso quer dizer que a ID não está sendo enviada...

O comando que envia a ID quando eu clico no botão para indicar é este:

<iframe src="indicar.asp?ID_Video=<%=Request.querystring("id")%>" frameborder="0" scrolling="no" width="100%" height="270" name="indicar" marginwidth="1" marginheight="0"></iframe>

O que posso usar para a querystring enviar a ID?


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

Posted by ibreak on 10/04/2006, 23:56 in ASP

Generation deu certo...

Muitíssimo obrigado pela força.

Gostaria só de te pedir mais uma ajuda...

Na parte que o usuário recebe o link...

essa:

TXT = TXT & "<a href=http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&">Clique Aqui</a>"

Como eu mando o link para ser aberto numa popup de 232 de largura por 266 de altura...
No caso atual o usuário recebe o link e é carregado as info na página inteira. Eu preciso que seja exibido da página apenas os 232 de largura e os 266 de altura. O que posso fazer para que quando o usuário clicar no link que ele recebe abrir uma popup ou abrir a página com tamanho fixo.

Valeu pela força.


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

Posted by ibreak on 08/04/2006, 16:36 in ASP

Boa tarde galera.

Preciso mais uma vez da ajuda de todos vocês. Tenho o seguinte problema.
Tenho um formulário de indicação que apresenta dois problemas.

O primeiro é que se eu preencho o e-mail, nome ou não, ele faz o envio do mesmo jeito. Precisa haver uma obrigação para preencher todos os dados e também verificar se o endereço de e-mail é válido. Eu inseri esses scripts no meu sistema, mas não sei porque eles não funcionam e não verificam se foi ou não preenchidos os campos e se estão corretos.

O outro problema é que a indicação está chegando no e-mail indica de forma errada.
Eu recebo o link desta forma:

http://www.www.aldo.noticiaregional.com.br/ver_video.asp?id=

Ele aumenta mais um www e não acrescenta no final a ID da notícia em vídeo, fazendo então o link para a página.

Como posso resolver este problema?

Obrigado.

Paulo


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

Posted by ibreak on 09/04/2006, 00:10 in ASP

Generation to com o problema para a página (código lá em cima) pegar a ID. A ID está sendo enviada para a página de indicação assim:

<iframe src="indicar.asp?ID_Video=<%=Request.querystring("id")%>" frameborder="0" scrolling="no" width="100%" height="100%" name="indicar" marginwidth="1" marginheight="0"></iframe>

quando eu coloco o cursor do mouse em cima do botão que abre o formulário de indicação, aparece assim:
http://www.aldo.noticiaregional.com.br/tvonline/ver_video.asp?id=1#

No formulário de indicação ele recebe nesta linha:

jmail.AppendHTML ("Nome: "&Request.form("seu_nome")&"<br>E-mail: "&Request.form("seu_email")&"<br><br>"&Request.form("seu_email")&"<br><br><br>Para ver o vídeo clique no link abaixo ou copie para o navegador:<br><a onclick=""popup('http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&"','Player','width=235,height=220')"" href""#"">http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&"</a>")

Vale lembrar que no formulário que ele envia estou recebendo assim o link: (não está linkado, apenas aparece como endereço sem a ID no final)

http://www.aldo.noti...r_video.asp?id=

o que pode ser...


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

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

Generation vou procurar na seção Java Script como vc disse... Bem a parte que envia o link é esta:

jmail.AppendHTML ("Nome: "&Request.form("seu_nome")&"<br>E-mail: "&Request.form("seu_email")&"<br><br>"&Request.form("seu_email")&"<br>
<br><br>Para ver o vídeo clique no link abaixo ou copie para o navegador:<br><a onclick=""popup('http://www."...les("HTTP_HOST")&"/ver_video.asp?id="&Request.querystring("ID_Video")&"','Player',
'width=232,height=266')"" href""#"">http://www."...les("HTTP_HOST")&"/ver_video.asp?id="&Request.querystring("ID_Video")&"</a>")

Como te disse ele tá mandando um www a mais e tb não tá enviando a ID linkado...

Se puder ajudar fico grato.


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

Posted by ibreak on 09/04/2006, 16:24 in ASP

Generation mais uma vez valeu pela força... Vi no seu histórico de que vc é daqui da região minha... Eu sou de Rio Claro-SP.

Bem prometo seguir as suas dicas.
Achei bem legal a edição que você fez com o código... Tá muito legal...

Obrigado mesmo...
To estudando ASP até pra entender melhor muitas das dicas e scripts que o pessoal posta no Fórum...

Bem ficou bem legal e parou o erro de script, mas ainda continua o problema da ID em branco.

Generation eu já olhei em toda a página, desde a que envia até essa que recebe mas não consigo entender porque não captura a ID.

Vou postar aqui para que assim que tiver tempo... analise pra mim se é algo errado no envio da ID... eu olhei, fiz comprações com outras páginas mas não entendo o porque. Como te disse o link para clicar no botão de indicação mostra o envio da ID...

Código da página que faz envio da ID para indicação.

<%url="login"%>
<!--#include file = "config.asp" -->
<%Set id=Request.querystring("id")%>
<html>

<head>
<title>Player</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #000000;
}
-->
</style>
<script language=JavaScript>
<!--

//Disable right click script III- By Renigade (renigade@mediaone.net)
//For full source code, visit http://www.dynamicdrive.com
var message="";

function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if 
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers) 
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}

document.oncontextmenu=new Function("return false")
--> 
</script>

<script language=JavaScript>
var status;
status = 0

function onPause()	{

	if (navigator.appName.indexOf('Netscape') != -1)
			estado=document.MediaPlayer1.GetPlayState();
		else
			estado=document.MediaPlayer1.PlayState;

	if(estado==1)
			document.MediaPlayer1.Play();
	else if (estado==2)
			document.MediaPlayer1.Pause();

	}

function onVolumeUp() {
	if (MediaPlayer1.Volume <= -300) {
		MediaPlayer1.Volume = MediaPlayer1.Volume + 300;
	}
}

function onVolumeDown() {
	if (MediaPlayer1.Volume >= -8000) {
		MediaPlayer1.Volume = MediaPlayer1.Volume - 300;
	}
}
</script>

</head>

<body>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<!--





SISTEMA DE TV ON-LINE
Criador: Bruno Pacola
ICQ: 112104828
E-mail/MSN: brunopacola@hotmail.com 
Licença: Shareware
Data de criação: 17-02-2004 - Cuiabá-MT/Brasil





-->


<head>
<title>Player</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #000000;
}
-->
</style>
<script language=JavaScript>
<!--

//Disable right click script III- By Renigade (renigade@mediaone.net)
//For full source code, visit http://www.dynamicdrive.com
var message="";

function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if 
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers) 
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}

document.oncontextmenu=new Function("return false")
--> 
</script>

<script language=JavaScript>
var status;
status = 0

function Redirecionar()
{
if (status == 1){
		window.resizeTo(243,300);
status = 0
}
else
{
		window.resizeTo(600,329);
status = 1
}
}

function onPause()	{

	if (navigator.appName.indexOf('Netscape') != -1)
			estado=document.MediaPlayer1.GetPlayState();
		else
			estado=document.MediaPlayer1.PlayState;

	if(estado==1)
			document.MediaPlayer1.Play();
	else if (estado==2)
			document.MediaPlayer1.Pause();

	}

function onVolumeUp() {
	if (MediaPlayer1.Volume <= -300) {
		MediaPlayer1.Volume = MediaPlayer1.Volume + 300;
	}
}

function onVolumeDown() {
	if (MediaPlayer1.Volume >= -8000) {
		MediaPlayer1.Volume = MediaPlayer1.Volume - 300;
	}
}
</script>

</head>

<body>
<table border="0" cellpadding="0" cellspacing="0" width="600">
  <!-- fwtable fwsrc="Untitled" fwbase="pac.jpg" fwstyle="Dreamweaver" fwdocid = "484919907" fwnested="0" -->
  <tr>
	<td><img src="images/spacer.gif" width="14" height="1" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="205" height="1" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="16" height="1" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="365" height="1" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
	<td colspan="3"><img name="pac_r1_c1" src="images/pac_r1_c1.jpg" width="235" height="8" border="0" alt=""></td>
	<td rowspan="6" background="images/pac_r1_c4.jpg"><div align="center">
		[color=#FF0000]<iframe src="indicar.asp?ID_Video=<%=Request.querystring("id")%>" [/color] frameborder="0" scrolling="no" width="100%" height="270" name="indicar" marginwidth="1" marginheight="0"></iframe>
	</div></td>
	<td><img src="images/spacer.gif" width="1" height="8" border="0" alt=""></td>
  </tr>
  <tr>
	<td rowspan="2"><img name="pac_r2_c1" src="images/pac_r2_c1.jpg" width="14" height="189" border="0" alt=""></td>
	<td background="images/pac_r2_c2.jpg">
	 <object id="MediaPlayer1" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715" standby="Loading Microsoft&reg; Windows&reg; Media Player components..." type="application/x-oleobject" width="205" height="180">
	  <param name="FileName" value="arquivo.asp?ID=<%=id%>">
	  <param name="ShowDisplay" value="FALSE">
	  <param name="ShowStatusBar" value="TRUE">
	  <param name="StatusBar" value="True">
	  <param name="AnimationAtStart" value="True">
	  <param name="ShowAudioControls" value="True">
	  <param name="ShowPositionControls" value="true">
	  <param name="ShowControls" value="False">
	  <param name="AutoSize" value="False">
	  <param name="AutoStart" value="TRUE">
	  <param name="AutoRewind" value="TRUE">
	  <embed width="205" height="180" filename="arquivo.asp?ID=<%=id%>" showdisplay="FALSE" showstatusbar="TRUE" statusbar="True" animationatstart="True" showaudiocontrols="True" showpositioncontrols="False" showcontrols="False" autosize="False" autostart="TRUE" autorewind="TRUE" src="arquivo.asp?ID=<%=id%>"></embed>
		</object>
		</td>
	<td rowspan="2"><img name="pac_r2_c3" src="images/pac_r2_c3.jpg" width="16" height="189" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="1" height="180" border="0" alt=""></td>
  </tr>
  <tr>
	<td><img name="pac_r3_c2" src="images/pac_r3_c2.jpg" width="205" height="9" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="1" height="9" border="0" alt=""></td>
  </tr>
  <tr>
	<td colspan="3"><img src="images/pac_r4_c1.jpg" alt="" name="pac_r4_c1" width="235" height="39" border="0" usemap="#pac_r4_c1Map"></td>
	<td><img src="images/spacer.gif" width="1" height="39" border="0" alt=""></td>
  </tr>
  <tr>
	<td colspan="3"><img src="images/pac_r5_c1.jpg" alt="" name="pac_r5_c1" width="235" height="29" border="0" usemap="#pac_r5_c1Map"></td>
	<td><img src="images/spacer.gif" width="1" height="29" border="0" alt=""></td>
  </tr>
  <tr>
	<td colspan="3"><img name="pac_r6_c1" src="images/pac_r6_c1.jpg" width="235" height="35" border="0" alt=""></td>
	<td><img src="images/spacer.gif" width="1" height="35" border="0" alt=""></td>
  </tr>
</table>
<map name="pac_r4_c1Map">
  <area shape="rect" coords="161,6,187,23" href="#" alt="Baixar Volume" onClick="onVolumeDown();">
  <area shape="rect" coords="132,6,158,23" href="#" alt="Aumentar Volume" onClick="onVolumeUp();">
  <area shape="rect" coords="103,6,129,23" href="#" alt="Pausa" onClick="onPause();">
  <area shape="rect" coords="74,6,100,23" href="#" alt="Stop" onClick="document.MediaPlayer1.Stop()">
  <area shape="rect" coords="45,6,71,23" href="#" alt="Play" onClick="document.MediaPlayer1.Play()">
</map>
<map name="pac_r5_c1Map">
  <area shape="rect" coords="69,9,172,22" href="#" onClick="Redirecionar();">
</map>
</body>
</html>
<body>

<p align="center">&nbsp;
	 </p>

</body>

</html>


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

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

Generation eu mudei como você indicou, mas ainda não recebo a indicação com a ID, veja como está...

jmail.AppendHTML ("Nome: "&Request.form("seu_nome")&"<br>E-mail: "&Request.form("seu_email")&"<br><br>"&Request.form("seu_email")&"<br>
<br><br>Para ver o vídeo clique no link abaixo ou copie para o navegador:<br><a onclick=""popup('http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("ID_Video")&"','
Player','width=235,height=220')"" href""#"">http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("ID_Video")&"</a>")

Aind anão recebi...

Eu notei que quando recebo o e-mail e abro no Incredimail ela fala que a mensagem contém erros no script... acha que pode ter álguma coisa haver?


#728605 Erro No Envio De Newsletter, Componente?

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

Boa tarde. Pessoal gostaria de pedir a colaboração de vocês pra me ajudar a entender o seguinte erro:

A Mensagem foi adicionado no historico com sucesso !

Microsoft VBScript runtime error '800a0046'

Permission denied

/boletim/enviar.asp, line 42

Na linha 42 eu tenho isso aqui: (em vermelho)

While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From=emailadministrador
mail.To=rs_sendmail("email")
mail.Subject=Assunto
Mail.BodyFormat=0
Mail.MailFormat=0
mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If

O suporte do meu servidor de hospedagem disse que é porque não existe mais o CDonts e sim CDosys, acho que é isso... Caso seja isso, alguém poderia me ajudar a mudar o componente para que o newsletter funcione...

Obrigado...


#728740 Erro No Envio De Newsletter, Componente?

Posted by ibreak on 07/04/2006, 18:23 in ASP

Guitar bem legal o post.

Estou com álgumas dificuldades sobre a transferência de CDonts Para CDOSYS.

Bem está aparecendo este erro:

A Mensagem foi adicionado no historico com sucesso !

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/boletim/enviar.asp, line 50

Na linha 50 eu tenho isso (em vermelho)

set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "mail.aldo.noticiaregional.com.br"
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailadministrador
objCDOSYSMail.to = Session("email")
objCDOSYSMail.Subject = Assunto
'objCDOSYSMail.BodyFormat=0
'objCDOSYSMail.MailFormat=0
objCDOSYSMail.htmlBody = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Deu também estes erros nas duas linhas acima, 'objCDOSYSMail.BodyFormat=0 / 'objCDOSYSMail.MailFormat=0, e eu comentei... o erro que deu foi este.

A Mensagem foi adicionado no historico com sucesso !

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyFormat'

/boletim/enviar.asp, line 47

Podem me ajudar a resolver o problema do newsletter. Obrigado.

Vejam código completo da página.

<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<!--#INCLUDE file="topogeral.inc" -->
<%
'-------------------------------------------------------------
'-------------------------------------------------------------
Response.write "<div align=""center"">"
Function Plic(strTexto)
 Temp = Replace(strTexto, "'", "''")
 Plic = Replace(Temp, """", """")
End Function

Assunto = Request("Assunto")
Mensagem = Request("Mensagem")
Data = Date()
sSQL="SELECT * FROM Masters"
Set rs=ConnStr.Execute(sSQL)
emailadministrador=rs("email")
Set rs=Nothing
sql_select = "select * from Lista"
no = 0
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, ConnStr
if rs_sendmail.EOF then
Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"
Else
strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')"
ConnStr.Execute(strSQL)
Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"
While Not rs_sendmail.EOF

set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.aldo.noticiaregional.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailadministrador
objCDOSYSMail.to = Session("email")
objCDOSYSMail.Subject = Assunto
objCDOSYSMail.BodyFormat=0
objCDOSYSMail.MailFormat=0
objCDOSYSMail.htmlBody = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing

no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado:  " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
Response.write "</div>"
%>
<!-- #include file="undergeral.inc"-->
<!-- #include file="fecharconexao.asp"-->


#728847 Erro No Envio De Newsletter, Componente?

Posted by ibreak on 08/04/2006, 01:40 in ASP

Guitar valeu pela explicação...

quanto a estas duas linhas...

Mail.BodyFormat=0
Mail.MailFormat=0

elas não funcionam no código do jeito que estão... dão este erro:


A Mensagem foi adicionado no historico com sucesso !

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyFormat'

/boletim/enviar.asp, line 47

Como posso passar apenas estas duas linhas para funcionarem junto do CDOSYS


#728818 Erro No Envio De Newsletter, Componente?

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

Guitar valeu pela força... O erro estava naquela linha mesmo que você me passou...

Estava assim: objCDOSYSMail.to = Session("email")
Eu coloquei assim: objCDOSYSMail.to=rs_sendmail("email")

Agora está funcionando...

Eu removi essas duas linhas do código como te disse acima que estavam dando erros... isso vai gerar álgum problema. Para que serve esses comandos:

Mail.BodyFormat=0
Mail.MailFormat=0

Mais uma dúvida final. Eu estava com um problema que dizia que não encontrava o include, o caminho estava assim: <!-- #include virtual="include/adovbs.inc" --> e eu mudei para isso e resolveu. <!-- #include file="include/adovbs.inc" -->

É só um outro processo de inserir include ou faz álguma diferença na include. É uma curiosidade.

Muito obrigado.


#728995 Ajuda Para Montar Código... Sistema De Upload Pronto

Posted by ibreak on 08/04/2006, 18:23 in Dúvidas sobre Scripts Prontos de ASP

Oi pessoal blz...

To aqui mais uma vez para pedir a ajuda dos profissionais que compreendem legal o ASP...

É o seguinte neste link abaixo eu disponibilizei um upload sem componente que eu baixei na net muito recomendado por não apresentar nenhuma falha ou dificuldade. Eu testei ele aqui e ele tá bem legal. Eu montei as páginas e o DB. Tá tudo no zip pra quem precisar desse upload sem componente. Segundo os sites que eu vi ele, ele é um dos melhores sistemas de upload sem componente.

Upload SEM Componente em ZIP (Envio de foto com DB)

Bem a ajuda que eu preciso é a seguinte...

Eu gostaria de utilizar este sistema de upload no zip nesta página... tipo no meu caso eu não preciso do DB que está no ZIP nem do formulário1, eu só preciso da mesma função de envio mas nessas mesmas estruturas como está o código abaixo. Eu não entendo legal de ASP, então não sei de que forma possa impregar o upload do ZIP nessa página...

Podem me ajudar?

	<script language="JavaScript">
		function video(URL) 
		{
		opener.document.video.selurl.value=URL;
		
	
		self.close();
		}
	</script>
	<link rel=stylesheet href="images/styles.css" type="text/css">
<form method="POST" enctype="multipart/form-data" name="enviarfoto">
	<p><input type="file" name="File1" size="20"><br>
	<input type="submit" value="Enviar" name="action"></p>
</form>
<!---#INCLUDE FILE="upload.inc" --->

<%
Dim Obj,objpasta, num, pasta
pasta = Request.querystring("pasta") 
Local = server.mappath("videos/")
Set Obj = Server.CreateObject("Scripting.FileSystemObject")
Set objpasta = Obj.GetFolder(Local)
num = objpasta.files.count
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  Set Fields = GetUpload()
  FilePath = server.mappath("videos/video_" &num& Right(Fields("File1").FileName,4))
  arquivo="video_"&num&Right(Fields("File1").FileName,4)
  Fields("File1").Value.SaveAs FilePath
  If Right(arquivo,3)="avi" OR Right(arquivo,3)="mpeg" OR Right(arquivo,3)="mpg" OR Right(arquivo,3)="wmv" then
%>
<META HTTP-EQUIV="refresh" CONTENT="0; URL=java script:%20video('videos/<%=arquivo%>');">
<%
else
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	  objFS.DeleteFile(Server.MapPath("videos/"&arquivo))
Set objFS = Nothing
%>
<script language="JavaScript">
{
opener.document.video.selurl.value='Este formato não é válido';
self.close();
}
</script>
<%
  end if
  Set objFS = Nothing
%><%
  end if
%>



  1. Fórum WMO
  2. → ibreak's Content
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq