Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

January 7, 2016, 3:22 am

≪ Previous: ASP CLASSICO - Dúvidas com LOOP DO

Pessoal, comprei uma loja virtual em asp e vez ou outra preciso resolver alguns problemas. Não sou programador, mas consigo me virar nas literaturas disponíveis. Porém ontem aconteceu um fato inusitado e não consigo resolver, por isso preciso da ajuda de vocês:

No meu cadastro de produtos, tem um código para adicionar a foto do produto ao seu cadastro. Até ontem havia cadastrado 1700 produtos sem problemas. Mas aí surgiu o erro mencionado, sem que tenha havido qualquer alteração no código. Seguem as linhas e o erro:

Agradeço a quem puder ajudar, pois estou com o cadastro de produtos parado por causa disso.

A linha 143 está destacada em negrito.

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'Item(...)'

/admin/upload_foto1.asp, linha 143

Sub BuildUploadRequest(RequestBin)

PosBeg = 1

PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

boundaryPos = InstrB(1,RequestBin,boundary)

Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

Dim UploadControl

Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))

Pos = InstrB(Pos,RequestBin,getByteString("name="))

PosBeg = Pos+6

PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))

Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))

PosBound = InstrB(PosEnd,RequestBin,boundary)

If PosFile <> 0 AND (PosFile<PosBound) Then

PosBeg = PosFile + 10

PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))

FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

UploadControl.Add "FileName", FileName

Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))

PosBeg = Pos+14

PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

UploadControl.Add "ContentType",ContentType

PosBeg = PosEnd+4

PosEnd = InstrB(PosBeg,RequestBin,boundary)-2

Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

Else

Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))

PosBeg = Pos+4

PosEnd = InstrB(PosBeg,RequestBin,boundary)-2

Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

End If

UploadControl.Add "Value" , Value

UploadRequest.Add name, UploadControl

BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)

Loop

End Sub

Function getByteString(StringStr)

For i = 1 to Len(StringStr)

char = Mid(StringStr,i,1)

getByteString = getByteString & chrB(AscB(char))

End Function

Function getString(StringBin)

getString =""

For intCount = 1 to LenB(StringBin)

getString = getString & chr(AscB(MidB(StringBin,intCount,1)))

End Function

pasta_imagens = "../" & Request("pasta")

pasta = Server.URLEncode(Request("pasta"))

campo = Server.URLEncode(Request("campo"))

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If Not objFS.FolderExists(Server.MapPath(pasta_imagens)) Then

objFS.CreateFolder(Server.MapPath(pasta_imagens))

End if

If Request("enviar") <> "" Then

Set objFS = Nothing

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

value = UploadRequest.Item("blob").Item("Value")

If Lcase(Right(filename,3)) = "jpg" Or Lcase(Right(filename,3)) = "gif" then

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

If objFS.FileExists( Server.mappath(pasta_imagens & "\" & filename)) Then

alert("Erro ao enviar imagem, o arquivo '<%=filename%>' já existe na pasta '<%=pasta_imagens%>' do seu site")

enviar.disabled = false;

</script>

Else

If LenB(value) > "200000" then

alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 200Kb")

enviar.disabled = false;

</script>

Else

<strong>Aguarde o envio da imagem...</strong><br>

<tr>

</tr>

</table>

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile( Server.mappath(pasta_imagens & "\" & filename))

progress = 0

n = 0

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

progress = Fix((i * 100) / LenB(value))

If n <> progress then

n = progress

End if

MyFile.Close

' Create instance of AspJpeg

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Open source image

imagem = ""&replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&"") &"\" & filename &""

Jpeg.Open imagem

' New width

L = 185

' Resize, preserve aspect ratio

If jpeg.OriginalWidth > jpeg.OriginalHeight Then

jpeg.Width = L

jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

Else

jpeg.Height = L

jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight

End If

' create thumbnail and save it to disk

imagem = ""&replace(replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&""), "grande", "media") &"\" & filename &""

Jpeg.Save imagem

jpeg.close

set jpeg = nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Open source image

imagem = ""&replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&"") &"\" & filename &""

Jpeg.Open imagem

' New width

L = 75

' Resize, preserve aspect ratio

If jpeg.OriginalWidth > jpeg.OriginalHeight Then

jpeg.Width = L

jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

Else

jpeg.Height = L

jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight

End If

' create thumbnail and save it to disk

imagem = ""&replace(replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&""), "grande", "pequena") &"\" & filename &""

Jpeg.Save imagem

jpeg.close

set jpeg = nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Open source image

imagem = ""&replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&"") &"\" & filename &""

Jpeg.Open imagem

' New width

L = 600

' Resize, preserve aspect ratio

If jpeg.OriginalWidth > jpeg.OriginalHeight Then

jpeg.Width = L

jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

Else

jpeg.Height = L

jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight

End If

' create thumbnail and save it to disk

