Problema com Validacao de Formulario via Imagem

[Bruno Veanet 0]

Gente,

 

Achei um codigo de como fazer validaçao de formulario via imagem, soh q até agora nao funfo.. nao sei oq fazer e peço q me ajudem...

 

o codigo eh esse

 

img.asp

<%
Function aleatorio(q)
'Função para gerar conjunto de caracteres aleatórios
dim a, i, s
for i = 48 to 90 : if i < 58 or i > 64 then : a = a & chr(i) & " " : end if : next : a = split(lcase(a) & a)
randomize
for i = 1 to q : s = s & a( int(ubound(a) * rnd) ) : next
aleatorio = s
end function


'Aqui chamamos a função e armazenamos o resultado da mesma em uma sessão.
'Troque o 6 pela quantidade de caracteres que deseja sortear.
Session("Senha") = aleatorio(6)
'Response.write aleatorio(6)

'Cria o objeto Jpeg
dim oJpeg, sPath
Set oJpeg = Server.CreateObject("Persits.Jpeg")
'Imagem usada como fundo no caso mandei um JPG qualquer com o nome de imagem
sPath = Server.MapPath("imagemFundo.jpg")
'Abre a imagem existente
oJpeg.Open sPath
'Salva a imagem. Aqui foi usada a pasta teste, que obrigatoriamente deve ter permissão de escrita.
'Altere-a pela pasta onde será salva a imagem.
oJpeg.Save Server.MapPath("captcha.jpg")
'Define altura e largura da imagem.
oJpeg.Width = 200
oJpeg.Height = 40
with oJpeg.Canvas
'Define cor, fonte, tamanho e tipo de qualidade do texto
.Font.Color = &H800000
.Font.Family = "Verdana"
.Font.Size = "36"
.Font.Bold = True
.Font.Quality = 4
'Desenha as bordas da imagem.
.Pen.Color = &H800000
.Pen.Width = 1
.Brush.Solid = False
.DrawBar 1, 1, oJpeg.Width, oJpeg.Height
.PrintText 30, 0, "" & Session("Senha") & ""
end with
'Envia a imagem para o navegador.
oJpeg.SendBinary
'Remove a instância do objeto da memória
Set oJpeg = Nothing
%>

 

valida.asp

<%
' Verifica se o valor digitado no campo do formulário é o mesmo que gerou a imagem no script img.asp
if request.ServerVariables("REQUEST_METHOD") = "POST" then
  if Request.Form("txt_key") = Session("Senha") then
	Response.Write "Formulário confirmado!"
  else
	Response.Write "Preencha o campo com os caracteres da imagem!"
  end if
end if
%>
<form name="form1" method="post" action="">
  <input name="txt_key" type="text" id="txt_key" size="10">
  <input type="submit" name="Submit" value="Enviar">
  <br />
  <img src="img.asp">
</form>

 

 

e o erro eh esse:

 

Persits.Jpeg.1 error '800a0002'

 

The system cannot find the file specified.

 

/teste/img.asp, line 23

 

se puderem me ajudar ficarei grato =D

[Thiago Gurgel 0]

parece que ele não esta achando o arquivo

 

 

" captcha.jpg "

[Bruno Veanet 0]

entao oq eu faço to perdidinho :mellow:

 

 

retiro essa linha?

[hargon 64]

Não retira a linha, depende dela para funcionar... cria uma imagem com o nome captcha.jpg e coloca no diretório de mesmo nível do arquivo.asp executado.

 

Dê uma olha onde você pegou o código, provavelmente lá explica todos os passos para utilizar o mesmo.

 

Qualquer dúvida poste aqui.