<% option explicit const cnnStr = "provider=sibprovider.2;data source=localhost:marcio_at_blog;user id=sysdba;password=sys$wb123$abc" on error resume next dim cnn, rs, sql, seed, citacao, autoria, fonte set cnn = Server.CreateObject("ADODB.Connection") cnn.Open cnnStr seed = cLng( Rnd(-Date()) * 10000 ) 'seed= 61 'Response.write "document.write('" & seed & "')" sql = "select * from spGerarCitacao(" & seed & ")" set rs = cnn.Execute(sql) if not rs.eof then citacao = MyHtmlEncode( rs.Fields("descricao").value ) autoria = rs.Fields("nome_documento").value & "" if ( autoria <> "" ) then autoria = autoria & ", " autoria = autoria & rs.Fields("nome_autor").value fonte = rs.Fields("fonte").value & "" if fonte <> "" then fonte = " " & fonte autoria = MyHtmlEncode( autoria & fonte ) %> document.write('"<%=citacao%>"
<%=autoria%>'); <% end if rs.close set rs = nothing cnn.close set cnn = nothing function MyHtmlEncode(aText) dim i, lLen, lChar, lText lLen = Len(aText) For i = 1 to lLen lChar = Mid(aText, i, 1) select case lChar case """" lChar = """ case "'" lChar = "´" case "À" lChar = "À" case "à" lChar = "à" case "Á" lChar = "Á" case "á" lChar = "á" case "Â" lChar = "Â" case "â" lChar = "â" case "Ã" lChar = "Ã" case "ã" lChar = "ã" case "Ç" lChar = "Ç" case "ç" lChar = "ç" case "É" lChar = "É" case "é" lChar = "é" case "Ê" lChar = "Ê" case "ê" lChar = "ê" case "Í" lChar = "Í" case "í" lChar = "Í" case "Ó" lChar = "Ó" case "ó" lChar = "ó" case "Ú" lChar = "Ú" case "ú" lChar = "&úacute;" case "Ô" lChar = "Ô" case "ô" lChar = "ô" case "Õ" lChar = "Õ" case "õ" lChar = "õ" case "Ü" lChar = "Ü" case "ü" lChar = "ü" case Chr(13) lChar = "
" end select lText = lText & lChar Next MyHtmlEncode = lText end function %>