ibreak's Content

Search Avançado
Onde procurar

Fóruns

Membros

Help Files
Novas postagens

Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

ibreak's Content

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

Tipos

See this member's

Ordernar por

Order

#733863 Renomear Com Aspupload

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

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

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

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

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

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

Podem me ajudar a resolver este problema...

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

Veja:

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

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

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

Response.Write "Upload efetuado com sucesso"

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

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

#815444 Inserir Banner Do Lado Da Notícia

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

Oi pessoal, tudo bem

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

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

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

Como que faço isso?

Obrigado.

paulo

#729245 Erro Quando Obtenho Informações Usando Session

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

Pessoal eu tenho um formulário aonde preecho todas as informações, procuro uma foto no pc para enviar e quando clico para enviar o formulário, usando o método post (neste mesmo momento é feito o upload de uma imagem sem componente), aparece um erro...

Eu faço o envio do formulário assim:

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">

Eu envio as info que são capturadas usando session...

O erro que está aparecendo é este:

Tipo de erro:
Objeto Request, ASP 0207 (0x80004005)
Não é possível usar a coleção Request.Form após chamar BinaryRead.
/news1/arquivos/adm/upload_form2.asp, line 10

Na linha 10 eu tenho isso:

SESSION ("titulo") = Request.form("titulo")

Qual pode ser o erro...

Veja abaixo código completo da página que dá o erro...

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
SESSION ("titulo") = Request.form("titulo")
SESSION ("tipo") = Request.form("tipo")
SESSION ("chamada") = Request.form("chamada")
SESSION ("conteudo") = Request.form("conteudo")
SESSION ("expira") = Request.form("expira")
data=day(now)&"/"&month(now)&"/"&year(now)
SESSION ("destaque") = Request.form("destaque")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/noticia" + nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../bd/base.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

'Faremos aqui a inserção de todos os dados digitados no form anterior
meubd.EXECUTE "INSERT INTO noticias (titulo, chamada, tipo, conteudo, expirar, data, destaque, foto) values ('"&titulo&"','"&chamada&"',"&tipo&",'"&conteudo&"','"&expira&"','"&data&"',"&destaque&"','"&cfoto&")"

' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"

'Logo após a inserção dos dados, mostrará uma mensagem e voltará para a página principal.asp
response.write "<script>location = 'principal.asp';alert('Sua notícia foi cadastrada com sucesso!')</script>"
%>

#729331 Erro Quando Obtenho Informações Usando Session

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

Guitar eu tava vendo o link que vc indicou...

Bem tenho as seguintes dúvidas...

Tipo no primeiro campo eu usei do jeito que você indicou no seu post do link... veja:

<select name="tipo">
<% while NOT rsTipos.EOF %>
<option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option>
<%
rsTipos.movenext
wend
%>
</select>

Já os demais campos estão assim...

<textarea name="chamada" cols="40" id="chamada"></textarea>

Eu tb tenho que mudar eles para assim:

<selected name = "chamada">
<textarea cols="40" id="chamada"></textarea>

e quando eu clicar no botão para enviar a foto ele mandará todos os dados correto para a outra página...

O comando está assim... <input type=button value="Cadastrar" onclick="document.form1.action='upload_form2.asp?tipo='+document.form1.tipo.value;document.form1.submit()">

Como e de que forma eu separo para enviar mais de um campo do formulário... pode me orientar...

Valeu por toda força.

#729952 Erro Quando Obtenho Informações Usando Session

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

Alguém pode me ajudar a resolver este problema?

#722131 Erro Quando Fiz Paginação.

Posted by ibreak on 22/03/2006, 15:39 in ASP

Galera ainda não consegui resolver o que estou considerando um dos maiores problemas que já tive. Gostaria de que alguém me ajudasse se souber aonde está o problema. Muito obrigado.

#721110 Erro Quando Fiz Paginação.

Posted by ibreak on 20/03/2006, 16:08 in ASP

Humberto eu acessei o link e li o erro. Generation eu não entendi bem o que você me disse para fazer, veja o que disse...

sugiro que dê outro nome a ele (Recordset?), assim voce nao se perde. Como posso fazer isso para resolver o meu problema?

Pode me orientar melhor se possível exemplificar como tem que ficar para funcionar.

Agradeço a resposta. Obrigado Humberto.

#721473 Erro Quando Fiz Paginação.

Posted by ibreak on 21/03/2006, 13:12 in ASP

Alguém pode me ajudar?

#720379 Erro Quando Fiz Paginação.

Posted by ibreak on 18/03/2006, 14:25 in ASP

Oi pessoal blz...

Eu estou com um problema de difícil resolução. Eu tenho uma página que exibe o histórico de login de toda vez que o usuário acessou o site. Com o passar do tempo, depois de inúmeros acessos a página vai ficando extendida, por isso eu tentei paginar ela de forma que ficasse mais organizada.

No momento em que fiz isso acabou aparecendo inúmeros erro.

O erro que aparece agora é este:

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

/login5/home.asp, line 42

Na linha 42 eu tenho isso:
Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>"

Eu já verifiquei o nome dos campos no DB e estão todos certos. Se quiserem verificar por via das dúvidas, neste link vc faz o download do DB.
Download do BD Acesso

Eu não compreendo aonde pode estar o erro que começou no momento em que eu fui tentar paginar os resultados. Vale lembrar que essa página se conecta ao DB dela através de um arquivo global asa que está no meu diretório raiz, também respondendo pelo meu site.

Se ajudar publicarei abaixo a página emq ue exibe o erro e também o código do global.asa.

Obrigado.

Página que tem o erro.

<%@ 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")
  RS.PageSize = 5
  query = "SELECT * FROM Members WHERE id=" & user
  rs.Open query, Application("connString"), 3, 3
  IF RS.EOF then 
     Response.Write "nenhum registro encontrado"
     Response.End 
     ELSE
  
   IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1 
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then 
            intpagina=RS.PageCount 
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF
        RS.AbsolutePage=intpagina
  intrec=0
  While intrec < RS.PageSize and not RS.EOF    
	
  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 
  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
  
  RS.MoveNext
  intrec=intrec+1 
  IF RS.EOF then 
      response.write " " 
   END IF
Wend
rs.Close  
set rs = nothing

IF intpagina > 1 then 
%> 
   <a href="home.asp?pagina=<%=intpagina-1%>">Anterior</a> 
<% 
END IF

IF strcomp(intpagina,RS.PageCount) <> 0 then 
%> 
   <a href="home.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% 
END IF
%>
<% 	 
  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>

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

#754198 Erro Quando Faço Login No Sistema

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

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

Microsoft JET Database Engine error '80004005'

Not a valid file name.

/suporte/admin_login.asp, line 232

Na linha 232 eu tenho isso aqui:

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

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

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

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

Podem me ajudar a resolver...

Aguardo contato... Obrigado.

#729944 Erro No Upload

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

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

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

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

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

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

#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

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

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

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

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

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

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

ibreak's Content

Tipos

See this member's

Entrar