Jump to content

  2. → fabiano.froes's Content

fabiano.froes's Content

There have been 23 items by fabiano.froes (Search limited from 24/04/2023)


Tipos

See this member's

Ordernar por                Order  

#869865 Thumbnail

Posted by fabiano.froes on 10/09/2007, 21:18 in PHP

Galera, estou usando essa função para criar thumbnail ...

function thumbjpg($imagem)
$img = ImageCreateFromJPEG($imagem);
$wi=ImageSX($img);
$he=ImageSY($img);
$img_wi=250;
$img_he=$he * 250 / $wi;
$destino = "fotos/thumb.jpg";
$img_nova = ImageCreateTrueColor ($img_wi,$img_he);
ImageCopyResampled ($img_nova, $img, 0, 0, 0, 0, $img_wi, $img_he, $wi, $he);
ImageJPEG($img_nova,$destino,100);
ImageDestroy($img_nova);
ImageDestroy($img);

return 1;
}


onde file eu recebo de um formulario em outra pagina..

$imagem = $_FILES["file"]["tmp_name"];
$thumb = thumbjpg($imagem)


mas o thumb não é criado e nem da erro nenhum, a tela fica em branco...
o q posso fazer...????

obs. o php do servidor é o 5.2

se alguem puder me ajudar valew...


#847026 Select Count (*)

Posted by fabiano.froes on 08/05/2007, 17:47 in Sintaxe SQL

Pq qdo eu rodo uma consulta sql do tipo SELECT COUNT (*) e a tabela esta vazia dá erro de sql??

se alguem puder me ajudar.... :rolleyes:


#836216 Mostrar Imagem

Posted by fabiano.froes on 23/03/2007, 15:18 in Javascript / DOM / AJAX / ECMAScript

eu tenho um formulário que envia algumas imagens para uma determinada pagina, eu gostaria de mostrar essas imagens sem salva-las no servidor


se alguem puder me ajudar...
valew


#835800 Codigo Do Campo

Posted by fabiano.froes on 22/03/2007, 10:22 in PHP

eu uso esse sql para inserir um registro no MySQL:

$result = pg_query($GLOBALS["conn"], "INSERT INTO SimuladoQuestoes (SQAssunto, SQQuestao, SQRespCerta, SQRespErrada1, SQRespErrada2, SQRespErrada3, SQRespErrada4) VALUES (" . $intAssuntoID . ", '" . $strConteudo . "', '" . $strRespCerta . "', '" . $aryRespErrada[1] . "', '" . $aryRespErrada[2] . "', '" . $aryRespErrada[3] . "', '" . $aryRespErrada[4] . "');") or $erros .= "<LI>" . pg_last_error();


eu queria uma função que inseri o registro e já me retorna o codigo do registro...

se alguem puder me ajudar....
valews


#835052 Data Do Excel

Posted by fabiano.froes on 19/03/2007, 16:55 in PHP

infelizmente nao achei oq eu procurava nesse site se mais alguem puder me ajudar...

desde já agradeço....


#835020 Data Do Excel

Posted by fabiano.froes on 19/03/2007, 15:25 in PHP

as datas armazenadas no excel tem um formato difirente do normal, elas são um numero crescente a cada dia contados a partir de uma determinada data inicial
por exemplo:

01/02/2007 armazena-se 39965
02/02/2007 armazena-se 39966
03/02/2007 armazena-se 39967


e assim por diante, e na hora de mostrar o excel converte ela para o formato que conhecemos.

eu preciso de um algoritmo que faça essa conversão buscando o valor da data no BD Mysql(onde eu importo dados do excel) e convertendo na hra de mostrar na pagina.

se alguemm puder me ajudar...


#833274 Php E Postgre

Posted by fabiano.froes on 13/03/2007, 11:29 in Frameworks e Software relacionado a PHP

ola galera,

eu sempre usei o php com mysql, mas agora eu vou precisar usar o postgre, aí eu intalei a versao 8.2 do postgre mas qdo eu vou tentar acessar o phpPgAdmin, da o seguinte erro:

Você não compilou suporte à banco de dados apropriado em sua instalação do PHP.


o que eu posso fazer para resolvewr isso??
se alguem puder me ajudar valew....


#822569 Enviar Mail

Posted by fabiano.froes on 01/02/2007, 14:10 in ASP

o codigo nao dá erro mas tambem nao envia o email...

oq eu faço...???


<%
ct_Nome = request.form("Nome")
ct_Endereco = request.form("Endereco")
ct_Bairro = request.form("Bairro")
ct_Cidade = request.form("Cidade")
ct_UF = request.form("UF")
ct_Cep = request.form("Cep")
ct_Mensagem = request.form("Mensagem")
ct_Data = request.form("Data")
ev_Mensagem = "Nome : "&ct_Nome&" Endereço : "&ct_Endereco&",   Bairro : "&ct_Bairro&",  Cidade : "&ct_Cidade&",   Estado : "&ct_UF&",   Cep : "&ct_Cep&",  Data de Dev: "&ct_Data&", Motivos:"&ct_Mensagem

set objSendMail = CreateObject ("CDONTS.NewMail")

ObjSendMail.From = ct_Email
ObjSendMail.To = "webmaster@yahoo.com.br"
ObjSendMail.Subject = "Notificação de rescisão de Imóvel."
ObjSendMail.Body = ev_Mensagem
ObjSendMail.Send
set ObjSendMail = nothing
%>
se alguem puder me ajudar (y)


#794843 Erro No If

Posted by fabiano.froes on 30/10/2006, 16:00 in ASP

Amigos olhem e "if" nao esta funcionando e eu nao sei o pq??

  if int(dadosdep("qtd")) <> 1 then
	  qtde = dadosdep("qtd")	
 else
 	qdte = ""
 end if

eu ja tentei assim tbm:

  if dadosdep("qtd") <> 1 then
	  qtde = dadosdep("qtd")	
 else
 	qdte = ""
 end if

se alguem puder me ajudar, pq sou novo em asp.... (y)


#792792 Erro De Consulta

Posted by fabiano.froes on 24/10/2006, 14:56 in ASP

Amigos, não é falta de registro porque eu adicionei os registros....
vou mandar o codigo completo pra vcs darem uma olhada....
<%
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	fotosdir= "e:\home\masterimoveis\web\aluguel\img\"
	arqdir = "e:\home\masterimoveis\dados\" 
	Set bdaluguel = Server.CreateObject("ADODB.Connection")
	bdaluguel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & "bdalugueis.mdb;"
	SQL = "SELECT * FROM destaque"
	set destaque = bdaluguel.execute(SQL)
				   
%>
</head>
<body bgcolor="#6B696B" leftmargin="0" topmargin="0">
<table width="241" border="0" cellspacing="0" cellpadding="0" background="../images/fundo_destaque.gif">
  <tr>
	  <td height="6"></td>
  </tr>
  <tr> 
	<td width="241" align="left"> <marquee id="vendas" direction=up scrollAmount="2" style="width:250px;height:250px;border:0px;padding:5px;"  onmouseover='this.stop()' onmouseout='this.start()'>
	  <%if not destaque.eof then							   
		destaque.movefirst 
		while not destaque.eof 
		  cod = destaque("Imov_Codigo")
		  dest = "SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & cod
		  set dadosdest = bdaluguel.execute(dest)																
											
	 %>
	  <table width="240" height="82" border="0" cellpadding="0" cellspacing="0">
		<tr> 
		  <td width="5" height="0">&nbsp;</td>
		  <td width="146" height="1" bgcolor="#AAAAAA"><font face="verdana" style="font-size:10px"><b><%=tipo%></b></font></td>
		  <td width="82" height="0" rowspan="4" bgcolor="#FF8200"><div align="center"><img src="../../aluguel/img/<%=dadosdest("Imov_Codigo")%>.jpg" width="80" height="80"></div></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0">&nbsp;</td>
		  <td height="1" bgcolor="#DDDDDD"><font face="verdana" style="font-size:10px"><%'=dadosdest("Imov_Bairro")%></font></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0">&nbsp;</td>
		  <td height="1" bgcolor="#DDDDDD"><font color="#FF8200" face="verdana" style="font-size:10px"><b>R$ 
			<%'=dadosdest("Imov_Valor")%>,00</b></font></td>
		  <td width="7" height="0">&nbsp;</td>
		</tr>
		<tr> 
		  <td height="0"><div align="right"></div></td>
		  <td height="0" bgcolor="#DDDDDD"><a href="java script:ver('<%'=dadosdest("Imov_Codigo")%>','<%'=tipo%>')"><div align="right"><font style="font-size:10px" face="verdana">&lt;&lt;Detalhes&nbsp;&nbsp;</font></div></a></td>
		  <td height="0">&nbsp;</td>
		</tr>
	  </table>
	  <br>
	  <%
	  dadosdest.close
	  set dadosdest = nothing
	  destaque.movenext
	  wend 
	  end if	
	   destaque.close
	  %>
	  </marquee> </td>
  </tr>
	<tr>
	  <td height="6"></td>
  </tr>
  <tr> 
