ursolouco

Salve Galera!! Veja se pode lhe ajudar http://scriptbrasil.com.br/forum/index.php...ndpost&p=177555 Abraço[]s

Oi Dany!! list($valor, $valor1) = explode(".", $variavel); Será que não pode lhe ajudar ?

Brother!! Simplifica isso, vai jogarndo os dados numa session depois com foreach() você passa em cada um e faz um insert. abraço[]s

Brother!! Até onde eu sei, CPanel tem que ser pago uma licença de utilização pelo host... veja o site do frabricante e tenha mais informações http://www.cpanel.net/ abraço[]s

Brother!! Não entendi nada... é isso que você esta precisando ? function separar_em_array($string){ for($i = 0; $i < strlen($string); $i++){ $vetor[] = substr($string, $i, 1); } return $vetor; }

Utilizando GetRows() <% pagina = Request.QueryString("pagina") If(Not isNumeric(pagina)) Then Pagina = 1 If(isNull(pagina)) Then Pagina = 1 If(isEmpty(pagina)) Then Pagina = 1 Call gPaginacao("SELECT * FROM tb_produtos", 20, 3, Pagina) Sub gPaginacao(SQL, numReg, numCol, Pagina) If(Not isNumeric(pagina)) Then Pagina = 1 If(isNull(pagina)) Then Pagina = 1 If(isEmpty(pagina)) Then Pagina = 1 pagina = cint(pagina) 'strConn = "DRIVER=MySQL ODBC 3.51 Driver;UID=root;STMT=;OPTION=;SOCKET=;PORT=;PASSWORD=;SERVER=localhost;DATABASE=northwind;DESC=" strConn = "DSN=localhost" Set conn = CreateObject("adodb.connection") conn.Open(strconn) Set Rs = Server.CreateObject("adodb.recordset") rs.ActiveConnection = conn rs.CursorType = adOpenStatic rs.CursorLocation = AdUseClient rs.PageSize = numReg rs.Open SQL NumeroPaginas = rs.PageCount If(Pagina > 0) Then if(pagina > NumeroPaginas) then pagina = NumeroPaginas Else pagina = cint(pagina) end if Else pagina = 1 End if Rs.AbsolutePage = Cint(pagina) Vetor = rs.getrows() Response.Write "<table border='1' cellpadding='5' width='500' align='center'>" while(Z <= Ubound(Vetor, 2) And Z <= numReg) response.write "<tr>" For C= 1 To numCol if(Z <= ubound(Vetor, 2)) Then response.write "<td>" response.write vetor(12, (Z)) response.write "</td>" Z = Z + 1 else response.write "<td>&nbsp;" response.write "</td>" exit for End if Next response.write "</tr>" wend Response.Write("</table>") Response.Write "<table border='1' cellpadding='5' width='500' align='center'>" response.Write "<tr>" if(Pagina > 1)Then Call GerarLinkAnterior(Pagina) End if leftStart = Pagina - 5 rightEnd = Pagina + 5 For I = 1 To NumeroPaginas response.Write "<td align='center'" If(cint(pagina) = I) Then Response.Write " bgcolor='#F3F3F3'" End If response.Write ">" response.Write "<a href="""& Request.ServerVariables("SCRIPT_NAME") & "?pagina="&I&"" &""">"& I &"</a>" response.Write "</td>" Next Call GerarProximoLink(Pagina) response.Write "</tr>" Response.Write "</table>" rs.Close set rs = nothing conn.Close() set conn = nothing End Sub Sub GerarProximoLink(Pagina) With Response .write "<td>" .write "<a href='"& Request.ServerVariables("SCRIPT_NAME")&"?pagina="&(Pagina + 1)&"'>" .write " >> " .write "</a>" .write "</td>" End With End Sub Sub GerarLinkAnterior(Pagina) With Response .write "<td>" .write "<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?pagina="&(Pagina - 1)&"'>" .write " << " .write "</a>" .write "</td>" End With End Sub %>

