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?
ibreak's Content
There have been 56 items by ibreak (Search limited from 29/04/2023)
#729413 Erro No Formulário De Indicação.
Posted by
on 10/04/2006, 10:29
in
ASP
#729197 Erro No Formulário De Indicação.
Posted by
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?
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?
#729095 Erro No Formulário De Indicação.
Posted by
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...
<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...
#729763 Erro No Formulário De Indicação.
Posted by
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.
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.
#730058 Erro No Formulário De Indicação.
Posted by
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.
É 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.
#731747 Erro No Formulário De Indicação.
Posted by
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)
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
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...
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
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?
Não entendi pra estar resolvendo isso... porque o envio do link do aplicativo?
#728990 Erro No Formulário De Indicação.
Posted by
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.
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
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.
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® Windows® 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">
</p>
</body>
</html>
#728966 Erro No Formulário De Indicação.
Posted by
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
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
#723127 Erro Na Nova Paginação
Posted by
on 24/03/2006, 17:48
in
ASP
A conexão do sistema com o Banco de Dados é feito no Global.asa que fica no diretório raiz do meu site. Eu uso o Global.asa para fazer a conexão também com o DB de notícias do site.
Veja o Global.asa
Veja o Global.asa
<script language="VBScript" runat="server">
'Inicia as variaveis de aplicação
Sub Application_onStart()
' - - - -Conexao com o banco de dados - -- - -- - -- --- - - - - --
Application("Connection") = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Domains\noticiaregional.com.br\db\noticias.mdb;"
Application("connString") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Domains\noticiaregional.com.br\db\acesso.mdb"
End Sub
Sub Session_OnEnd
set conn = Server.CreateObject ("ADODB.Connection")
conn.Open Application("connString")
' Update the record when the user logout and write the logout time plus it sets the user as OFFLINE.
query = "UPDATE User_LogTime SET Logout_Time=#" & now() & "#, offline=True WHERE offline=False AND SID=" & Session.SessionID & " AND user_id=" & Session("member")
conn.Execute (query)
conn.Close
set conn = Nothing
End Sub
Sub Session_onStart()
Session.Timeout = 20
Session.LCID = 1046
End Sub
</script>
#731477 Erro Desconhecido No Upload...
Posted by
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.
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.
#723114 Erro Na Nova Paginação
Posted by
on 24/03/2006, 17:21
in
ASP
Generation valeu pela ajuda... Infelizmente ainda não resolvi o meu problema...
O erro que aparece agora é este:
Microsoft VBScript runtime error '800a01a8'
Object required: 'Conexao.ActiveConnection'
/login5/home.asp, line 16
Na linha 16 eu tenho isso:
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
Veja como está o meu código agora:
O erro que aparece agora é este:
Microsoft VBScript runtime error '800a01a8'
Object required: 'Conexao.ActiveConnection'
/login5/home.asp, line 16
Na linha 16 eu tenho isso:
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
Veja como está o meu código agora:
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->
<%
registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If
user = Session("member")
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros
sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "Nenhum registro encontrado"
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
rs.Close
rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
online = rs.RecordCount
rs.Close
set rs = nothing
Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
Response.Write "<tr bgcolor=#333366>"
Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
Response.Write "<td><font class=colltitle>IP:</a></td>"
Response.Write "</tr>" & vbcrlf
i = 1
while not rs_Log.EOF
if i mod 2 then
Response.Write "<tr class=defaultsmall>"
else
Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
end if
Response.Write "<td>" & rs_Log("SID") & "</td>"
Response.Write "<td>" & rs_Log("Login_Time") & "</td>"
if rs_Log("Logout_Time") <> "" then
Response.Write "<td>" & rs_Log("Logout_Time") & "</td>"
else
Response.Write "<td>N/A</td>"
end if
Response.Write "<td>" & rs_Log("user_ip") & "</td>"
Response.Write "</tr>" & vbcrlf
i = i + 1
rs_Log.MoveNext
wend
Response.Write "</table>"
Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"
else
Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
end if
rs_Log.Close
set rs_Log = nothing
%>
<a href='logout.asp' class=errmsg>Logout!</a>
<% 'Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
<b><%=rs("campo")%></b><br>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
'End If %>
#734056 Erro Desconhecido No Upload...
Posted by
on 24/04/2006, 14:08
in
ASP
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
on 28/04/2006, 14:15
in
ASP
Alguém pode ajudar?
Muito obrigado.
Muito obrigado.
#734180 Erro Desconhecido No Upload...
Posted by
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... 
#723186 Erro Na Nova Paginação
Posted by
on 24/03/2006, 20:51
in
ASP
Generation carregou apenas parte da página... veja o novo erro:
Este é seu primeiro acesso ao sistema.
Você ainda não tem histórico, faça o logout e logue-se novamente.
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/login5/home.asp, line 68
Na linha 68 eu tenho isso:
end if
rs_Log.Close
set rs_Log = nothing
%>
Generation desculpe esses problemas... não tem quem me ajude a resolver... Obrigado pela sua colaboração e de todo o fórum...
Evite posts seguidos, use o botao editar
Este é seu primeiro acesso ao sistema.
Você ainda não tem histórico, faça o logout e logue-se novamente.
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/login5/home.asp, line 68
Na linha 68 eu tenho isso:
end if
rs_Log.Close
set rs_Log = nothing
%>
Generation desculpe esses problemas... não tem quem me ajude a resolver... Obrigado pela sua colaboração e de todo o fórum...
A Conexão eu tirei de um global.asa que veio junto com o sistema de login... como o meu site já tem um global.asa eu então peguei e inseri a conexão do sistema de login dentro do meu global.asa do site...de onde voce tirou esse conexao ?
Acho que deve ficar assim:<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->
<%
registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If
user = Session("member")
set Conexao = Server.CreateObject ("ADODB.Connection")
Conexao.Open Application("connString")
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros
[]'s
Evite posts seguidos, use o botao editar
#731019 Erro Desconhecido No Upload...
Posted by
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"
^
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"
^
#722318 Erro Na Nova Paginação
Posted by
on 23/03/2006, 00:42
in
ASP
Oi pessoal, fiz uma nova paginação do meu sistema através de um tutorial da net
A página tá exibindo este erro:
Microsoft VBScript compilation error '800a0400'
Expected statement
/login5/home.asp, line 74
Wend
^
Na linha 74 eu tenho isso:
<b><%=rs("campo")%></b><br>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
Abaixo código completo da página:
A página tá exibindo este erro:
Microsoft VBScript compilation error '800a0400'
Expected statement
/login5/home.asp, line 74
Wend
^
Na linha 74 eu tenho isso:
<b><%=rs("campo")%></b><br>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
Abaixo código completo da página:
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->
<% registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If
user = Session("member")
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros
sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "Nenhum registro encontrado"
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
rs.Close
rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
online = rs.RecordCount
rs.Close
set rs = nothing
Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
Response.Write "<tr bgcolor=#333366>"
Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
Response.Write "<td><font class=colltitle>IP:</a></td>"
Response.Write "</tr>" & vbcrlf
i = 1
while not rs_Log.EOF
if i mod 2 then
Response.Write "<tr class=defaultsmall>"
else
Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
end if
Response.Write "<td>" & rs_Log("SID") & "</td>"
Response.Write "<td>" & rs_Log("Login_Time") & "</td>"
if rs_Log("Logout_Time") <> "" then
Response.Write "<td>" & rs_Log("Logout_Time") & "</td>"
else
Response.Write "<td>N/A</td>"
end if
Response.Write "<td>" & rs_Log("user_ip") & "</td>"
Response.Write "</tr>" & vbcrlf
i = i + 1
rs_Log.MoveNext
wend
Response.Write "</table>"
Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"
else
Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
end if
rs_Log.Close
set rs_Log = nothing
%>
<a href='logout.asp' class=errmsg>Logout!</a>
Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
<b><%=rs("campo")%></b><br>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
End If %>
#724696 Erro Na Nova Paginação
Posted by
on 28/03/2006, 16:42
in
ASP
GENERATION FIZ HOJE A COMPARAÇÃO MAS NÃO COMPRREENDI O PROBLEMA. A PÁGINA NÃO ESTÁ MAIS REPORTANDO ERRO, SÓ QUE TAMBÉM NÃO EXIBE AS INFORMAÇÕES DO DB. MOSTRA A PAGINAÇÃO ´MAS SEM RESULTADOS.
MEU CÓDIGO ESTÁ ASSIM:
MEU CÓDIGO ESTÁ ASSIM:
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->
<%
registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If
user = Session("member")
set Conexao = Server.CreateObject ("ADODB.Connection")
Conexao.Open Application("connString")
Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros
sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "Nenhum registro encontrado"
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
rs.Close
rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
online = rs.RecordCount
rs.Close
set rs = nothing
Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
Response.Write "<tr bgcolor=#333366>"
Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
Response.Write "<td><font class=colltitle>IP:</a></td>"
Response.Write "</tr>" & vbcrlf
i = 1
while not rs.EOF
if i mod 2 then
Response.Write "<tr class=defaultsmall>"
else
Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
end if
Response.Write "<td>" & rs("SID") & "</td>"
Response.Write "<td>" & rs("Login_Time") & "</td>"
if rs("Logout_Time") <> "" then
Response.Write "<td>" & rs("Logout_Time") & "</td>"
else
Response.Write "<td>N/A</td>"
end if
Response.Write "<td>" & rs("user_ip") & "</td>"
Response.Write "</tr>" & vbcrlf
i = i + 1
rs.MoveNext
wend
rs.Close
set rs = nothing
Response.Write "</table>"
Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"
else
Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
end if
%>
<a href='logout.asp' class=errmsg>Logout!</a>
<% 'Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
<% rs.MoveNext
Wend
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
'End If %>
#723768 Erro Na Nova Paginação
Posted by
on 26/03/2006, 18:35
in
ASP
Generation, desculpe a minha irgnorância mas não compreendi ao certo o erro que eu fiz... me refiro ao erro no rs_log?
Me desculpe, eu desconhecia que era possível editar neste fórum. Não vai acontecer mais.
Obrigado por toda ajuda...
Me desculpe, eu desconhecia que era possível editar neste fórum. Não vai acontecer mais.
Obrigado por toda ajuda...
#723386 Erro Na Nova Paginação
Posted by
on 25/03/2006, 13:26
in
ASP
Generation mais uma vez MUITÍSSIMO OBRIGADO.
Esse recordset chamado rs_log certamente veio do arquivo que eu me baseei para paginar. Estou quase certo que peguei ele da pagina de exemplo para fazer paginação.
De todas as vezes, desta o código executou quase que completo...
Veja o erro agora:
Este é seu primeiro acesso ao sistema.
Você ainda não tem histórico, faça o logout e logue-se novamente.
Logout!
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/login5/home.asp, line 76
Na linha 76 eu tenho isso aqui ó...
<b><%=rs("campo")%></b><br>
Eu não sei e não compreendi que campo é este que ele está consultando. Seria mais um campo errado?
Eu consultei o código do sistema (esta mesma página) sem paginação. O arquivo original, para tentar encontrar álguma referência a este campo, mas não localizei. Veja o code original.
Esse recordset chamado rs_log certamente veio do arquivo que eu me baseei para paginar. Estou quase certo que peguei ele da pagina de exemplo para fazer paginação.
De todas as vezes, desta o código executou quase que completo...
Veja o erro agora:
Este é seu primeiro acesso ao sistema.
Você ainda não tem histórico, faça o logout e logue-se novamente.
Logout!
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/login5/home.asp, line 76
Na linha 76 eu tenho isso aqui ó...
<b><%=rs("campo")%></b><br>
Eu não sei e não compreendi que campo é este que ele está consultando. Seria mais um campo errado?
Eu consultei o código do sistema (esta mesma página) sem paginação. O arquivo original, para tentar encontrar álguma referência a este campo, mas não localizei. Veja o code original.
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer = true%>
<!--#include file="verify_login.asp"-->
<!--#include file="header.asp"-->
<center>
<%
user = Session("member")
set rs_log = server.CreateObject ("ADODB.Recordset")
query = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC"
rs_log.Open query, Application("connString"), 3
if not rs_log.eof then
set rs = server.CreateObject ("ADODB.Recordset")
query = "SELECT * FROM Members WHERE id=" & user
rs.Open query, Application("connString"), 3, 3
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"
rs.Close
rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3
online = rs.RecordCount
rs.Close
set rs = nothing
Response.Write "<table cellspacing=2 cellpadding=2 width=50% >"
Response.Write "<tr bgcolor=#333366>"
Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>"
Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>"
Response.Write "<td><font class=colltitle>IP:</a></td>"
Response.Write "</tr>" & vbcrlf
i = 1
while not rs_Log.EOF
if i mod 2 then
Response.Write "<tr class=defaultsmall>"
else
Response.Write "<tr class=defaultsmall bgcolor=#dedede>"
end if
Response.Write "<td>" & rs_Log("SID") & "</td>"
Response.Write "<td>" & rs_Log("Login_Time") & "</td>"
if rs_Log("Logout_Time") <> "" then
Response.Write "<td>" & rs_Log("Logout_Time") & "</td>"
else
Response.Write "<td>N/A</td>"
end if
Response.Write "<td>" & rs_Log("user_ip") & "</td>"
Response.Write "</tr>" & vbcrlf
i = i + 1
rs_Log.MoveNext
wend
Response.Write "</table>"
Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>"
else
Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>"
end if
rs_Log.Close
set rs_Log = nothing
%>
<a href='logout.asp' class=errmsg>Logout!</a>
</center>
#723307 Erro Na Nova Paginação
Posted by
on 25/03/2006, 09:45
in
ASP
Generation agora vc me pegou... rs...
Vou postar novamento o código completo da página. O do Global.asa é como está acima...
Mais uma vez muito obrigado pela força...
Vou postar novamento o código completo da página. O do Global.asa é como está acima...
Mais uma vez muito obrigado pela força...
#731013 Erro Desconhecido No Upload...
Posted by
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
Abaixo código do formulário. upload.asp
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>