</table>
eu tenho um bd com duas tabelas destaque e SIMCadImov onde destaque tem os codigos dos registro de SIMCadImov que são destaques entaum eu selelcionei primeiro todos os registros de destaque e depois seleciono um por um os registros na tabela SIMCadImov, eu acho que o problema esta em ter um select dentro do outro porque qdo eu faço separadamente funciona....


#792547 Erro De Consulta

Posted by fabiano.froes on 23/10/2006, 20:41 in ASP

Galera como estou começando com asp agora nao consegui detectar o erro no código q se segue, se alguem puder me ajudar.....

<%
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	arqdir = "e:\home\masterimoveis\dados\" 
	Set bdaluguel = Server.CreateObject("ADODB.Connection")
	bdaluguel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & "bdalugueis.mdb;"
	SQL = "SELECT * FROM destaque"
	set destaque = bdaluguel.execute(SQL)
				while not destaque.eof 
		cod = destaque("Imov_Codigo")
		dest = "SELECT * FROM SIMCadImov WHERE Imov_Codigo= " & cod
		set dadosdest = bdaluguel.execute(dest)%>
		<%=dados("Imov_Endereco")%>
					<%
					dadosdest.close
		destaque.movenext
	wend 
	destaque.close

%>
o erro q esta dando é o seguinte:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.


se alguem puder me ajudar valew!!!!! (y)


#790364 Thumbnail

Posted by fabiano.froes on 16/10/2006, 15:33 in ASP

pode ate gravar mas depois de viazualizado, tenho q apagar do servidor...


#790344 Thumbnail

Posted by fabiano.froes on 16/10/2006, 14:44 in ASP

Galera,

tenho um pasta com alguns arquivos de imagens, gostaria de mostra-las como thumbnails sem grava-las no servidor...


se alguem puder me ajudar... (y)


#786993 Imagens

Posted by fabiano.froes on 05/10/2006, 16:39 in ASP

esse codigo funciona, mas quando eu selecionar o registro de codigo "12" ira aparecer todas as imagens q começa com "12", incluindo 123_1.jpg, 1234_1.jpg e etc

como eu resolvo isso...??? (y) (y)


#786985 Qtos Digitos?

Posted by fabiano.froes on 05/10/2006, 16:36 in ASP

valew....
(y)


#786531 Qtos Digitos?

Posted by fabiano.froes on 04/10/2006, 14:56 in ASP

Já conhece a função Len()?

response.write Len("isto é um teste") 'retorna 15

[]s


valew!!
deu certo!!


agora eu preciso de um "if" para verificar se uma varialve exite...
se alguem puder me ajudar valew!!


#785956 Qtos Digitos?

Posted by fabiano.froes on 03/10/2006, 09:46 in ASP

galera eu tenho uma determinda variavel

x="teste"

