21 replies to this topic

[ibreak]

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

[Generation]

entao paulo, voce pode fazer essa restrição de preenchimento dos dados no ofrmulario usando JavaScript, faça uma busca na seção JavaScript por validar, agora qto ao link, post a parte do codigo que contem esse link para vermos o que ocorre, provavelmente é algum www a + que voce inseriu ...

[]'s

[ibreak]

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.

[Generation]

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."&Request.ServerVariables("HTTP_HOST")&"/ver_video.asp?id="&Request.querystring("ID_Video")&"','Player',
'width=232,height=266')"" href""#"">http://www."&Request.ServerVariables("HTTP_HOST")&"/ver_video.asp?id="&Request.querystring("ID_Video")&"</a>")

quando voce usa Request.ServerVariables("HTTP_HOST"), ele ja te retorna o www.dominio.com, nao é necessario colocar o www antes, como te disse voce colocou a + , veja em vermelho...basta retira-los...agora quanto ao link, qual o metodo que voce esta utilizando para enviar pelo formulario ? QueryString mesmo ? , creio que estejam com os valores vazios, por isso nao aparecem no email..de uma olhada se esta sendo enviado algum valor pelo formulario

[]'s

[ibreak]

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

[Generation]

note que a sua QueryString nao se chama mais id e sim ID_Video, substitua onde esta em vermelho pelo no certo da QueyrString

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

[]'s

[ibreak]

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?

[Generation]

Bom a 1ª dica que vou lhe dar é..

1ª organize seu codigo para que possa entender ele por completo
2ª voce esta mandando um onclick com uma funcao JavaScript que nao esta definida no corpo do email, por isso mostra erros no script

veja como fica melhor visualizavel qdo se deixa o codigo legivel

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=http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("ID_Video")&">Clique Aqui</a>"
jmail.AppendHTML(TXT)

[]'s

[ibreak]

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>

[Generation]

nao sei porque voce deu um set na variavel id no inicio do cogido, mas faça essas alterações logo no inicio..

<%url="login"%>
<!--#include file = "config.asp" -->
<%
Response.Write Request.QueryString("id")
Response.end()
%>
<html>

veja se imprimi algum valor no browser, o problema esta nesse valor que nao esta sendo passado pela QueyString

[ibreak]

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?

[Generation]

voce esta usando um iframe ?


coloque isso no lugar e veja se da certo

<a href="indicar.asp?ID_Video=<%=Request.querystring("id")%>">indique este video</a>

[]'s

[ibreak]

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.

[Generation]

bom voce precisa incluir o codigo javascript que abre a janela no corpo do email que vai ser enviado para que o mesmo nao apresente erro na hora de executar..lembra-se de como eu montei a estrutura do html ? TXT = TXT & "" ... entao é necessario que voce coloque o codigo javascript dentro dessa variavel TXT...como?? hum tem que começar a apanhar pra ficar bem gravado...veja um exemplo ...

TXT = "<script language=JavaScript type=text/javascript>"
TXT = TXT & "<!--"
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=http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("ID_Video")&">Clique Aqui</a>"
jmail.AppendHTML(TXT)

note o que esta em vermelho é o codigo javascript, bas inserir o seu igual eu comecei a fazer e modificar o link do jeito certo para que abra o pop-up


[]'s

[ibreak]

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.