Fábio freitas

Outubro 23, 2006

Olá Graymalkin.

Primeiramente obrigado.

O exemplo citado ele pega o endereço mac do servidor e não da máquina que está acessando.

Sabe como pegar o endereço da máquina que acessa?

Um abraço

Fábio Santos

Outubro 18, 2006

Olá Andersonjb,

Primeiramente obrigado, não estou conseguindo pegar as dimensões, você tem algum exemplo.

Desde já agradeço

Fábio Santos

Outubro 17, 2006

Olá Amigos,

Alguém sabe aonde posso encontrar exemplo em vb de upload de imagens, pois fazer o upload do arquivo está tranquilo, mas eu gostaria de filtrar alguns casos:

Extensão : Somente gif e jpg

Tamanho : Kb

Dimensão : X por Y

Desde já agradeço

Fábio Santos

Outubro 17, 2006

Olá Amigos,

Gostaria de saber como em vb poderia pegar as informações da placa, que segundo andei lendo não se repete, li também algo sobre Mac Address, existe alguma maneira de pegar esta informação da máquina que está acessando o aplicativo.

Desde já agradeço

Fábio Santos

Setembro 12, 2006

Olá Renato fiz assim:

<!--

var shell;

function SetPrintProperties()

{

shell = new ActiveXObject('WScript.Shell');

shell.SendKeys('%fu');

window.setTimeout('java script:SetPaperSize();', 1200);

window.setTimeout('java script:shell.setLandScape();', 2000);

}

function SetPaperSize()

{

shell.sendKeys('%a{TAB}.2{TAB}0{TAB}0{TAB}0{ENTER}');

}

function setLandScape()

{

shell.sendKeys('%fu');

window.print();

}

//-->

</script>

E inseri um botão e no evento onclick = coloquei "setlandscape();"

Não sei se está certo, gostaria que a página abrisse ou fosse impressão em paisagem sem o usuário precisar alterar nas propriedades

Setembro 12, 2006

Olá Renato,

Primeiramente obrigado,

Esse código está certo? É assim mesmo shell.SendKeys('%fu'); e depois

shell.sendKeys('%fp');

Pois não aconteceu o esperado.

Um abraço

Fábio Santos

Setembro 12, 2006

Olá Amigos,

Alguém tem algum exemplo que realmente funcione a impressão em landscape, pois fiz algumas pesquisas, mas nunca obtive um resposta satisfatória.

Desde já agradeço,

Fábio Santos

Junho 16, 2005

Olá,

Estou com um serio problema, que acho que só poderia ser resolvido por uma função.

Tenho um botão que chama uma janela MODAL, que esta ali para que seja feita uma inclusão ou alteração no meu banco de dados, mas preciso dar um refresh na tela que esta atras ao fechar a janela MODAL. Com pop-up até já consegui, mas com MODAL não.

Desde já agradeço a atenção.

Fábio Freitas.

Outubro 28, 2004

Segue abaixo código completo, abrigado pela ajuda

Um abraço