Brother!! Nâo esqueça do arquivo adovbs.inc <% pagina = Request.QueryString("pagina") If(Not isNumeric(pagina)) Then Pagina = 1 If(isNull(pagina)) Then Pagina = 1 If(isEmpty(pagina)) Then Pagina = 1 Call gPaginacao("SELECT * FROM tb_produtos", 20, 3, Pagina) Sub gPaginacao(SQL, numReg, numCol, Pagina) If(Not isNumeric(pagina)) Then Pagina = 1 If(isNull(pagina)) Then Pagina = 1 If(isEmpty(pagina)) Then Pagina = 1 pagina = cint(pagina) 'strConn = "DRIVER=MySQL ODBC 3.51 Driver;UID=root;STMT=;OPTION=;SOCKET=;PORT=;PASSWORD=;SERVER=localhost;DATABASE=northwind;DESC=" strConn = "DSN=localhost" Set conn = CreateObject("adodb.connection") conn.Open(strconn) Set Rs = Server.CreateObject("adodb.recordset") rs.ActiveConnection = conn rs.CursorType = adOpenStatic rs.CursorLocation = AdUseClient rs.PageSize = numReg rs.Open SQL NumeroPaginas = rs.PageCount If(Pagina > 0) Then if(pagina > NumeroPaginas) then pagina = NumeroPaginas Else pagina = cint(pagina) end if Else pagina = 1 End if Rs.AbsolutePage = Cint(pagina) Vetor = rs.getrows() Response.Write "<table border='1' cellpadding='5' width='500' align='center'>" while(Z <= Ubound(Vetor, 2) And Z <= numReg) response.write "<tr>" For C= 1 To numCol if(Z <= ubound(Vetor, 2)) Then response.write "<td>" response.write vetor(12, (Z)) response.write "</td>" Z = Z + 1 else response.write "<td>&nbsp;" response.write "</td>" exit for End if Next response.write "</tr>" wend Response.Write("</table>") Response.Write "<table border='1' cellpadding='5' width='500' align='center'>" response.Write "<tr>" if(Pagina > 1)Then Call GerarLinkAnterior(Pagina) End if leftStart = Pagina - 5 rightEnd = Pagina + 5 For I = 1 To NumeroPaginas response.Write "<td align='center'" If(cint(pagina) = I) Then Response.Write " bgcolor='#F3F3F3'" End If response.Write ">" response.Write "<a href="""& Request.ServerVariables("SCRIPT_NAME") & "?pagina="&I&"" &""">"& I &"</a>" response.Write "</td>" Next Call GerarProximoLink(Pagina) response.Write "</tr>" Response.Write "</table>" rs.Close set rs = nothing conn.Close() set conn = nothing End Sub Sub GerarProximoLink(Pagina) With Response .write "<td>" .write "<a href='"& Request.ServerVariables("SCRIPT_NAME")&"?pagina="&(Pagina + 1)&"'>" .write " >> " .write "</a>" .write "</td>" End With End Sub Sub GerarLinkAnterior(Pagina) With Response .write "<td>" .write "<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?pagina="&(Pagina - 1)&"'>" .write " << " .write "</a>" .write "</td>" End With End Sub %>

Brothher!! Nâo há permissão de escrita para seu arquivo. Dê as permissões 755 ou 777 para seu arquivo.. Abraços

Salve Senhores!! Desculpe-me incomodar e minha ausencia justifico à falta de tempo. Estou enferrujado em ASP e estou trabalhando agora com PHP, portanto, não reparem se apresentar erros... Teve um brother que me mandou um e-mail sobre um código de paginação que só vi agora e já tem duas semanas na minha caixa postal. Então... ai vai.. Espero que seja funcional e util... Abraço[]s

Brother, como esta definido o campo no seu banco de dados ? Veja se o nome dos campos no seu Recordset estao iguais ao banco de dados... pois mysql é case-sensitive e qualquer coisinhas... blaus.. abraços[]

Brother!! Sei lá o que rolar no servidor da locaweb. Mandei um hidden e resolvi.... Alterei uma função aqui, um objeto ali... uma sub e outras 2 seções após renomear uns Application.... deu tudo certo. Valeu Manooooooooo Abraço[]s

Salve Bicicleta!! Encardiu Brother... E olha que existe valor dentro da base de dados.... Simplesmente Inesplicavel. Usei um vartype() e me devolveu Integer(2) e mesmo assim.. não esta realizando a comparação... Alguma outra idéia ?

Salve!! Temos o seguinte código: function numero_fotos_prostaff(IDMateria) call abre_dbkr() SQL = "SELECT COUNT(*) AS Total FROM tb_galeria WHERE b_galeria_materia_id = '"& CStr(IDMateria) &"';" Set Rs = dbkr.execute(SQL) If Not Rs.Eof Then numero_fotos_prostaff = CInt(Trim(Rs("Total"))) Else numero_fotos_prostaff = 0 End If end function Que devolve um valor inteiro para minha funcao... Mas há um detalhe interessante..... O Campo 'b_galeria_materia_id' é VARCHAR(11) no MySQL!! Se devolvo um valor inteiro da função (CInt()) e faça a seguinte comparação: iFotos = CInt(numero_fotos_prostaff(IDMateria)) If (iFotos > 0) The... Ele dá falha ? Abraços

