claytonprog

Vou testar aqui! valeu!

Olá Pessoal! Estou com um problema aqui! É o seguinte: Tenho uma rotina que gera horarios para uma agenda médica, porém essa rotina gera o horario apenas para um dia. Eu queria que geração os horários para todos os dias do ano. Segue abaixo a rotina que puder me ajudar implementando ficaria bastante agradecido. <? include "conexao.php"; if(isset($_POST['submit'])) { $dia = str_replace("'","",$_POST['dia']); $mes = str_replace("'","",$_POST['mes']); $ano = str_replace("'","",$_POST['ano']); $data_cadastro = $ano."-".$mes."-".$dia; $hora_inicio = "07:45:00"; $hora_final = "19:00:00"; $ini = strtotime($hora_inicio); $fim = strtotime($hora_final); $atu = $ini; $i = 0; for ($atu = $ini; $atu < $fim; $atu = strtotime('+15 minutes', $atu)) { $hora = date('H:i', $atu); $sql = mysql_query("INSERT INTO agenda (id_agenda,hora,dia,mes,ano) VALUES('','$hora','$dia','$mes','$ano')"); $msg = 'Agenda Aberta do dia ' .$data_cadastro. ' com Successo<br/>'; } } ?>

Pessoal falta pouco está trazendo apenas o primeiro estado que o Acre, preciso listar todos!! <select id="uf" name="uf"> <?php $doc = new DOMDocument(); $doc->load( 'http://meusite/lista.xml.php?empresa=tribus&tipo=uf' ); $response = $doc->getElementsByTagName( "ufs" ); foreach( $response as $ufs ) { $estado= $ufs->getElementsByTagName( "uf" ); $dados = $estado->item(0)->nodeValue; ?> <option value="$dados" ><?php echo $dados;?></option> <?php } ?> </select> Alguém pode ajudar!!

agora ficou assim: <?php $url = "http://meusite.com/lista.xml.php?empresa=tribus&tipo=uf"; $xml = DOMDocument::load($url); ?> <select id="uf" name="uf"> <?php for($i=0; $i < count($xml->ufs); $i++) { } ?> <option value="$uf" >$uf</option> </select> Erro: Fatal error: Undefined class name 'domdocument' lembrando que estou testando localmente!!

Fiz como você disse e está dando erro: veja o código: <?php //Estados $xml = simplexml_load_string(file_get_contents('http://meusite.com/lista.xml.php?empresa=tribus&tipo=uf')); ?> <select id="uf" name="uf"> <?php for($i=0; $i < count($xml->ufs); $i++) { $url = $xml->uf[$i]->uf; } ?> <option value="$uf" >$uf</option> </select> Erro: Fatal error: Call to undefined function: simplexml_load_string() $xml = simplexml_load_string(file_get_contents('http://meusite.com/lista.xml.php?empresa=tribus&tipo=uf')); // linha com o erro

Pessoal estou com um problema!! Tenho esse link abaixo que vem do site do meu cliente: http://meusite.com/lista.xml.php?empresa=tribus&tipo=uf Esse link gera um xml com todos os estados: <response> <status>28</status> <ufs> <uf id="AC">ACRE</uf> <uf id="AL">ALAGOAS</uf> <uf id="AP">AMAPÁ</uf> <uf id="AM">AMAZONAS</uf> <uf id="BA">BAHIA</uf> <uf id="CE">CEARÁ</uf> <uf id="DF">DISTRITO FEDERAL</uf> <uf id="ES">ESPÍRITO SANTO</uf> <uf id="GO">GOIÁS</uf> <uf id="MA">MARANHÃO</uf> <uf id="MT">MATO GROSSO</uf> <uf id="MS">MATO GROSSO DO SUL</uf> <uf id="MG">MINAS GERAIS</uf> <uf id="PA">PARÁ</uf> <uf id="PB">PARAÍBA</uf> <uf id="PR">PARANÁ</uf> <uf id="PE">PERNAMBUCO</uf> <uf id="PI">PIAUÍ</uf> <uf id="RJ">RIO DE JANEIRO</uf> <uf id="RN">RIO GRANDE DO NORTE</uf> <uf id="RS">RIO GRANDE DO SUL</uf> <uf id="RO">RONDÔNIA</uf> <uf id="RR">RORAIMA</uf> <uf id="SC">SANTA CATARINA</uf> <uf id="SP">SÃO PAULO</uf> <uf id="SE">SERGIPE</uf> <uf id="TE">TESTE</uf> <uf id="TO">TOCANTINS</uf> </ufs> </response> Quero preencher uma combobox com esses dados ai, alguém poderia me ajudar?