Fábio Freitas

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Conectar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.estilo {
	text-decoration: blink;
	font-family: Verdana;
	font-size: 9cm;
	font-style: normal;
	color: #000099;
}
.estilo a:link {
	font-weight: normal;
	color: #000099;
	text-decoration: blink;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 9px;
	font-style: normal;
}
.estilo a:visited { font-weight: normal; color: #000099; text-decoration: none}
.estilo a:hover { font-weight: normal; color: #0099FF; text-decoration: none}
.estilo a:active { font-weight: normal; color: #000099; text-decoration: none}
-->
 </style>
<body>
<%
Caminho = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
Response.Write(Err.Description)
Else
Response.Write("Conexão está OK")
End If
%>
</body>
</html>

EDITADO: Utilize as Tags CODE ou QUOTE quando for postar códigos

Outubro 28, 2004

ESTÃO TODOS AI

A LINHA 33 É

Conn.Open(strConn)

Outubro 28, 2004

Agradeço a todos os amigos que estao me ajudando, com ela consegui me conectar ao banco de dados, porém quando fui fazer a página de inclusão, a de consulta ~passou a não funcionar, ficarei grato por uma nova ajuda.

Abaixo o código e o erro:

<-- CONSULTAR DADOS -->

<%
Caminho = Server.MapPath("noticias.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)

If Err.Number<>0 Then
Response.Write(Err.Description)
Else
Response.Write("Conexão está OK")
End If
%>

<--ERRO -->

Microsoft JET Database Engine error '80004005'
Unspecified error
/fabiofreitas/conecta.asp, line 33
<-- LINHA 33 = Conn.Open(strConn)-->

<-- INCLUIR DADOS -->

<%
if request.form("enviado")="sim" then
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("noticias.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
chamada = request.form("chamada")
noticia = request.form("noticia")
link = request.Form("link")
sql = "INSERT INTO news (chamada, noticia, link)"
sql = sql & "VALUES"
sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')"
set rs = db.execute(sql)
response.redirect "conecta_noticias.asp"
rs.close
db.close
set rs = nothing
set db = nothing
response.write "inserido na tabela"
end if
%>
<form action="conecta_noticias.asp" method="post" name="dados" id="dados" >
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">
<tr >
<td colspan="2"><div align="center"><strong><font color="#000066" size="3" face="Verdana, Arial, Helvetica, sans-serif">Inserir
Noticias:</font></strong></div></td>
</tr>
<tr >
<td colspan="2"><div align="center"></div></td>
</tr>
<tr>
<td width="6%" height="31" ><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Chamada:</font></td>
<td width="88%" ><font size="2" face="Arial, Helvetica, sans-serif">
<input name="chamada" type="text" class="input2" id="chamada" size="70">
<input name="enviado" type="hidden" value="sim">
</font></td>
</tr>
<tr>
<td height="185" valign="top" ><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Noticia:</font></td>
<td ><p>
<textarea name="noticia" cols="70" rows="10" id="textarea" class="input2" ></textarea>
<font size="-1" face="Arial, Helvetica, sans-serif"> </font></p></td>
</tr>
<tr>
<td > <div align="right"></div>
<div align="left"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Link:</font></div></td>
<td ><input name="link" type="text" class="input2" id="resumo2" size="70"></td>
</tr>
<tr align="left" valign="top" >
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2" > <div align="center"></div>
<div align="center">
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Limpar">
</div>
</td>
</tr>
</table>
</form>

PODE ESTA HAVENDO ALGUM CONFLITO

DESDE JÁ AGRADEÇO

Editado: Utilize as Tags Disponíveis para formatar seus textos.

Outubro 27, 2004

Olá Amigos,

Estou como uma pequena dúvida, será que alguém pode me salvar?

Abaixo está o código, aonde:

Nome do banco = noticias.mdb

tabela = news

campos da tabela = chamada,noticia e link

Aparece o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Field 'news.chamada' cannot be a zero-length string.

/fabiofreitas/inserir.asp, line 41

Ficarei grato pela ajuda..

<%

set db = server.CreateObject("ADODB.connection")

dim caminho

caminho = server.MapPath("noticias.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

chamada = request.form("chamada")

noticia = request.form("noticia")

link = request.Form("link")

sql = "INSERT INTO news (chamada, noticia, link)"

sql = sql & "VALUES"

sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')"

set rs = db.execute(sql)

response.redirect "conecta_noticias.asp"

rs.close

db.close

set rs = nothing

set db = nothing

%>

<tr >

</tr>

<tr >

<td colspan="2"><div align="center"><strong>Inserir Noticias</strong></div></td>

</tr>

<tr>

<td width="6%" height="31" ><font size="-1" face="Arial, Helvetica, sans-serif">Chamada

:</font></td>

</font></td>

</tr>

<tr>

<td height="185" valign="top" >Noticia:</td>

</tr>

<tr>

</tr>

</tr>

<tr>

7</div>

</td>

</tr>

</table>

</form>

Outubro 26, 2004

Estou tentando me conectar com um banco de dados, porém estou começando com esse negócio, gostaria que alguém me ajudasse, abaixo algumas informações:

nome do banco de dados = noticias.mdb

nome da tabela = news

sem DSN

Dentro da tabela tem dois campos: numero e noticia

Gostaria de apresentar na página estas informações.

Bom espero que eu tenha sido claro.

Desde já agradeço

Fábio Freitas

<%

Option Explicit

Dim objConect, objRst

Set objConect = Server.CreateObject("ADODB.Connection")

objConect.Provider="Microsoft.Jet.Oledb.4.0"

objConect.ConnectionString=Server.MapPath("noticias.mdb")

objConect.Open

Set objRst = Server.CreateObject("ADODB.RecordSet")

objRst.Open "SELECT news FROM SysObjects WHERE XType='S'", objConect, 1, 3

With Response

.Write "<p>"

.Write "<font face=verdana size=2><b>"

.Write "Tabelas Criadas pelo Usuário"

.Write "</b></font><p>"

End With

Do While Not objRst.EOF

With Response

.Write "<font face=verdana size=1>"

.Write "<li>" & objRst("news") & "</li>"

.Write "</font>"

End With

objRst.MoveNext

Loop

Set objRst = Nothing

Set objConect = Nothing

%>

Setembro 16, 2004

Ola Amigos,

Bom estou trabalhando com o inno setup e consigo criar o programa porém ele fica muito grande. Teria como extrair um arquivo exe, mas que não apareça aquela tela do DOS, que seja extraido automático, caso alguém saiba com faze-lo, agradeceria a ajuda,

Um abraço

Fábio Freitas

Agosto 31, 2004

lembrando seria um menu pop-up que o menu fica na frane superior e o conteudo será aberto dentro da frame inferior.

Agosto 31, 2004

Utilizando menu pop-up?

Agosto 31, 2004

OLA AMIGOS!!

Alguém tem algum exemplo de site ou sabe alguma maneira de colocar o conteudo do menu abrindo sobre a frame, tinha um site www....brasil.com.br, mas ele agora esta fora do ar

Agosto 6, 2004

use está extensão, veja se ajuda http://geocities.yahoo.com.br/fabio_suport...2/banneriii.htm

Agosto 5, 2004

Sei que estou sendo confuso, resumindo ....

Teria como eu colocar o iframe, mas configura-lo para abrir certo na página, que a barra de rolagem da iframe fique no canto dela para não parecer que é outra página, caso seja aberto em um outro computador com outra resolução ou até outro navegador

Agosto 4, 2004

Primeiramente obrigado por mais esta ajuda..

Bom já haviamos conversado sobre isso, mas a minha dúvida é se eu conseguiria colocar o iframe no lugar do frame, pois usando o Front Page após dividir os frames posso coloar o endereço do dite (http://www ). na verdade aonde seria o frame aonde esta todo aquele texto seria um iframe, e em relação a resolução da página, por exemplo no iframe (http://drea,...) teria como coloca-lo o mais parecido possível.

Agosto 4, 2004

Segue o link http://geocities.yahoo.com.br/fabio_suporte2002/ , qualquer coisa estou on-line

Agosto 3, 2004

se eu inserir um iframe dentro da frame na parte inferior o menu não consegue sobrepor o frame inferior, minha ideia era que a frame inferir fosse aberto como um iframe assim eu poderia sobrepor.

Agosto 3, 2004

Veja se vc's podem me ajudar:

Tenho 3 (três) frames, uma superior e duas na parte inferior, porem gostaria que uma dessas debaixo fosse um iframe, não sei se fui claro, pois estou tendo um problema com o menu que não sobrepoem a frame debaixo.

Caso alguém saiba me explicar ou não tenha entendido favor postar aqui

Julho 26, 2004

Olá Bom ... a todos.

Inseri em meu site algumas páginas com iframe efiquei sabendo por um amigo que nem todos os navegadores conseguem interpretar uma página com iframe.

Caso alguém saiba de algo por favor post.

Desde já agradeço

Junho 28, 2004

oi Deividy havia pedido ajuda antes sobre o menu que fica abaixo da frame, pois acho eu com essa camada fixa no topo posso resolver aquele problema.

Entrar

Fábio freitas

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Fábio freitas

Mac Address

Upload De Imagens

Upload De Imagens

Mac Address

Landscape

Landscape

Landscape

Janela Window.showmodal

Conexão

Conexão

Conexão

Inserir Dados

Conexão

Inno Setup

Menu Sobre Frame

Menu Sobre Frame

Menu Sobre Frame

Bannre Rotativo

Iframe Como Frame

Iframe Como Frame

Iframe Como Frame

Iframe Como Frame

Iframe Como Frame

Iframe

Camada Com Posição Absoluta

Navegação

Atividades