Oia Só que tá na area!! Brother, existe muitos sistemas por ai desenvolvidos de atendimento semi-pronto. Vai ná pagina do codigo livre e realize uma busca sobre o assunto ou até mesmo... www.superasp.com.br e veja o sistema de atendimento dos caras e faça o seu semelhante. abraços e boa sorte

Brother!! Realmente não é meu, se não jamais pediria uma bobagem destas .... mas fazer o que, tão pgando tem que fazer. Valeu pela força, vou me virar por aqui. aBrços~]s

Brother!! São sites diferentes! Site_do_urso.com.br abre um POP UP no site do OSJunior POP UP do OSJunior faz as moficiações e tem que dar um Refresh no site do Urso. Mensagem de Erro!! Permissão Negada!!

Salve! Senhores, temos dois sites: Site A - site.uk Site B - site.net No Site 'A' abre, vai ser abir um POP UP do site 'B', apos as modificiações é necessario dar um refresh no Site 'A' que abiu o pop up... e estou tendo pequenos problemas para fazer isso. alguém pode me ajudar ? <? echo "<script language=\"javascript\" type=\"text/javascript\"> opener.location.reload(); alert('Atualizado no Sistema!'); self.close(); opener.focus() </script>"; ?> Abraços[]

Brother!! Uma alternativa para este tipo de problemas e você utilizar RAND() no seu t-SQL. Em relação as perguntas ou tabelas diferenciadas, faz um sorteio em qual se deve consultar e depois dar sequencia. Boa Sorte!!

Salve !! Minha colaboração sobre o assunto: http://www.php-editors.com Visites os editores e veja, o qual cada um se adapta melhor. Abraços[]s

Consegui:: <? require_once("funcoes_debito_remessa.php"); if(($_GET['arquivo']) && ($_POST['conteudo'])){ $nome = preparar_campo($_GET['arquivo'], 6, chr(48)).".rem"; salvar_remessa($nome, $_POST['conteudo']); $fisico = realpath("rem/$nome"); header("Pragma: public"); header("Expires: 0"); header("Cache-Control: private",false); header("Content-Type: application/force-download"); header("Content-Disposition: attachment; filename=".basename($fisico).";" ); header("Content-Transfer-Encoding: binary"); readfile("$fisico"); } ?>

Salve à todos!! <? require_once("funcoes_debito_remessa.php"); if(($_GET['arquivo']) && ($_POST['conteudo'])){ $nome = preparar_campo($_GET['arquivo'], 6, chr(48)).".rem"; salvar_remessa($nome, $_POST['conteudo']); $fisico = realpath("rem/$nome"); header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private", false); header("Content-Type: application/force-download"); header("Content-Disposition: attachment; filename=".basename($fisico).";" ); header("Content-Transfer-Encoding: binary"); exit(); } ?> O download vem na boa O conteudo é escrito e salvo no arquivo. Porém... Não vem o download correto do arquivo... ou seja. vem o arquivo, mas não o conteudo. alguém poderia me explicar ? Abraço[]s

Perdeu a sessão é ? No problem.... Já podem fechar o tópico... Grato pela leitura... Abraços

Senhores, não estou conseguindo fazer, se possivel, me ajudem. Tenho uma variavel da seguinte forma: 000000000001990 Este valor, para o sistema tem que ser informado R$ 19.90 e não estou conseguindo de forma alguma formatar isso.. podem me dar um help por favor ? Abraços[]

Galera!! Observer o código abaixo: <? $conexao = imap_open("{mail.servidor.com.br/IMAP:143}INBOX", "wellington@xxx.com.br", "000000"); $headers = "MIME-Version: 1.0\r\n"; $headers.= "Content-type: text/html; charset=iso-8859-15\r\n"; $headers.= "Return-Path:<wellington@xxxx.com.br>\r\n"; if($conexao){ $enviar = imap_mail("wellington@xxxx.com.br", "Assunto", "Mensagem", $headers, "", "", ""); } $fechar = imap_close($conexao); /* Porque este e-mail não vai autenticado pelo servidor ? */ ?> Porque o e-mail é enviado como nobody sendo que foi autenticado com sucesso no IMAP ? Olhem o Heder:

<? $conexao = imap_open("{mail.XXXXXXXX.com.br/POP:110}INBOX", "wellington@xxxxx.com.br", "000000"); $headers = "MIME-Version: 1.0\r\n"; $headers.= "Content-type: text/html; charset=iso-8859-15\r\n"; if($conexao){ echo "Conexao OK"; } $fechar = imap_close($conexao); ?> Exemplo de conexão no servidor POP: Dá tudo "OK"; No smtp... vixe.. Nada