<%
lorem_ipsum = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aenean nec viverra mauris. Integer fringilla augue sit amet ligula eleifend condimentum. Donec auctor ultricies magna non sollicitudin. Ut non enim est, nec condimentum ipsum. Phasellus in leo nec nisi auctor elementum nec ac libero."
lorem_ipsum_li = "Lorem ipsum dolor sit amet consectetur adipiscing elitLorem ipsum dolor sit amet consectetur adipiscing elitLorem ipsum dolor sit amet consectetur adipiscing elit"
function ws_enquete()
server.execute("enquete_include.asp")
end function
function ws_publicidade()
server.execute("publicidade.asp")
end function
function w3c_xhtml()
response.write("http://validator.w3.org/check?uri=referer")
end function
function w3c_css()
response.write("http://jigsaw.w3.org/css-validator/validator?uri=http%3A%2F%2F"&request.servervariables("server_name") & Request.ServerVariables("URL") & "?" & Request.Querystring &"%2Fformatacao.css&profile=css3&usermedium=all&warning=1&lang=pt-BR")
end function
function wl_indicadores()
Response.Buffer = True
Response.Charset = "iso-8859-1"
Dim objXMLHTTP, htmlx_md
Set htmlx_md = Server.CreateObject("Microsoft.XMLHTTP")
htmlx_md.Open "GET", "http://www.acervoleis.com.br/export/quadrobalaminutindicadores_rafael.asp", false
htmlx_md.Send
Response.Write BinaryToString(htmlx_md.ResponseBody)
Set htmlx_md = Nothing
end function
function wl_obrigacoes()
Response.Buffer = True
Response.Charset = "iso-8859-1"
Dim objXMLHTTP, htmlx_md
Set htmlx_md = Server.CreateObject("Microsoft.XMLHTTP")
htmlx_md.Open "GET", "http://www.acervoleis.com.br/export/quadrobalaminutobrigacoes_michael.asp", false
htmlx_md.Send
Response.Write htmlx_md.responseText
Set htmlx_md = Nothing
end function
function wl_noticias()
ultsql = "select top 3 * from tab_item"
set ultrst = objconexao2.execute(ultsql)
if ultrst.eof then
response.write""
else
while not ultrst.eof
response.write""&ultrst("it_nome")&"
"&ultrst("it_nome")&""
ultrst.movenext
wend
end if
end function
function wl_noticias2()
ultsql = "select top 3 *, menu.mn_codigo, menu.mn_titulo from tab_item item inner join tab_menu menu on cint(item.it_codigopasta)=menu.mn_codigo where it_codigopasta<>'294' and it_codigopasta<>'243' and it_codigopasta<>'295' and it_codigopasta<>'304' and it_codigopasta<>'220' and it_codigopasta<>'221' and it_codigopasta<>'222' and it_codigopasta<>'223' and it_codigopasta<>'235' and it_codigopasta<>'224' and it_codigopasta<>'225' and it_codigopasta<>'169' and it_codigopasta<>'226' and it_codigopasta<>'158' and it_codigopasta<>'282' and it_codigopasta<>'227' and it_codigopasta<>'229' and it_codigopasta<>'153' and it_codigopasta<>'155' and it_codigopasta<>'297' and it_codigopasta<>'305' and it_codigopasta<>'298' and it_codigopasta<>'154' and it_codigopasta<>'168' and it_codigopasta<>'303' and it_codigopasta<>'296' and (mn_codigo=132 or mn_codigo=196 or mn_codigo=127 or mn_codigo=128 or mn_codigo=129) order by it_codigo desc"
set ultrst = objconexao2.execute(ultsql)
if ultrst.eof then
response.write""
else
while not ultrst.eof
response.write""&ultrst("mn_titulo")&""&ultrst("it_nome")&"
"
ultrst.movenext
wend
end if
end function
function wl_noticias_full()
ultsql = "select top 30 *, menu.mn_codigo, menu.mn_titulo from tab_item item inner join tab_menu menu on cint(item.it_codigopasta)=menu.mn_codigo where it_codigopasta<>'294' and it_codigopasta<>'243' and it_codigopasta<>'295' and it_codigopasta<>'304' and it_codigopasta<>'220' and it_codigopasta<>'221' and it_codigopasta<>'222' and it_codigopasta<>'223' and it_codigopasta<>'235' and it_codigopasta<>'224' and it_codigopasta<>'225' and it_codigopasta<>'169' and it_codigopasta<>'226' and it_codigopasta<>'158' and it_codigopasta<>'282' and it_codigopasta<>'227' and it_codigopasta<>'229' and it_codigopasta<>'153' and it_codigopasta<>'155' and it_codigopasta<>'297' and it_codigopasta<>'305' and it_codigopasta<>'298' and it_codigopasta<>'154' and it_codigopasta<>'168' and it_codigopasta<>'303' and it_codigopasta<>'296' and (mn_codigo=132 or mn_codigo=196 or mn_codigo=127 or mn_codigo=128 or mn_codigo=129) order by it_codigo desc"
set ultrst = objconexao2.execute(ultsql)
if ultrst.eof then
response.write""
else
while not ultrst.eof
response.write""&ultrst("mn_titulo")&"
"&ultrst("it_nome")&""
ultrst.movenext
wend
end if
end function
function wl_noticias3()
Response.Buffer = True
Response.Charset = "iso-8859-1"
Dim objXMLHTTP, htmlx_md
Set htmlx_md = Server.CreateObject("Microsoft.XMLHTTP")
htmlx_md.Open "GET", "http://www.acervoleis.com.br/export/ws_noticias_michael.asp", false
htmlx_md.Send
Response.Write BinaryToString(htmlx_md.ResponseBody)
Set htmlx_md = Nothing
end function
function wl_noticias15()
Response.Buffer = True
Response.Charset = "iso-8859-1"
Dim objXMLHTTP, htmlx_md
Set htmlx_md = Server.CreateObject("Microsoft.XMLHTTP")
htmlx_md.Open "GET", "http://www.acervoleis.com.br/export/ws_noticias_15.asp", false
htmlx_md.Send
Response.Write BinaryToString(htmlx_md.responseBody)
Set htmlx_md = Nothing
end function
Public Function BinaryToString(xBinary)
Dim Binary
Dim RS, LBinary
If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)
If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
BinaryToString = RS("mBinary")
Else
BinaryToString = ""
End If
Set RS = Nothing
End Function
Public Function MultiByteToBinary(MultiByte)
Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
Set RS = Nothing
MultiByteToBinary = Binary
End Function
%>