Localizador encomendas correios

ASP

<%'Desenvolvido por: Jonathan R. Cardozo (jonathandj)

'Data Criação: 04/2007

codigoEncomenda=Request("id")

set xmlhttp=server.createobject("microsoft.xmlhttp")

xmlhttp.open "POST","http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI="&codigoEncomenda&"", false

xmlhttp.send

conteudo=xmlhttp.responseText

set xmlhttp=nothing

arr=split(conteudo,"<tr>")

function tiralixo(str)

    var=replace(str,"rowspan=1>","")

    var=replace(var,"rowspan=2>","")

    var=replace(var,"colspan=2>","")

    var=replace(var,"/tr","")    

    var=replace(var,"/<","")

    var=replace(var,">","")

    tiralixo=var

end function

function tiralixo2(str)

    var=replace(str,"rowspan=1>","")

    var=replace(var,"rowspan=2>","")

    var=replace(var,"colspan=2>","")

    var=replace(var,"/tr","")

    var=replace(var,"font","")

    var=replace(var,"FONT COLOR=","")

    var=replace(var,"/","")    

    var=replace(var,"<","")

    var=replace(var,">","")

    tiralixo2=var

end function

Response.Write("<table width=""550"" align=""center"" border=""0"" cellspacing=""5"" cellpadding=""1"" style=""font-size:11px;font-family:Arial, Helvetica, sans-serif"" >")

Response.Write("<tr>")

Response.Write("<td colspan=""3"">")

Response.Write("<img src=""[http://websro.correios.com.br/correios/Img/correios.gif"](http://websro.correios.com.br/correios/Img/correios.gif)"><br>O horário não indica quando a situação ocorreu, mas sim quando os dados foram recebidos pelo sistema, exceto no caso do SEDEX 10 e do SEDEX Hoje, em que ele representa o horário real da entrega.<br>")

Response.Write("</td>")

Response.Write("</tr>")

Response.Write("<tr align=""center"" bgcolor=""#fff666"">")

Response.Write("<td>")

Response.Write("<b>DATA - HORA</b>")

Response.Write("</td>")

Response.Write("<td>")

Response.Write("<b>LOCAL</b>")

Response.Write("</td>")

Response.Write("<td>")

Response.Write("<b>SITUAÇÃO</b>")

Response.Write("</td>")

Response.Write("</tr>")

cor="#f9f9f9"

FOR I = LBOUND(arr) TO UBOUND(arr)

if i=0 then i=2

linha=arr(i)

coluna=split(linha,"td")

on error resume next

    response.write("<tr>")

    FOR j = LBOUND(coluna) TO UBOUND(coluna)

        if (coluna(j)=coluna(1)) or (coluna(j)=coluna(3)) or (coluna(j)=coluna(5)) then

            valor=coluna(j)

            response.write("<td bgcolor="&cor&">")

            if coluna(j)=coluna(5) then

                arr2=split(valor,"""")

                valor=arr2(2)

                Response.Write(tiralixo2(valor))

            else

                Response.Write(tiralixo(valor))

            end if    

            response.write("</td>")

        end if

    next

    response.write("</tr>")    

    if err.number=9 then

        Response.Write("<tr>")

    end if

    if cor="#f9f9f9" then

        cor="#f2f2f2"

    else

        cor="#f9f9f9"

    end if

next

Response.Write("</table>")

%>