gostaria de um codigo que me retornasse a qtde de digitos nessa variavel....

qtdx=5



se alguem puder me ajudar....
desde já agradeço!!! (y)


#784878 Imagens

Posted by fabiano.froes on 29/09/2006, 15:04 in ASP


Fica, mas eu diria que esse é o preço que se paga por uma falta de estruturação de dados hehe.

Para evitar a lentidão ele poderia separar as imagens com nome diferente em pastas diferentes, ou armazenar os nomes no banco de dados e com uma instrução SQL selecionar somente as que ele quer. Mas ai vai de cada um.

[]s



Certo ;)

É que fiquei curioso pra saber como seria feito, se tive-se que mudar.

:D


meu servidor nao esta aceitando a funcao getfolder()

o q fazer?


Deu certo!
valew!! :D (y)


#784698 Imagens

Posted by fabiano.froes on 29/09/2006, 09:12 in ASP

eu tenho um diretorio com alguns arquivos de imagem como mostrado abaixo:

123_1.jpg
123_2.jpg
123_3.jpg
124_1.jpg
124_2.jpg


eu preciso mostrar as imagens q tem inicio "123", como faço?
(y)


#784695 Ta Errado?

Posted by fabiano.froes on 29/09/2006, 09:05 in ASP

Por formulário?

SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & Request.Form("id")



deu certo!
valew!


#784440 Ta Errado?

Posted by fabiano.froes on 28/09/2006, 14:06 in ASP

Observe que em sua string SQL ( o código que vai fazer a busca no banco de dados )

SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & r_id
você colocou que a página vai buscar no banco de dados o registro na tabela SIMCadImov que tenha no campo Imov_Codigo o valor igual o da variavel r_id, mas perceba que você não definiu em seu código qual o valor dessa variavel.
Ela vai ser passada por um formulári ou por uma QueryString?

Se for por uma QueryString altere sua instrução sql para
SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & Request.QueryString("id")

E acesse a página da seguinte maneira pagina.asp?id=CODIGO_DO_REGISTRO_QUE_VOCÊ_QUER_MOSTRAR

[]s

essa variavel vem de outra pagina...

'visualizar.asp?r_id='+codigo



#784367 Ta Errado?

Posted by fabiano.froes on 28/09/2006, 10:32 in ASP

Qual o erro retornado?

Se você está vendo o erro 500, vá ate as opçoes do seu navegadro e desmarque a opção de mostrar erros amigaveis.

Para que servem estas duas linha?

connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Hps\Master\root\dbimoveis.mdb;"
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Hps\Master\root\db\master.mdb;"
Perceba que primeiro você colocou em uma variavel o que deve ser a sua string de conexao para um arquivo, e logo em seguida trocou o valor de sua variavel para outro arquivo, e no final nem está usando esta variavel hehe.

Segue um tutorial de como se conectar a um banco de dados: http://forum.wmonlin...howtopic=116061

[]s


esse codigo nao fui eu que criei eu apenas estou alterando...
mas já tirei essas duas linha...
como vc disse eu tava vendo o erro 500, desabilitei a opão e olha o erro q esta dando agora...

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'Imov_Codigo='.

/site_novo/visualizar.asp, line 13



#784349 Ta Errado?

Posted by fabiano.froes on 28/09/2006, 09:34 in ASP

Galera, onde esta o erro nesse codigo, pq qdo coloco ele na pagina da erro...

<%
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Hps\Master\root\dbimoveis.mdb;"
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\Hps\Master\root\db\master.mdb;"
arqdir = "e:\home\masterimoveis\dados\"
Set imovel = Server.CreateObject("ADODB.Connection")
imovel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdir & "bdalugueis.mdb;"
sql = "SELECT * FROM SIMCadImov WHERE Imov_Codigo=" & r_id
set dados = imovel.execute(sql)
%>
<%=dados("Imov_Endereco") %>


se alguem puder me ajudar, pq sou novo em asp... (y)



  1. Fórum WMO
  2. → fabiano.froes's Content
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq