<%
cep = Request.querystring("cep")
cep2 = replace (cep,"-","")
if cep<>"" then
Set conncep = Server.CreateObject("ADODB.Connection")
conncep.Open "DRIVER=MySQL ODBC 3.51 Driver;DSN=cep;"&_
"SERVER=mysql.braslink.com;"&_
"UID=cep;PWD=cep;DATABASE=cep"
Set consulta_cep = conncep.execute("select * from cep where cep = '"& cep2 &"'")
'response.write consulta_cep("estado")
if consulta_cep.eof then
cep=""
end if
end if
%>
PAGAMENTO
RECEBIDO
Obrigado