imagem = ""&replace(Request.ServerVariables("PATH_TRANSLATED"), "admin\upload_foto1.asp", ""&replace(replace(pasta_imagens, "../", ""), "/", "\")&"") &"\" & filename &""

Jpeg.Save imagem

jpeg.close

set jpeg = nothing

envia_imagem('<%=pasta_imagens&"" & "/" & filename%>');

</script>

End If

Set objFS = Nothing

End if

Else

alert("Erro ao enviar a imagem, lembre-se que ela deve possuir extensão JPG ou GIF");

enviar.disabled = false;

</script>

End If

<FORM METHOD="post" ENCTYPE="multipart/form-data" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>?campo=<%=campo%>&pasta=<%=pasta%>&enviar=sim" onSubmit="enviar.disabled=true">

Enviar uma nova imagem<BR>

<i>(A imagem deve ter nó máximo 200Kb)</i>

</FORM>

Selecionar uma imagem enviada anteriormente<BR>

lista_imagens pasta_imagens, "gif,jpg"

Function lista_imagens( strFolder, tipo )

If Trim( Request.QueryString("folder") ) <> "" Then

strFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.QueryString("folder")

End If

Dim Folder, File

Dim ObjFS, objRootFolder

Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = ObjFS.GetFolder(Server.MapPath(strFolder))

For Each File in objFolder.files

tipo = Replace(tipo, ",", "")

For i = 1 to len(tipo) step 3

If Right(File, 3) = Mid(tipo, i, 3) Then

Response.Write " <a href=""javascript: envia_imagem('"&pasta_imagens&"/" & File.Name & "')"" class=""texto_pagina"">" & File.Name & "</a><BR>" & vbcrlf

End If

Response.Write "</td></tr></table>" & vbcrlf

Set objFolder = Nothing

Set Folder = Nothing

End Function

↧

Não custa perguntar

January 8, 2016, 4:15 am

≫ Next: ASP x FIREBIRD

≪ Previous: Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Oi Meninos, sei que muitos de vocês são designers e trabalham com font, vocês tem ideia que font foi utilizada na imagem abaixo? Alguém sabe o nome?

↧

ASP x FIREBIRD

January 9, 2016, 5:55 am

≫ Next: Microsoft VBScript runtime error '800a01a8'

≪ Previous: Não custa perguntar

Bom dia, preciso resolver uma coisa que me da tregua, sempre fiz asp x com mysql, mas agora!

set strConexao = CreateObject("ADODB.Connection")

strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")

Set oRs = Server.CreateObject("ADODB.Recordset")

varempresa = request.Form("txtempresa")

varcnpj = request.Form("txtcnpj")

'varcodigo = request.Form("txtsenha")

'varseguimento = request.Form("txtseguimento")

varemail = request.Form("txtemail")

varcidade = request.Form("txtcidade")

Set oRs = bd.Execute("INSERT INTO EMPRESA (NOME_FANTASIA,CNPJ,EMAIL,CIDADE)VALUES('"&varempresa&"','"&varcnpj&"','"&varemail&"','"&varcidade&"'")

Olha o erro!

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/cadastrar.asp, linha 29

Ja revisei , desde ja agradeço!

↧

Microsoft VBScript runtime error '800a01a8'

January 11, 2016, 2:47 pm

≫ Next: Login Ajax em SSl

≪ Previous: ASP x FIREBIRD

Boa noite pessoal precisava de uma ajuda com esse código tava funcionando perfeitamente mas depois que meu provedor atualizaou o servidor está dando esse erro.

Microsoft VBScript runtime error '800a01a8'

Objeto necessário: 'Item (...)'

/adm/adicionar_imovel-asp.asp, linha 21

Segue o código:

'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))

byteCount = Request.TotalBytes

'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

value = UploadRequest.Item("blob").Item("Value")

If Not (filename = "" or IsNull(filename)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 01

contentType = UploadRequest.Item("blob01").Item("ContentType")

filepathname01 = UploadRequest.Item("blob01").Item("FileName")

filename01 = Right(filepathname01,Len(filepathname01)-InstrRev(filepathname01,"\"))

value = UploadRequest.Item("blob01").Item("Value")

If Not (filename01 = "" or IsNull(filename01)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd01 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename01)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 02

contentType = UploadRequest.Item("blob02").Item("ContentType")

filepathname02 = UploadRequest.Item("blob02").Item("FileName")

filename02 = Right(filepathname02,Len(filepathname02)-InstrRev(filepathname02,"\"))

value = UploadRequest.Item("blob02").Item("Value")

If Not (filename02 = "" or IsNull(filename02)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd02 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename02)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 03

contentType = UploadRequest.Item("blob03").Item("ContentType")

filepathname03 = UploadRequest.Item("blob03").Item("FileName")

filename03 = Right(filepathname03,Len(filepathname03)-InstrRev(filepathname03,"\"))

value = UploadRequest.Item("blob03").Item("Value")

If Not (filename03 = "" or IsNull(filename03)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd03 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename03)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 04

contentType = UploadRequest.Item("blob04").Item("ContentType")

filepathname04 = UploadRequest.Item("blob04").Item("FileName")

filename04 = Right(filepathname04,Len(filepathname04)-InstrRev(filepathname04,"\"))

value = UploadRequest.Item("blob04").Item("Value")

If Not (filename04 = "" or IsNull(filename04)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd04 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename04)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 05

contentType = UploadRequest.Item("blob05").Item("ContentType")

filepathname05 = UploadRequest.Item("blob05").Item("FileName")

filename05 = Right(filepathname05,Len(filepathname05)-InstrRev(filepathname05,"\"))

value = UploadRequest.Item("blob05").Item("Value")

If Not (filename05 = "" or IsNull(filename05)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename05)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 06

contentType = UploadRequest.Item("blob06").Item("ContentType")

filepathname06 = UploadRequest.Item("blob06").Item("FileName")

filename06 = Right(filepathname06,Len(filepathname06)-InstrRev(filepathname06,"\"))

value = UploadRequest.Item("blob06").Item("Value")

If Not (filename06 = "" or IsNull(filename05)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename06)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 07

contentType = UploadRequest.Item("blob07").Item("ContentType")

filepathname07 = UploadRequest.Item("blob07").Item("FileName")

filename07 = Right(filepathname07,Len(filepathname07)-InstrRev(filepathname07,"\"))

value = UploadRequest.Item("blob07").Item("Value")

If Not (filename07 = "" or IsNull(filename07)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename07)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

'Imagem G 08

contentType = UploadRequest.Item("blob08").Item("ContentType")

filepathname08 = UploadRequest.Item("blob08").Item("FileName")

filename08 = Right(filepathname08,Len(filepathname08)-InstrRev(filepathname08,"\"))

value = UploadRequest.Item("blob08").Item("Value")

If Not (filename08 = "" or IsNull(filename08)) Then

'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename08)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

MyFile.Close

End If

categoria = UploadRequest.Item("categoria").Item("Value")

tipo = UploadRequest.Item("tipo").Item("Value")

cidade = UploadRequest.Item("cidade").Item("Value")

imagem_p = filename

valor = Trim(UploadRequest.Item("valor").Item("Value"))

'definindo valor_media de acordo com categoria e preço do imóvel

If categoria = "para alugar" then

If (int(valor) > 20000 and int(valor) < 40000) then

valor_media = "R$ 200,00 à 400,00"

ElseIf (int(valor) > 40100 and int(valor) < 60000) then

valor_media = "R$ 400,00 à 600,00"

ElseIf (int(valor) > 60100 and int(valor) < 80000) then

valor_media = "R$ 600,00 à 800,00"

ElseIf (int(valor) > 80100 and int(valor) < 100000) then

valor_media = "R$ 800,00 à 1.000,00"

ElseIf (int(valor) > 10100 and int(valor) < 120000) then

valor_media = "R$ 1.000,00 à 1.200,00"

Else

valor_media = "Acima de R$ 1.200,00"

End If

'Response.Write "Valor: " & int(valor) & "<BR>"

'Response.Write "Valor Media: " & valor_media

'Response.End

'fim de definição da variavel valor_media

imagem_g01 = filename01

imagem_g02 = filename02

imagem_g03 = filename03

imagem_g04 = filename04

imagem_g05 = filename05

imagem_g06 = filename06

imagem_g07 = filename07

imagem_g08 = filename08

destaque = UploadRequest.Item("destaque").Item("Value")

If destaque = "n" then

destaque = 0

Else

destaque = 1

End If

descricao = Trim(UploadRequest.Item("descricao").Item("Value"))

data_cadastro = Date

Conecta()

SQL = "Insert Into IMOVEIS (CATEGORIA, TIPO, CIDADE, VALOR, VALOR_MEDIA, DESCRICAO, IMAGEM_P, IMAGEM_G01, IMAGEM_G02, IMAGEM_G03, IMAGEM_G04, IMAGEM_G05, IMAGEM_G06, IMAGEM_G07, IMAGEM_G08, DATA_CADASTRO, DESTAQUE) Values ('" & categoria & "', '" & tipo & "', '" & cidade & "', '" & valor & "', '" & valor_media & "', '" & descricao & "', '" & imagem_p & "', '" & imagem_g01 & "', '" & imagem_g02 & "', '" & imagem_g03 & "', '" & imagem_g04 & "', '" & imagem_g05 & "', '" & imagem_g06 & "', '" & imagem_g07 & "', '" & imagem_g08 & "', '" & data_cadastro & "', '" & destaque & "')"

AbreRecordSet(SQL)

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Cajamar Imóveis</title>

</script>

<!--

.style1 {font-size: 18px;

color: #FFFFFF;

}

.style3 {font-size: 18px}

.style4 {color: #FFFFFF}

-->

</style>

</head>

<tr>

</tr>

<tr>

<tr>

<td width="286" align="center" valign="middle"><strong><font color="#000000" size="4" face="Arial, Helvetica, sans-serif">Sistema

Administrativo</font></strong></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

<td height="30" align="center" valign="middle" bgcolor="#FF0000" class="txt11 style3 style4 style1">Imóvel adicionado com sucesso!! </td>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td align="left" valign="top" bgcolor="#EAEAEA" class="txt11"><p><strong>Você adicionou um imóvel ao banco de dados!!!</strong></p>

<p>Confira abaixo os dados cadastrados:</p>

<p><strong>Categoria: </strong>

<% = categoria%>

Tipo: </strong>

<% = tipo%>

Valor: </strong>

<% = valor%>

Descrição: </strong>

<% = descricao%>

<br>

<b>Valor Média:</b> <%=valor_media%></p>

<p>Para adicionar outro imóvel, <a href="adicionar_imovel.asp">Clique

aqui.</a></p>

FechaRecordSet()

If Not (filename = "" or IsNull(filename)) Then

End If

%> </td>

</tr>

<tr>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table></td>

↧

Login Ajax em SSl

January 12, 2016, 1:58 pm

≫ Next: Listar 1 registro

≪ Previous: Microsoft VBScript runtime error '800a01a8'

Olá, estou tentando fazer um form de login que não exponha os dados do usuário utilizando SSL.

Minha hospedagem oferece SSL compartilhado, e já coloquei o arquivo que processa o login e dá o retono, no entanto, quero utilizar em um modal para fazer o submit com ajax e obter a resposta, mas como não estou conseguindo, se alguém já tiver feito isso e puder me dizer como, agradeço... se não der pra fazer em ajax, aceito qualquer outra forma de ajuda.

Atualmente faço:

1- login no modal

2 - ao submeter vai para _processa.asp

3 - recebe retorno

4 - se ok, vou para a página protegida

5 - caso contrario exibo o erro no modal mesmo

Só que não estou conseguindo proteger os dados do post, ou seja, está inseguro.

Obrigado

↧

Listar 1 registro

January 13, 2016, 2:55 pm

≫ Next: Gravando data no firebird em ASP

≪ Previous: Login Ajax em SSl

Olá a todos,

Bem eu tenho uma tabela com cód. da empresa, códigos de cupom e cód. do usuário. Ex:

Empresa | Cupom | Usuário

1000 | AAA | Pedro

1000 | BBB |

1234 | XXX | Paulo

1000 | CCC |

Quero listar o 1º cód. de cupom que não tem um usuário informado e se for acrescentado 1 usuário nele ele passa a listar o próximo cód. que estiver vazio até acabar.

Já consegui fazer listar os registros vazios porém todos e não consigo apenas o 1º. Está aparecendo BBB CCC

Fiz da seguinte forma:

Set rsGetsites = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * From tblCUPONSCONSULTA WHERE IDSITES = " & intSiteIDNo & ";"

rsGetsites.CursorType = 2

rsGetsites.LockType = 3

rsGetsites.Open strSQL, strCon

set rsGetsites = adoCon.Execute(strSQL)

Do while not rsGetsites.eof

If isNull(rsGetsites("USER_ID")) then

Response.Write vbCrLf & "<b>" & rsGetsites("COD") &"</b><BR>"

End IF

rsGetsites.MoveNext

loop

Ele lista todos os cupons quando usuário está vazio, porém como disse preciso que liste apenas o 1º cupom e se este for utilizado ai passa para o segundo cupom e assim por diante. Deveria sair BBB apenas.

↧

Gravando data no firebird em ASP

January 14, 2016, 9:31 am

≫ Next: envio de email no form, não chega no destinatário

≪ Previous: Listar 1 registro

Boa tarde!

Dim com

Dim a

Dim d

Dim m

function formataData( parametro )

com = cDate(parametro)

d = Day(com)

m = Month(com)

a = Year(com)

if d < 10 then d = "0"& d

if m < 10 then m = "0"& m

formataData = a &"/"& m &"/"& d

end function

dim strConexao

dim oRs

dim varpro

dim varper

dim vardatai

dim vardataf

set strConexao = CreateObject("ADODB.Connection")

strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")

Set oRs = Server.CreateObject("ADODB.Recordset")

varpro = request.form("txtpro")

varper = request.form("txtper")

vardatai = formataData( Request.Form("txtdatai") )

vardataf = formataData( Request.Form("txtdataf") )

Linha 35 do select

Set oRs = strConexao.Execute("insert into pro (produto,PER,DATA_INI,DATA_FIN)values('"&varpro&"','"&varper&"','"&vardatai&"','"&vardataf&"')")

Erro

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[ODBC Firebird Driver][Firebird]conversion error from string ""

/promo.asp, linha 35

O é esse erro?

Desde ja agradeço

↧

envio de email no form, não chega no destinatário

January 15, 2016, 4:42 am

≫ Next: Reescrevendo URL em ASP

≪ Previous: Gravando data no firebird em ASP

Estou com um probleminha amigos, montei o formulário de contato no meu site, mas não estou recebendo as informações preenchidas no formulário, e o detalhe é que esse mesmo envio eu utilizo em outro site , se alguém puder me ajudar fico muito agradecido, segue os codigos;

contato.html

<form id="main-contact-form" name="contact-form" method="post" action="envia.asp">
                                <div class="form-group">
                                    <input type="text" name="nome" class="form-control" placeholder="Nome" required>
                                </div>
                                <div class="form-group">
                                    <input type="email" name="email" class="form-control" placeholder="E-mail" required>
                                </div>
                                <div class="form-group">
                                    <input type="text" name="assunto" class="form-control" placeholder="Assunto" required>
                                </div>
                                <div class="form-group">
                                    <textarea name="mensagem" class="form-control" rows="8" placeholder="Mensagem" required></textarea>
                                </div>
                                <button type="submit" class="btn btn-primary">Enviar Formulário</button>
                            </form>

envia.asp

<%

session("dados_ok") = request.QueryString("sessao")

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino
Dim email

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "mail.phwinformatica.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "contato@phwinformatica.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "minha-senha" ' senha da conta de e-mail
emailorigem = "contato@phwinformatica.com.br" ' e-mail que indica de onde partiu a mensagem
'emailorigem = request.Form("email") ' e-mail que indica de onde partiu a mensagem
emaildestino = "wandersomrl@hotmail.com" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 587
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Cadastro no formulário do site phwinformatica.com.br"
cdoMessage.ReplyTo = Request("email")

strBody = "<h3>Dados do Formulario</h3><h5> <br> <br>" & _
"Nome: "& Request("nome")& "<br><br>" & _
"E-Mail: "& Request("email")& "<br><br>" & _
"Assunto: "& Request("assunto")& "<br><br>" & _
"Mensagem: "& Request("mensagem")& "</h5>"

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.Redirect("http://www.phwinformatica.com.br")
%>

↧

Reescrevendo URL em ASP

January 20, 2016, 3:30 am

≫ Next: webservice acesso javascript

≪ Previous: envio de email no form, não chega no destinatário

Pessoal, bom dia.

Estou trabalhando em uma aplicação ASP em que preciso mudar o nome da URL.

Ex.: Quando o usuário digitar www.meusite.com.br, ele irá carregar minha página inicial. Eu gostaria que aparecesse na barra de endereços www.meusite.com.br/site/passo1.

Quando o usuário preencher o formulário e clicar em consultar ele deverá ir para outra página e então gostaria que aparecesse na URL o segundo passo, conforme o exemplo abaixo:

www.meusite.com.br/pagina2/site/passo2. Estive pesquisando em vários tópicos pela web e achei alguns exemplos de URL amigável, mas não consegui fazer exatamente como eu quero. Vocês sabem se é possível realizar essa reescrita da URL ou se tem alguma função no IIS onde eu possa colocar essa especificação?

Desde já, agradeço.

↧

webservice acesso javascript

January 21, 2016, 8:44 am

≫ Next: Comparação data

≪ Previous: Reescrevendo URL em ASP

ola boa tarde

gente eu trabalho com webservice eu faço tudo em vb.net

e acesso em asp.net

porem surgiu um problema aqui pra mim existe um cliente que tem uma plataforma

ja pronta eles precisam acessar o webservice do servidor.

Porem esta plataforma somente exige que a programacao seja feita em html e javascript

eu preciso acessar o webservice usando apenas html e javascript

isso eu nao sei fazer alguem tem algum exemplo pra me enviar

pode ser o famoso o helloworld

↧

Comparação data

January 21, 2016, 2:43 pm

≫ Next: Problema de acentuação com Uploadify no ASP

≪ Previous: webservice acesso javascript

Galera me ajudem...

Tenho uma data armazenada no DB Access (lá ele está com formato de data/hora, mas para gravar só a data), quero pegar esta data e comparar se é ou não igual a data atual.

Fiz assim:

rscupom("DATA") = ""&date()&""

Porém não dá certo, mas se eu fizer assim (comparando a data como texto) ele aceita

rscupom("DATA") = "21/01/2016"

Mas preciso comparar sem ser texto, como posso fazer?

↧

Problema de acentuação com Uploadify no ASP

January 23, 2016, 2:15 pm

≫ Next: Erro de sintaxe '800a03ea'

≪ Previous: Comparação data

Olá pessoal, depois de muito quebrar cabeça e sem conseguir resolver meu problema, decidi pedir ajuda aqui com vocês. Uso o uploadify com ASP e tudo funfa as mil maravilhas, mas somente um problema está acontecendo... a acentuação no filename não aceita caractere especial e sobe o arquivo com interrogações dentro de um losango.

Pra adiantar a ajuda, segue as tentativas:

- UTF-8 em todos os arquivos;

- response.charset = "utf-8";

- Função de replace em cada caracter;

enfim... subo o arquivo e renomeio com numeros, mas como desejo guardar o nome original do arquivo no banco de dados, aí ta o problema. Já entra no banco com as tais interrogações. Ou seja, está no uploadify o problema.

Ah mais uma coisa.... garanto que o banco está gravando com acentuação normal.

Socorro!!

↧

Erro de sintaxe '800a03ea'

January 25, 2016, 5:00 am

≫ Next: Verificar último registro

≪ Previous: Problema de acentuação com Uploadify no ASP

Boas estou a ter este erro com esta funcao, se fiz normalmente trabalha bem mas criando uma funcao para isto da-me este erro:

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

Function chekregint(param) ^

Function chekregint(param)				
if check_reg.fields(""&param&"")="1" then
chekregint = " checked "
end if
end function


<%=chekregint(chC)%>

Obrigado

↧

Verificar último registro

January 25, 2016, 4:14 pm

≫ Next: Enviar email com conteúdo

≪ Previous: Erro de sintaxe '800a03ea'

Estou com um projeto que tem vários códigos em uma tabela. Ex.:

ID | COD

1 | 1000

2 | 1000

3 | 1000

4 | 1000

5 | 1000

Fiz um método para gravar o COD e ir ao próximo registro em branco e se o próximo estiver realmente em branco irá aparecer um botão CADASTRAR, mas caso já tenha todos sido preenchidos quero que apareça um botão ESGOTADO.

Consegui chegar ao último registro, mas não consigo comparar se ele é o último registro para aparecer o botão esgotado.

Meu select para listagem dos dados é:

strSQL1 = "SELECT TOP 1 * FROM tblCUPONS WHERE IDSITES = "& intSiteIDNo &" ORDER BY COD DESC"

Alguém pode me dar uma luz para este caso?

↧

Enviar email com conteúdo

January 26, 2016, 6:00 am

≫ Next: JSON + ASP - Cadastro de E-mail

≪ Previous: Verificar último registro

Olá!

Tenho uma página que utiliza dados do banco para exibir um pequeno relatório, além da opção de Imprimir gostaria de fazer com que fosse possível clicar em um botão para enviar aquele relatório por email.

Como posso conseguir isso?

Obrigado!

↧

JSON + ASP - Cadastro de E-mail

January 4, 2016, 1:04 pm

≫ Next: SELECT DISTINCT

≪ Previous: Enviar email com conteúdo

Caros amigos,

boa tarde. Feliz Ano a todos!

Estou tentando montar um cadastro de e-mail. Peguei um script na internet e não estou conseguindo adaptar no meu "sistema".

index.html

<form class="znhost-validator ajax" action="newsletter.asp" method="post">
	<div class="col-md-8"> 
	
	<input type="hidden" class="form-control required" name="nome" value="site" placeholder="digite seu nome" data-alert="Nome" />
	<input type="text" class="form-control required znhost-email-mask" name="email" value="" placeholder="digite seu e-mail" data-alert="E-mail" />
	</div> 
	<div class="col-md-1"> 
	<button name="receba-news" class="btn btn-default" type="submit">OK</button> 
	</div> 
	<div class="col-md-8 col-md-offset-3"> 
	<div class="alert alert-danger main-alert displaynone" data-alert="Preencha o(s) campo(s):"></div> 
	<div class="alert alert-success form-success displaynone"></div>
	</div> 
	</form>

script.js

<script>
function validateForm(form){
if(form.hasClass('znhost-validator')){
	var valid=true;var fields="";
	if(form.find('.check-validator').length>0){
		form.find('.check-validator').each(function(){
			if($(this).find('input:checked').length<1){
				valid=false;if($(this).attr('data-alert')!=""){
				fields+='<li>- <strong>'+$(this).attr('data-alert')+'</strong></li>';}
$(this).addClass('not-valid');}});}
if(form.find('.required').length>0){
	form.find('.required').each(function(){
		if($(this).val()==""||$(this).val()==undefined){
			valid=false;if($(this).attr('data-alert')!=""){
			fields+='<li>- <strong>'+$(this).attr('data-alert')+'</strong></li>';}
$(this).parent().parent().addClass('has-error');}
	else if(!!$(this).attr('data-confirm')){
		if($(this).val()!=form.find($(this).attr('data-confirm')).val()){
		valid=false;fields+='<li>- <strong>'+$(this).attr('data-confirm-alert')+'</strong></li>';$(this).parent().parent().addClass('has-error');}}});}
if(valid==false){form.find('.form-success').slideUp();form.find('.main-alert').html('');form.find('.main-alert').append('<p><span class="glyphicon glyphicon-warning-sign"/>'+form.find('.main-alert').attr('data-alert')+'</p>');form.find('.main-alert').append('<ul>'+fields+'</ul>');form.find('.main-alert').fadeIn();form.find('.not-valid .alert').fadeIn();return false;}else{return true;}}else{return true;}}
</script>

newsletter.asp

<%
		
    Response.ContentType = "application/json"
	Response.write ("{ ""email"": [""email@email.com""] }")
	Response.write ("{ ""nome"": [""site""] }")
	

		
	%>

Já tentei de tudo, porém só te retorna erro. "Erro, Tente Novamente".

Alguém consegue me dar um help?

Abraços

↧

SELECT DISTINCT

January 28, 2016, 5:07 am

≫ Next: Verificar a sequencia

≪ Previous: JSON + ASP - Cadastro de E-mail

Gostaria de saber se e possível fazer o seguinte:

Tenho a seguinte tabela abaixo e faço um SELECT DISTINCT para apresentar a empresa que foi pesquisada ou por título, palavra chave e/ou descrição, porém se houver dois registros com categorias diferentes ele apresenta os dois e na verdade preciso que ele mostre apenas o da categoria 1, eliminando a 6 da listagem.

Exemplo Tabela:

Title | Palavrachave | Description | Categoria |

______________________________________________________ |

Empresa 1 | Idiomas | escola de idiomas | 1 |

Empresa 2 | informatica | tecnologia | 1 |

Empresa 3 | Idiomas | escola de idiomas | 6 |

Empresa 4 | teste | teste | 1 |

______________________________________________________

Meu Select:

SELECT DISTINCT tblWebsites.* FROM tblWebsites WHERE (Title LIKE '%idiomas%') OR (Palavrachave LIKE '%idiomas%') OR (Description LIKE '%idiomas%') ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;

↧

Verificar a sequencia

January 28, 2016, 6:14 am

≫ Next: ENVIO DE EMAILS VIA (Cdosys)

≪ Previous: SELECT DISTINCT

Boa tarde galera tudo bem?

Estou com uma dúvida de como colocar nesse código uma função que verifica a sequencia de caixa digitada.
Exemplo: Se tenho cadastrado as caixas de 1 a 8 automaticamente tenho que digitar a 9, mas por alguma coisa vou e digito a 11, precisava colocar uma função que alertasse o usuário que a próxima caixa a ser gravada é a 10.

Ai tenho esse script aonde eu verifico se a caixa já está digitada e também o insert:

set verNumCaixa = server.createobject("adodb.recordset")
SQLvar = "SELECT * FROM NO_SERIE_PRODUTO_TEMP WHERE caixa='" & num_caixa & "'"
verNumCaixa.open SQLvar, db_conn

if not(verNumCaixa.eof) then
' Já cadastrado!
verNumCaixa.close

aspRed = aspRed & ""

Response.Write( "<script type='text/javascript'>alert('CAIXA JÁ CADASTRADA');window.location='" & aspRed & "';</script>" )

end if

verNumCaixa.close

' Não cadastrado! Prossiga...
set caixa = server.createobject("adodb.recordset")
set caixa = db_conn.execute ("SELECT * FROM NO_SERIE_PRODUTO_TEMP")

db_conn.execute ("insert into NO_SERIE_PRODUTO_TEMP (id_produto, quant, caixa) Values('"&num_id_produto&"','"&num_quant&"','"&num_caixa&"')")

set caixa = nothing

aspRed1 = aspRed1 & ""

Response.Redirect( aspRed1 )

Muito Obrigado

↧

ENVIO DE EMAILS VIA (Cdosys)

February 1, 2016, 2:40 pm

≫ Next: Erro com select duplo

≪ Previous: Verificar a sequencia

Ola boa noite!

Galera alguem pode me ajudar .

estou com problemas no envio de email via pagina html.

codigo

Quero usar assim, mas naun esta indo esta dando um erro!

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Request.form("nome") & Request.form("email")
objCDOSYSMail.To = "rogetec@rogetec.com.br"
objCDOSYSMail.Subject = "Orçamento"
objCDOSYSMail.HtmlBody = "<font size="" face=arial color=black><b>" & Request.Form("nome") & "</b>,<br><br><B>" & Request.Form("nome") & "</b> visitou o site <a href=http://www.rogetec.com.br target=_blank>Rogetec - Montagem e Manutenção Industrial </a> <BR><font face=arial color=black><b>Dados para contato</b>" &"<br>"& Request.Form("nome") & "<br>" & Request.Form("email") & "<br>" & Request.Form("empresa")& "<br>" & Request.Form("DDD") & Request.Form("tel") & "<br>" & Request.Form("mensagem")&"</font>" 
objCDOSYSMail.Send

Erro

error '8004020e'
/public_html/rogetec/asp_mail/aspmail-faleconosco.asp, line 17

linha do erro!

objCDOSYSMail.Send

mas qnd eu coloco o codigo assim ele roda !

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "rogetec@rogetec.com.br"
objCDOSYSMail.To = "rogetec@rogetec.com.br"

Codigo Completo

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
objCDOSYSCon.Fields.update 
 
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Request.form("nome") & Request.form("email")
objCDOSYSMail.To = "rogetec@rogetec.com.br"
objCDOSYSMail.Subject = "Orçamento"
objCDOSYSMail.HtmlBody = "<font size="" face=arial color=black><b>" & Request.Form("nome") & "</b>,<br><br><B>" & Request.Form("nome") & "</b> visitou o site <a href=http://www.rogetec.com.br target=_blank>Rogetec - Montagem e Manutenção Industrial </a> <BR><font face=arial color=black><b>Dados para contato</b>" &"<br>"& Request.Form("nome") & "<br>" & Request.Form("email") & "<br>" & Request.Form("empresa")& "<br>" & Request.Form("DDD") & Request.Form("tel") & "<br>" & Request.Form("mensagem")&"</font>" 
objCDOSYSMail.Send
 
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.redirect "cadastro_ok.asp"
%>
 
<script language="JavaScript" type="text/javascript">
  alert("Seus dados foram enviados! Obrigado!");
  location.href = "Contato.asp";
                      </script>

↧

Erro com select duplo

February 2, 2016, 6:13 am

≫ Next: URL Rewrite(amigavel) com webconfig

≪ Previous: ENVIO DE EMAILS VIA (Cdosys)

Olá!

Estou tentando fazer com que apareça um select com opções baseadas no preenchimento de outro select.

Porém não acontece nada.

Alguém pode me ajudar com isso?

Obrigado!

var concelhos = $('select[name="Concelho"] option');

$('select[name="Distrito"]').on('change', function () {

var Distrito = this.value;

var novoSelect = concelhos.filter(function () {

return $(this).data('distrito') == Distrito;

});

$('select[name="Concelho"]').html(novoSelect);

});

</script>

<option value="Indiferente">Indiferente</option>

<option value="Aveiro">Aveiro</option>

<option value="Braga">Braga</option>

</select>

<span class="IWLABEL11CSS" id="IWLABEL7">Concelho</span>

<option data-distrito="Aveiro" value="Agueda">Agueda</option>

<option data-distrito="Aveiro" value="Albergaria-a-Velha">Albergaria-a-Velha</option>

<option data-distrito="Aveiro" value="Anadia">Anadia</option>

<option data-distrito="Aveiro" value="Arouca">Arouca</option>

<option data-distrito="Aveiro" value="Aveiro">Aveiro</option>

<option data-distrito="Aveiro" value="Castelo de Paiva">Castelo de Paiva</option>

<option data-distrito="Aveiro" value="Espinho">Espinho</option>

<option data-distrito="Aveiro" value="Esterreja">Esterreja</option>

<option data-distrito="Aveiro" value="Santa Maria da Feira">Santa Maria da Feira</option>

<option data-distrito="Aveiro" value="Ilhavo">Ilhavo</option>

<option data-distrito="Aveiro" value="Mealhada">Mealhada</option>

<option data-distrito="Aveiro" value="Murtosa">Murtosa</option>

<option data-distrito="Aveiro" value="Oliveira de Azemeis">Oliveira de Azemeis</option>

<option data-distrito="Aveiro" value="Oliveira do Bairro">Oliveira do Bairro</option>

<option data-distrito="Aveiro" value="Sao Joao da Madeira">São João da Madeira</option>

<option data-distrito="Aveiro" value="Sever de Vouga">Sever de Vouga</option>

<option data-distrito="Aveiro" value="Vagos">Vagos</option>

<option data-distrito="Aveiro" value="Vale de Cambra">Vale de Cambra</option>

<option data-distrito="Beja" value="Aljustrel">Aljustrel</option>

<option data-distrito="Beja" value="Almodovar">Almodovar</option>

<option data-distrito="Beja" value="Alvito">Alvito</option>

<option data-distrito="Beja" value="Barrancos">Barrancos</option>

<option data-distrito="Beja" value="Castro Verde">Castro Verde</option>

<option data-distrito="Beja" value="Ferreira do Alentejo">Ferreira do Alentejo</option>

<option data-distrito="Beja" value="Mertola">Mertola</option>

<option data-distrito="Beja" value="Moura">Moura</option>

<option data-distrito="Beja" value="Odemira">Odemira</option>

<option data-distrito="Beja" value="Ourique">Ourique</option>

<option data-distrito="Beja" value="Serpa">Serpa</option>

<option data-distrito="Beja" value="Vidigueira">Vidigueira</option>

<option data-distrito="Braga" value="Amares">Amares</option>

<option data-distrito="Braga" value="Barcelos">Barcelos</option>

<option data-distrito="Braga" value="Braga">Braga</option>

<option data-distrito="Braga" value="Cabeceira de Bastos">Cabeceira de Bastos</option>

<option data-distrito="Braga" value="Celorico de Bastos">Celorico de Bastos</option>

<option data-distrito="Braga" value="Esposende">Esposende</option>

<option data-distrito="Braga" value="Guimaraes">Guimarães</option>

<option data-distrito="Braga" value="Povoa de Lanhoso">Povoa de Lanhoso</option>

<option data-distrito="Braga" value="Terra de Bouro">Terra de Bouro</option>

<option data-distrito="Braga" value="Vieira do Minho">Vieira do Minho</option>

<option data-distrito="Braga" value="Vila Nova de Famalicão">Vila Nova de Famalicão</option>

<option data-distrito="Braga" value="Vila Verde">Vila Verde</option>

<option data-distrito="Braga" value="Vizela">Vizela</option>

</select>

↧