Fiz uma pequena mudança, agora grava a imagem na pasta porém não está reduzindo!! Segue o script de como ficou: <? include "conecta.php"; function thumbnail($img){ $copia = imagecreatefromjpeg($img); $nova = imagecreatetruecolor(150,150); $texto=explode(".",$img); $img_nome=$texto[0]; $local='fotos_noticias/'.$img_nome.'_menor.jpg'; imagecopyresampled($nova,$copia,0,0 ,0,0,80,80,imagesx( $copia),imagesy($copia)); if(imagejpeg($nova,$local,95)){ }else{ return false; } } if(isset($_POST["submit"])) { $titulo = $_POST["titulo"]; $texto = $_POST["texto"]; $autor = $_POST['autor']; $imagem_nome = $_FILES["foto"]["name"]; $imagem_temp = $_FILES["foto"]["tmp_name"]; $envia_imagem= @move_uploaded_file($imagem_temp,$local. $imagem_nome); $imagem = $imagem_temp; header("Content-type: image/jpeg"); $im = imagecreatefromjpeg($imagem); //criar uma amostra da imagem original $largurao = imagesx($im);// pegar a largura da amostra $alturao = imagesy($im);// pegar a altura da amostra $alturad = 50; // definir a altura da miniatura em px $largurad = ($largurao*$alturad)/$alturao;// calcula a largura da imagem a partir da //altura da miniatura $nova = imagecreatetruecolor($largurad,$alturad);//criar uma imagem em branco imagecopyresized($nova,$im,0,0, 0,0,$largurad,$alturad,$largurao ,$alturao);//copiar //sobre a imagem em branco a amostra diminuindo conforma as especificações da miniatura $novaimg = imagejpeg($nova);//cria imagem jpeg imagedestroy($nova); $path = "fotos_noticias/"; $caminho = "fotos_noticias/"; $arquivo = $imagem_nome; $path_foto = $path.$arquivo; move_uploaded_file($imagem_temp,$caminho.$imagem_nome); /* insere no banco de dados */ $sql = mysql_query("INSERT INTO noticias (id_not, titulo, texto, autor,foto) VALUES('','$titulo','$texto','$autor','$path_foto')"); } echo "<b>Notícia cadastrada com sucesso!</b>"; echo "<script language='javaScript'>window.location.href='cadastrar_noticias.php'</script>"; ?>

A pasta já está com permissão 777.

Pessoal! Peguei um script na net e estou tentando adaptar para um script de noticias que tenho aqui: O problema é o seguinte: A imagem é diminuida e consigo gravar o caminho e o nome da imagem no banco, porém a imagem não está sendo gravada em canto nenhum! Quem puder me ajude ai por favor!! Segue o script: <? include "conecta.php"; function thumbnail($img){ $copia = imagecreatefromjpeg($img); $nova = imagecreatetruecolor(150,150); $texto=explode(".",$img); $img_nome=$texto[0]; $local='fotos_noticias/'.$img_nome.'_menor.jpg'; imagecopyresampled($nova,$copia,0,0 ,0,0,80,80,imagesx( $copia),imagesy($copia)); if(imagejpeg($nova,$local,95)){ }else{ return false; } } if(isset($_POST["submit"])) { $titulo = $_POST["titulo"]; $texto = $_POST["texto"]; $autor = $_POST['autor']; $imagem_nome = $_FILES["foto"]["name"]; $imagem_temp = $_FILES["foto"]["tmp_name"]; $envia_imagem= @move_uploaded_file($imagem_temp,$local. $imagem_nome); $imagem = $imagem_temp; header("Content-type: image/jpeg"); $im = imagecreatefromjpeg($imagem); //criar uma amostra da imagem original $largurao = imagesx($im);// pegar a largura da amostra $alturao = imagesy($im);// pegar a altura da amostra $alturad = 50; // definir a altura da miniatura em px $largurad = ($largurao*$alturad)/$alturao;// calcula a largura da imagem a partir da //altura da miniatura $nova = imagecreatetruecolor($largurad,$alturad);//criar uma imagem em branco imagecopyresized($nova,$im,0,0, 0,0,$largurad,$alturad,$largurao ,$alturao);//copiar //sobre a imagem em branco a amostra diminuindo conforma as especificações da miniatura $novaimg = imagejpeg($nova);//cria imagem jpeg $path = "fotos_noticias/"; $caminho = "fotos_noticias/"; $arquivo = $imagem_nome; $path_foto = $path.$arquivo; move_uploaded_file($imagem_temp,$caminho.$imagem_nome); /* insere no banco de dados */ $sql = mysql_query("INSERT INTO noticias (id_not, titulo, texto, autor,foto) VALUES('','$titulo','$texto','$autor','$path_foto')"); } echo "<b>Notícia cadastrada com sucesso!</b>"; echo "<script language='javaScript'>window.location.href='cadastrar_noticias.php'</script>"; ?>

Fala Pessoal!! Essa semana fiz uma pesquisas na internet sobre como Capturar imagem thumb do video do Youtube. Dai fiz um script para poder gravar isso num banco de dados. Aqui está a solução para quem quiser usar!! Observações: Para Pegar miniatura thumbnails do Youtube observe as urls abaixo: url do youtube padrão http://www.youtube.com/watch?v=qjmTav1HkNo servidor do youtube com a imagem http://i1.ytimg.com/vi/qjmTav1HkNo/default.jpg agora o script: <?php include "../conexao.php"; // campos vindos de um form de cadastro de vídeos $vdtitulo = $_POST["vdtitulo"]; $vdurl = $_POST["vdurl"]; //No na variável foto eu usei a função substr para capturar parte da URL do vídeo que será usada para gravar no banco a url da imagem. $vdfoto = substr($_POST["vdurl"],31,11); // Na variável foto $foto_link usei a url padrão do youtube e acrescentei a url capturada do vídeo que ficou armazenada na variavel $vdfoto, // Em seguida fiz a concatenção e pronto. $foto_link = "http://i1.ytimg.com/vi/"."$vdfoto"."/default.jpg"; /* verifica se os dados obrigatórios foram informados */ if (trim($HTTP_POST_VARS["vdtitulo"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>TITULO DO VÍDEO</b> é um campo obrigatório!</center>"; exit(); } elseif (trim($HTTP_POST_VARS["vdurl"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>URL DO VÍDEO</b> é um campo obrigatório!</center>"; exit(); } else { $sql = "INSERT INTO videos (vdid,vdtitulo,vdurl,vdfoto) VALUES ('$vdid','$vdtitulo','$vdurl','$foto_link')"; $resultado = mysql_query($sql) or die ("Não foi possível realizar a consulta ao banco de dados"); echo "<script>window.location='Cadastrar_videos.php';</script>"; } ?> Bem Pessoal, Espero que isto ajude! Clayton Lima

Pessoal já consegui gravar as fotos nas pasta, agora só falta gravar no banco. Erro na gravação: vejam como está agora o código da gravação. <? include "../conexao2.php"; if(isset($_POST["submit"])) { $cod_album = $_POST["id_album"]; $pathToSave = 'fotos_album/'; $i = 0; $msg = array( ); $arquivos = array( array( ) ); foreach( $_FILES as $key=>$info ) { foreach( $info as $key=>$dados ) { for( $i = 0; $i < sizeof( $dados ); $i++ ) { $arquivos[$i][$key] = $info[$key][$i]; } } } $i = 1; // Fazemos o upload normalmente, igual no exemplo anterior foreach( $arquivos as $file ) { // Verificar se o campo do arquivo foi preenchido if( $file['name'] != '' ) { $arquivoTmp = $file['tmp_name']; $arquivo = $pathToSave.$file['name']; if( !move_uploaded_file( $arquivoTmp, $arquivo ) ) { $msg[$i] = 'Erro no upload do arquivo '.$i; } else { $msg[$i] = sprintf('Upload do arquivo %s foi um sucesso!',$i); } } else { $msg[$i] = sprintf('O arquivo %d não foi preenchido',$i); } $i++; } // Imprimimos as mensagens geradas pelo sistema foreach( $msg as $e ) { printf('%s<br>', $e); } } //* insere no banco de dados */ foreach( $arquivos as $file ) { $sql = mysql_query("INSERT INTO fotos (id_fotos, id_album, foto) VALUES (NULL,'$cod_album','$arquivo')"; } } if($sql) { echo "<b>Fotos enviadas com sucesso!</b>"; echo "<script language='javascript'>window.location.href='cadastrar_fotos.php'</script>"; }else{ echo "<h2><font color='#FF0000'>Erro</font> </h2> Infelizmente, não foi possível enviar as fotos. O erro retornado pelo sistema foi:<br /> <blockquote>".mysql_error()."</blockquote>"; } ?> Erro que está dando: Parse error: parse error in c:\arquivos de programas\easyphp1-8\www\igreja_apostolica_shekinah\admin\upload_fotos.php on line 60 a linha 60 é essa: $sql = mysql_query("INSERT INTO fotos (id_fotos, id_album, foto) VALUES (NULL,'$cod_album','$arquivo')"; Alguém pode ajudar??

Pessoal sou novo em PHP e estou com um problema!! É o seguinte: Tenho um formulário que envia várias fotos de um vez só que o código que faz o envio está dando erro, quem puder me ajudar a solucionar o problema fico agradecido. Segue o código: Form: Cadastro de Fotos - cadastrar_fotos.php <form name="cadnot" action="upload_fotos.php" method="POST" enctype="multipart/form-data"> <div align="center"> <table width="369" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="20" colspan="2" align="center" class=topa><font size="2" face="Verdana">&nbsp;</font></td> </tr> <tr> <td width="125" align="right" class=topa><font size="2" face="Verdana">Selecione o Album:</font></td> <td width="242" align="left"> <font size="2" face="Verdana">&nbsp; <select name="id_album" > <?php include "../conexao2.php"; $sql = mysql_query("SELECT * FROM album ORDER BY id_album DESC"); while ($aux = mysql_fetch_array($sql)) { ?> <option value="<?php echo $aux['id_album']; ?>" ><?php echo $aux['titulo']; ?></option> <?php } ?> </select> </font></td> </tr> <tr> <td align="left">&nbsp;</td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 1: </font></td> <td align="left"><input name="foto[]2" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 2:</font></td> <td align="left"><input name="foto[]3" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 3:</font></td> <td align="left"><input name="foto[]4" type="file" /></td> </tr> <td align="left"><font size="2" face="Verdana"> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 4:</font></td> <td align="left"><input name="foto[]5" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 5:</font></td> <td align="left"><input name="foto[]6" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 6:</font></td> <td align="left"><input name="foto[]7" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 7:</font></td> <td align="left"><input name="foto[]8" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 8:</font></td> <td align="left"><input name="foto[]9" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 9:</font></td> <td align="left"><input name="foto[]10" type="file" /></td> </tr> <tr> <td align="right" class=topa><font size="2" face="Verdana">Foto 10:</font></td> <td align="left"> <font size="2" face="Verdana"> <input name="foto[]" type="file" /> </font></td> </tr> <tr> <td colspan="2" align="center"> <input name="submit" type="submit" class="bot-verm" value="Enviar Fotos" /> </td> </tr> </table> </center> </div> </form> Script que faz o envio das fotos ( está dando erro ) upload_fotos.php <? include "../conexao2.php"; if(isset($_POST["submit"])) { $cod_album = $_POST["id_album"]; //$foto = $_FILES['foto']['name']; //$foto_tmp = $_FILES['foto']['tmp_name']; for($i=0;$i<count($_FILES[foto][name]);$i++){ $type=$_FILES[foto][type][$i]; $name=$_FILES[foto][name][$i]; $temp_name=$_FILES[foto][tmp_name][$i]; $file_erros=$_FILES[foto][error][$i]; } $path = "fotos_album/"; $caminho = "fotos_album/"; $arquivo = $foto; $path_foto = $path.$arquivo; /* move o arquivo pra pasta imagens */ move_uploaded_file($foto_tmp,$caminho.$foto); /* insere no banco de dados */ foreach($validfiles as $file){ $sql = mysql_query("INSERT INTO fotos (id_fotos, id_album, foto) VALUES (NULL,'$cod_album','$path_foto')"; } } if($sql) { echo "<b>Fotos enviadas com sucesso!</b>"; echo "<script language='javaScript'>window.location.href='cadastrar_fotos.php'</script>"; }else{ echo "<h2><font color='#FF0000'>Erro</font> </h2> Infelizmente, não foi possível enviar as fotos. O erro retornado pelo sistema foi:<br /> <blockquote>".mysql_error()."</blockquote>"; } } ?> O erro que está dando é esse: Parse error: parse error in c:\arquivos de programas\easyphp1-8\www\igreja_apostolica_shekinah\admin\upload_fotos.php on line 34 a linha 34 é essa: $sql = mysql_query("INSERT INTO fotos (id_fotos, id_album, foto) VALUES (NULL,'$cod_album','$path_foto')"; Agradeço a quem puder ajudar Clayton

Vendo Site Gospel! dominio: http://www.portaldospregadores.com Composição do Site: 1- Perfil de Afiliados com área administrativa 2- Noticias - com área administrativa 3- Estudos - Bíblicos com área administrativa 4- Mural de Recados - com área administrativa 5- Ilustrações Bíblicas - com área administrativa 6- Bíblia On_line 7- Downloads - com área administrativa 8- Rádio On-Line 9- Banner em Flash - com área administrativa 10 - Vídeos Youtube - com área administrativa Para orçamento: e-mail para: contato@midiaexpress.net ou add MSN claytonvida@hotmail.com

Veja como ficou!! O grande problema é que quando se coloca o while dá esse erro aqui: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. <HTML><HEAD> <TITLE>Fotos ( Clientes )</TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <script language=JavaScript> <!-- <% codigo = request.querystring("id") Set Conexao = Server.CreateObject("AdoDb.Connection") Conexao.provider="Microsoft.Jet.OLEDB.4.0" Conexao.connectionstring=Server.Mappath("painel/db/desing.mdb") Conexao.open Set rs = Server.Createobject("ADODB.RECORDSET") Set rs.ActiveConnection = Conexao strSQL = "SELECT * from tblfotos where id_evento ="&codigo rs.Open strSQL, Conexao if RS.eof then response.write "nenhum registro encontrado" response.end 'paramos o programa else %> %> var NewImg=new Array( <% while rs.EOF=false %>"painel/imagens/<%=RS("foto")%>,"<% rs.MoveNext : wend %>); <% end if %> var ImgNum = 0; var ImgLength = NewImg.length - 1; //Time delay between Slides in milliseconds var delay = 1000; var lock = false; var run; function chgImg(direction) { if (document.images) { ImgNum = ImgNum + direction; if (ImgNum > ImgLength) { ImgNum = 0; } if (ImgNum < 0) { ImgNum = ImgLength; } document.slideshow.src = NewImg[ImgNum]; } } function auto() { if (lock == true) { lock = false; window.clearInterval(run); } else if (lock == false) { lock = true; run = setInterval("chgImg(1)", delay); } } //--> </SCRIPT> <STYLE type=text/css> #divContainer { Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px } </STYLE> <META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD> <BODY bgColor=#333333 > <TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0> <TR vAlign=top align=left> <TD bgColor=#000000 height=373> <DIV id=divContainer> <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0> <TR> <TD width=700 height=373> <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <TR> <TD vAlign=top height=23> <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52 src="esquerda.png" width=52 border=0></A> <A href="java script:auto()"><IMG height=52 src="slide.png" width=52 border=0></A> <A href="java script:chgImg(1)"><IMG height=52 src="direita.png" width=52 border=0></A> </DIV></TD> </TR> </table> </BODY></HTML>

Veja uma coisa interessante! No código abaixo reformulado funciona normalmente porém só traz um registro do banco, eu tenho vários registros só preciso agora de uma ajuda para colocar o while e trazer todos os registros!! <HTML><HEAD> <TITLE>Fotos ( Clientes )</TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <script language=JavaScript> <!-- <% codigo = request.querystring("id") Set Conexao = Server.CreateObject("AdoDb.Connection") Conexao.provider="Microsoft.Jet.OLEDB.4.0" Conexao.connectionstring=Server.Mappath("painel/db/desing.mdb") Conexao.open Set rs = Server.Createobject("ADODB.RECORDSET") Set rs.ActiveConnection = Conexao strSQL = "SELECT * from tblfotos where id_evento ="&codigo 'strSQL = "SELECT * from tblfotos" rs.Open strSQL, Conexao if RS.eof then response.write "nenhum registro encontrado" response.end 'paramos o programa else %> var NewImg=new Array("painel/imagens/<%=RS("foto")%>"); <% end if %> var ImgNum = 0; var ImgLength = NewImg.length - 1; //Time delay between Slides in milliseconds var delay = 1000; var lock = false; var run; function chgImg(direction) { if (document.images) { ImgNum = ImgNum + direction; if (ImgNum > ImgLength) { ImgNum = 0; } if (ImgNum < 0) { ImgNum = ImgLength; } document.slideshow.src = NewImg[ImgNum]; } } function auto() { if (lock == true) { lock = false; window.clearInterval(run); } else if (lock == false) { lock = true; run = setInterval("chgImg(1)", delay); } } //--> </SCRIPT> <STYLE type=text/css> #divContainer { Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px } </STYLE> <META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD> <BODY bgColor=#333333 > <TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0> <TR vAlign=top align=left> <TD bgColor=#000000 height=373> <DIV id=divContainer> <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0> <TR> <TD width=700 height=373> <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <TR> <TD vAlign=top height=23> <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52 src="esquerda.png" width=52 border=0></A> <A href="java script:auto()"><IMG height=52 src="slide.png" width=52 border=0></A> <A href="java script:chgImg(1)"><IMG height=52 src="direita.png" width=52 border=0></A> </DIV></TD> </TR> </table> </BODY></HTML>

Pessoal Boa Tarde! Estou com um problema de array aqui neste código: <HTML><HEAD> <TITLE>Fotos ( Clientes )</TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <script language=JavaScript> <!-- codigo = request.querystring("id") strDBPath = Server.MapPath("painel/db/desing.mdb") Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "SELECT * from tblfotos where id_evento ="&codigo Set rs = cnnSearch.Execute(strSQL) NewImg = new Array ( <%Do While Not Rs.EOF%> // o erro está nesta linha Objeto necessário: ''/foto_ampli.asp, line 21 Response.Write """" & Rs("Foto") & """," <%Rs.MoveNext Loop%> ); var ImgNum = 0; var ImgLength = NewImg.length - 1; //Time delay between Slides in milliseconds var delay = 1000; var lock = false; var run; function chgImg(direction) { if (document.images) { ImgNum = ImgNum + direction; if (ImgNum > ImgLength) { ImgNum = 0; } if (ImgNum < 0) { ImgNum = ImgLength; } document.slideshow.src = NewImg[ImgNum]; } } function auto() { if (lock == true) { lock = false; window.clearInterval(run); } else if (lock == false) { lock = true; run = setInterval("chgImg(1)", delay); } } //--> </SCRIPT> <STYLE type=text/css> #divContainer { Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px } </STYLE> <META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD> <BODY bgColor=#333333 > <TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0> <TR vAlign=top align=left> <TD bgColor=#000000 height=373> <DIV id=divContainer> <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0> <TR> <TD width=700 height=373> <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <TR> <TD vAlign=top height=23> <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52 src="esquerda.png" width=52 border=0></A> <A href="java script:auto()"><IMG height=52 src="slide.png" width=52 border=0></A> <A href="java script:chgImg(1)"><IMG height=52 src="direita.png" width=52 border=0></A> </DIV></TD> </TR> </table> </BODY></HTML>

Pessoal! Obrigado pela ajuda, consegui resolver O erro era no "sub_categoria?" - retirei Errado: response.write "<li><a href='"&pagina&"?cid="& rs2("CategoryID") & " &sub_categoria?id="& rs2("ID") &"'>" & rs2("CategoryName") & "</a></li>" Correto: response.write "<li><a href='"&pagina&"?cid="& rs2("CategoryID") & " &id="& rs2("ID") &"'>" & rs2("CategoryName") & "</a></li>"

Segue o código completo: Página index.asp Neste código abaixo eu monto um menu e quando clico na opção do menu que eu quero, chamo um produto. <% set cn = Server.CreateObject("ADODB.Connection") cn.provider= "Microsoft.Jet.OLEDB.4.0" cn.connectionstring=Server.MapPath("painel/db/produtos.mdb") cn.open pagina = "produtos.asp" SQL = "SELECT * FROM ProductCategories" Set rs = cn.execute(sql) response.write "<ul id='primary-nav'>" do while not rs.eof Sub_categoria = rs("CategoryID") response.write "<li class='menuparent'><a href='java script:;'>"& rs("CategoryName") &"</a>" SQL2 = "Select * From sub_categorias Where CategoryID = " & Sub_categoria set rs2 = cn.execute(sql2) If Rs2.eof Then response.write "</li>" Else response.write "<ul>" do while not rs2.eof response.write "<li><a href='"&pagina&"?cid="& rs2("CategoryID") & " &sub_categoria?id="& rs2("ID") &"'>" & rs2("CategoryName") & "</a></li>" /// aqui eu chamo o produto e passo 2 variaveis via querystring variavel CID e SUB_CATEGORIA. rs2.movenext loop response.write "</ul>" response.write "</li>" end if rs.movenext loop response.write "</ul>" %> Página de produtos produtos.asp <% Set Conexao = Server.CreateObject("AdoDb.Connection") Conexao.provider="Microsoft.Jet.OLEDB.4.0" Conexao.connectionstring=Server.Mappath("painel/db/produtos.mdb") Conexao.open intPag = Request.QueryString("pag") IF intPag = "" THEN intPag = 1 Set rsCats = Server.Createobject("ADODB.RECORDSET") Set rsCats.ActiveConnection = Conexao TotRegPag = 9 ' QUANTIDADE DE REGISTROS POR PAGINA rsCats.CursorType = 3 rsCats.PageSize = TotRegPag cid = request.querystring("cid") // essa variavel vem preechida sub_categoria = request.querystring("id") // essa está vindo em branco // Gostaria da saber porque ela está vindo em branco????? strSQL = "SELECT * FROM Products WHERE CategoryID = "& cid &" and sub_categoria=" & Sub_categoria // está dando erro porque a variavel sub_categoria está vindo em branco rsCats.Open strSQL, Conexao IF rsCats.BOF AND rsCats.EOF THEN Response.Write "<br><center>Nenhum produto Encontrado</center><br>" ELSE IF Int(intPag) > rsCats.PageCount THEN intPag = 1 rsCats.AbsolutePage = intPag While Not rsCats.EOF AND x < rsCats.PageSize %>

Pessoal! estou com o seguinte problema aqui!!! Tenho um form onde eu tenho esse código: response.write "<li><a href='"&pagina&"?cid="& rs2("CategoryID") & " &sub_categoria?id="& rs2("ID") &"'>" & rs2("CategoryName") & "</a></li>" Esse código está passando 2 variaveis CID E SUB_CATEGORIA que são enviadas para um form chamado produtos, quando o form produtos abre apenas a variavel CID recebe o valor, porém a variavel SUB_CATEGORIA vai vazia. Está dando o seguinte erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'CategoryID = 4 and sub_categoria='. /estacao_convites/produtos.asp, line 301 Form Produtos.asp <% Set Conexao = Server.CreateObject("AdoDb.Connection") Conexao.provider="Microsoft.Jet.OLEDB.4.0" Conexao.connectionstring=Server.Mappath("painel/db/produtos.mdb") Conexao.open intPag = Request.QueryString("pag") IF intPag = "" THEN intPag = 1 Set rsCats = Server.Createobject("ADODB.RECORDSET") Set rsCats.ActiveConnection = Conexao TotRegPag = 9 ' QUANTIDADE DE REGISTROS POR PAGINA rsCats.CursorType = 3 rsCats.PageSize = TotRegPag cid = request.querystring("cid") sub_categoria = request.querystring("id") \\ variável vem vazia 'response.write sub_categoria 'response.end strSQL = "SELECT * FROM Products WHERE CategoryID = "& cid &" and sub_categoria=" & Sub_categoria rsCats.Open strSQL, Conexao IF rsCats.BOF AND rsCats.EOF THEN Response.Write "<br><center>Nenhum produto Encontrado</center><br>" ELSE IF Int(intPag) > rsCats.PageCount THEN intPag = 1 rsCats.AbsolutePage = intPag While Not rsCats.EOF AND x < rsCats.PageSize %> Alguém poderia me ajudar????

Neste caso você tem Razão Jonathan! Boa dica!

Bem no meu caso criei status para parcelas ( em aberto, paga ) no cadastro de mensalidades e vou dando baixa. Quando for gerada as 12 parcelas e faço uma alteração no status do cadastro de afiliado ( Parcela Gerada ) evitando gerar novas parcelas no mesmo ano. Na renovacao do ano eu faço o fechamento das parcelas - Como é esse fechamento? O Sistema primeiro copia as mensalidades para uma outra tabela chamada histórico das mensalidades e em seguida deleta a corrente deixando-a pronta para geração das mensalidades do ano seguinte. Bom é isso!!! Qualquer coisa estamos ai!

É uma outra forma de se pegar sim! A idéia minha não foi achar com caminho das pedras!!! Foi uma solução que encontrei que me ajudou. de qualquer forma está ai o script. Fique a vontade se quiser deixar ou retirar! Mais uma coisa é certa funciona!!!!

Ai Galera! Mais um script interessante que eu fiz! Extrair a extensão de um arquivo!!! Segue o código: /*bareta function pega_extensao(arquivo) pega_extensao=mid(arquivo,instr(1,arquivo,".",1),len(arquivo)) end function response.write "a extensão é "&pega_extensao("x.doc") */ É isso ai Galera

Pessoal! Mais uma solução simples e prática - Um scripts para gerar mensalidades! Segue o exemplo: 'recebendo valores vindos de formulário perfil = Request.QueryString("id") plano = Request.QueryString("plano") valor = Request.QueryString("valor") parcelas = Request.QueryString("parcelas") nome = Request.QueryString("nome") '------- INICIO DA GERAÇÃO DAS MENSALIDADES -------------------- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/mensalidades.mdb") 'Session.LCID = 1046 vardata_venc = date() for x = 1 to parcelas dt2 = DateAdd ("m", x, vardata_venc) sql = "INSERT INTO mensalidades (id_afiliado, id_plano, valor, parcela, data_venc)" sql = SQL & " VALUES (" sql = SQL & "'" & perfil & "'," sql = SQL & "'" & plano & "'," sql = SQL & "'" & valor & "'," sql = SQL & "'" & x & "'," sql = SQL & "'" & dt2 & "')" set bd = conn.execute(sql) next '------- FINAL DA GERAÇÃO DAS MENSALIDADES -------------------- %> Espero que este script ajude a todos os estavam a procura de uma solução.

Fala Pessoal!! Essa semana fiz uma pesquisas na internet sobre como Capturar imagem thumb do video do Youtube. Dai fiz um script para poder gravar isso num banco de dados. Aqui está a solução para quem quiser usar!! Observações: Para Pegar miniatura thumbnails do Youtube observe as urls abaixo url do youtube padrão http://www.youtube.com/watch?v=qjmTav1HkNo servidor do youtube com a imagem http://i1.ytimg.com/vi/qjmTav1HkNo/default.jpg agora o script: ' campos vindos de um form de cadastro de vídeos titulo = Request.form("titulo") sinopse = Request.form("sinopse") link = Request.form("link") foto = mid(Request.form("link"),32,11) ' No campo foto eu usei a função mid para capturar parte da URL do vídeo que será usada para gravar no banco a url da imagem. foto_link = "http://i1.ytimg.com/vi/"& foto &"/default.jpg" ' No campo foto link usei a url padrão do youtube e acrescentei a url capturada do vídeo que ficou armazenada na variavel foto. Em seguida fiz a concatenção e pronto. ' Abaixo faço a gravação dos dados: Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/seubanco.mdb") ComandoSQL = "INSERT INTO videos ( foto, titulo, descricao,linkvideo)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & foto_link & "'," ComandoSQL = ComandoSQL & "'" & titulo & "'," ComandoSQL = ComandoSQL & "'" & sinopse & "'," ComandoSQL = ComandoSQL & "'" & link & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing Bem Pessoal, Espero que isto ajude! Clayton Lima www.claytonlima.com