Jump to content


Photo

Alguem Consegue Corrigir Todos Os Odbc Driver Em 3.51


  • Faça o login para participar
4 replies to this topic

#1 TEUHOST

TEUHOST

    Novato no fórum

  • Banidos
  • 2 posts
  • Sexo:Masculino
  • Localidade:São Paulo
  • Interesses:Parceiros de trabalho.

Posted 23/06/2009, 01:45

Olá amigos!

Alguem consegue corrigir todos os ODBC Driver em 3.51 devem ser corrigidos para 5.1 do codigo abaixo:

<%
If Request.Form() <> "" Then

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("conexao_cep")
ComandoSQL = "SELECT * FROM " & Request.Form("estado") & " WHERE localidade LIKE '%" & Prepara_busca(Request.Form("cidade")) & "%' AND nome LIKE '%" & Prepara_busca(Request.Form("logradouro")) & "%'"
Set objRS_log = Server.CreateObject("ADODB.Recordset")
objRS_log.CursorLocation = 2
objRS_log.CursorType = 1
objRS_log.LockType = 1
objRS_log.Open ComandoSQL, objCon,,, &H0001

Response.Write "<font color='#60707F'><b><font color='#CF0800'>Pesquisar CEP</font><br>"
Response.Write "</b>Veja abaixo o resultado da pesquiza<br><br>"
Response.Write "<table width=100% border=1 bordercolor=gainsboro cellspacing=0 cellpadding=2 class=texto>"
Response.Write " <tr>"
Response.Write " <td bgcolor=whitesmoke><strong>Cidade</strong></td>"
Response.Write " <td bgcolor=whitesmoke><strong>Bairro</strong></td>"
Response.Write " <td bgcolor=whitesmoke><strong>Logradouro</strong></td>"
Response.Write " <td bgcolor=whitesmoke><strong>Complemento</strong></td>"
Response.Write " <td bgcolor=whitesmoke><strong>CEP</strong></td>"
Response.Write " </tr>"

If Not objRS_log.EOF Then
While Not objRS_log.EOF
cep = objRS_log("cep")

Response.Write " <tr>"
Response.Write " <td>" & objRS_log("localidade") & "</td>"
Response.Write " <td>" & objRS_log("bai_ini") & "</td>"
Response.Write " <td>" & objRS_log("nome") & "</td>"
Response.Write " <td>" & objRS_log("complemento") & "</td>"
Response.Write " <td><span OnClick=""opener.document.cesta_produtos.cep1.value='" & Left(cep,5) & "';opener.document.cesta_produtos.cep2.value='" & Right(cep,3) & "';window.close();"" style='cursor:hand'><u>" & cep & "</u></span></td>"
Response.Write " </tr>"

Set cidade = Nothing
Set complemento = Nothing
Set bairro = Nothing
Set logradouro = Nothing
Set cep = Nothing

objRS_log.MoveNext

Wend

End If

ComandoSQL = "SELECT * FROM Cidade WHERE cep <> '' AND uf = '" & Request.Form("estado") & "' AND nome LIKE '%" & Prepara_busca(Request.Form("cidade")) & "%'"
Set objRS_localidade = Server.CreateObject("ADODB.Recordset")
objRS_localidade.CursorLocation = 2
objRS_localidade.CursorType = 1
objRS_localidade.LockType = 1
objRS_localidade.Open ComandoSQL, objCon,,, &H0001
If Not objRS_localidade.EOF Then
While Not objRS_localidade.EOF
cep = objRS_localidade("cep")

Response.Write " <tr>"
Response.Write " <td>" & objRS_localidade("nome") & "</td>"
Response.Write " <td>-</td>"
Response.Write " <td>-</td>"
Response.Write " <td>-</td>"
Response.Write " <td nowrap><span OnClick=""opener.document.cesta_produtos.cep1.value='" & Left(cep,5) & "';opener.document.cesta_produtos.cep2.value='" & Right(cep,3) & "';window.close();"" style='cursor:hand'><u>" & cep & "</u></span></td>"
Response.Write " </tr>"

objRS_localidade.MoveNext
Wend
End If
objRS_localidade.Close

Response.Write "</table>"

objRS_log.Close
objCon.Close
Set objCon = Nothing
Set ComandoSQL = Nothing
Set objRS_log = Nothing

Else
%>




Grato,

Daniel Ambrosio

#2 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 22/09/2017, 09:00

Cialis Y La Comida viagra cialis Cialis 10 Mg Forum
Amoxil Avant Stockage Reconstitue Canadian Discount Pharmacies
Last Long In Bed To Last Longer online pharmacy Uses Of Keflex

#3 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 28/09/2017, 01:41

Worldwide Dutasteride Cialis Spedizione Contrassegno Viagra Marocaine cheap cialis Propecia Efectos 1 Mg
Cialis Super Activa cialis Prix Tadalis Sx Boite De 8 Baclofene Rennes

#4 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 16/10/2017, 01:40

Zithromax 2 Pack cialis Groovorio Cheap Real Cialis Laboratorios Viagra

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 22/10/2017, 14:21

Amoxicillin Dosage For Tooth Infection cheap levitra canada Online Viagra Forum Comprare Levitra Generico Senza Amoxicillin Dosing In Infants
Vente Cialis En Belgique Kamagra Sildenafil 100mg Tablets Propecia Espana Bueno viagra Viagra A Lausanne
Propecia Generico En Espana cialis online Vardenafil Levitra Online Achat Viagra Ligne France




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq