Juliano Gomes

caros colegas, na função abaixo eu consigo converter qualquer caracter para seu código ASC

Function Ansi(valor)
For i = 1 To Len(Valor)
	Str = Asc(Mid(Valor, i, 1))
	If Len(Str) = 1 Then Str = Str
	Response.Write Str
Next
End Function

se eu der um <%Response.Write(Ansi("A"))%> o resultado seria: 65
se eu der um <%Response.Write(Ansi("B"))%> o resultado seria: 66
se eu desse um <%Response.Write(Ansi("AB"))%> o resultado seria: 6566

para eu reverter isso nao bastaria trocar o
Str = Asc(Mid(Valor, i, 1)) por Str = Chr(Mid(Valor, i, 1)) ???

olhem a minha tentativa frustrada de reverter o codigo gerado na função Ansi :

Function Char(valor)
For i = 1 To Len(Valor)
	Str = Chr(Mid(Valor, i, 1))
	If Len(Str) = 1 Then Str = Str
	Response.Write Str
Next
End Function

o resultado que eu gostaria de obter num <%Response.Write(Char("65"))%> seria: A
porem obtenho o caracter: 

alguem poderia me ajudar com isso?

um forte abraço!

olá, gostaria de saber se alguem saberia me dizer que fonte é essa que está na imagem abaixo, pois preciso encontrar ela





um grande abraço!

Salve galera!

tenho um combo box dentro de um form... nele eu pego do banco de dados valores referentes a marca de carros.

<select name="marcas" id="marcas" style="border-color: #000000; border-width: 1; border-style: solid; background-color:#FFFFFF; font-size: 10; font-family: verdana; width=130px;" onChange="java script:atualizacarros(this.form);">
		<% While NOT Rs.EoF %>
		<option value="<% = Rs("CODIGO") %>">
		<% = Rs("NOME") %>
		</option>
		<% Rs.MoveNext %>
		<% Wend %>
	  </select>

bom, entao no meu código em asp tenho uma variavel que resgata o valor que foi escolhido e joga no select, assim:

Marca  = Request.Form("marcas")
strSql = "SELECT * FROM veiculos WHERE TIPO LIKE '1' AND MARCA LIKE '" & Marca & "' "

Os problemas são:

1. O meu select parece nao estar pegando o valor que foi selecionado no combo box, pois gera o erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-5.0.22-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'AND MARCA LIKE ''' at line 1
/automoveis/tmp.asp, line 225

Linha 225 tem: Set oRS = oConn.Execute ( strSQL )

2. trabalhando a sql direto no fron-end eu verifiquei que a ( LIKE '" & Marca & "' " ) tem que ser uma String entre aspas como por exemplo 'peugeot' , e acho que dessa maneira como está não está retornando isso....

se alguem puder me ajudar....

abraços!

só pra complementar...

o meu form e o código sql estao na mesma pagina "tmp.asp"
sendo assim no no form eu coloquei:

<form name="Consulta"  method="get" action="tmp.asp">

pessoal, to montando um formulario para visualização de imagens o nome dele é "galeria.asp" nele eu tenho a variavel "LinkIndic" que é responsável por armazenar o link da imagem que o usuário está visualizando...

LinkIndic = "<a href=""java script:abrir('"&Pagina&"');"""">Clique Aqui</a>"

bom, logo abaixo desse formulário eu coloquei um include de uma outra pagina, que seria a pagina de indicação da imagem a um amigo

<!--#include file="indique.asp"-->

o fato é que na indicação eu mando um email em formato html

objCDO.MailFormat = 0
objCDO.Bodyformat = 0

e no corpo do email da pagina "indique.asp" eu gostaria de chamar a variável "LinkIndic" contida na pagina "galeria.asp" para transforma-la em um link para o usuáriover a imagem... eu fiz dessa maneira mas no email nao ta mostrabndo o link:

htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>para ver a imagem "&request(LinkIndic)& "</font><br><br>"

objCDO.Body = htmlemail

ja tentei com o request e sem ele e nada...

Obs:
Componente = CDONTS

Alguma sugestão de como proceder nesse caso?

Abraços!

caros amigos, to com um probleminha aqui.... no meu projeto eu busco imagens em uma determinada pasta. o flash busca essas imagens atravez de um arquivo .ASP.

Ele ta carregando certinho, porem nao troca as imagens automaticamente... alguem poderia me ajudar com isso???

o meu projeto é parecido com o desse site. "flash no canto superior direito"

vou postar os códigos aqui para alguem que saiba me ajudar a encontrar o problema:

Codigo do Arquivo ASP

&nome1=EEBA&
&img1=images/001.jpg&
&nome2=EEBA&
&img2=images/002.jpg&
&nome3=DEPENDENCIAS&
&img3=images/003.jpg&
&nome4=ENTRADA&
&img4=images/004.jpg&
&nome5=PROFESSORES&
&img5=images/005.jpg&
&nome6=ALUNOS&
&img6=images/006.jpg&
&maximo=6&

Scripts : frame 1

function mudaAlpha (mc, mcLoad) {
	mc.onEnterFrame = function  () {
		if (this._alpha > 0) {
			this._alpha = this._alpha - 5
			} 
			else if (this._alpha <= 0) {
				this.loadMovie(mcLoad)
				} else {
				stop()
				}
		}
	mc.play()
	}
function trocaImagem (indice) {
	if (contador < seg) {
		if (indice eq "proximo") {
			fotoSeguinte.loadMovie(imgs[seguinte])
			} 
			else if (indice eq "anterior") {
				atual--
				seguinte = atual
				if (seguinte < 0) {
					seguinte = max - 1
					}
				fotoSeguinte.loadMovie(imgs[seguinte])
				}
		contador = seg
		}
	}
System.useCodepage = true
_root.imagens.setMask(_root.mask)
fotoAtual = _root.imagens.createEmptyMovieClip("fotos", 2)
fotoSeguinte = _root.imagens.createEmptyMovieClip("fotos2", 1)
seg = 30
contador = -1
atual = 0
seguinte = atual + 1
max = 10
imgs = new Array ()
nomes = new Array ()
obj = new LoadVars ()
obj.onLoad = function  () {
	i = 1
	max = this.maximo
	for ( i = 1; i <= max; i++){
		imgs[i - 1] = eval("this.img" + i)
		nomes[i - 1] = eval("this.nome" + i)
		}
	contador = 0
	fotoAtual.loadMovie(imgs[0])
	}
obj.sendAndLoad("imagens.asp", obj, "POST")
_root.imagens.onEnterFrame = function  () {
	}
_root.onEnterFrame = function  () {
	switch(contador){
		case 0 :
			fotoAtual._alpha = 100
			seguinte = 0
			fotoSeguinte.swapDepths(1)
			fotoSeguinte.loadMovie(imgs[seguinte])
			break //Goto(386)
		case seg :
			mudaAlpha (fotoAtual,imgs[seguinte])
			break //Goto(386)
		case seg + 21 :
			fotoAtual.onEnterFrame = undefined
			fotoSeguinte.swapDepths(5)
			contador = -1
			atual = seguinte++
			if (atual >= max) {
				atual = 0
				}
			break //Goto(386)
		}
	_root.titulo = nomes[atual]
	if ((seguinte == max) ||  (seguinte < 0)) {
		}
	contador++
	}

Botao anterior

on (release)
{
trocaImagem ("anterior")
}

Botao proximo

on (release)
{
trocaImagem ("proximo")
}

Abraços!