Museu de Arte



<% corTab="#474749" stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";" SET conexao = Server.CreateObject("ADODB.Connection") On Error Resume Next conexao.Open stringConexao If Err.Number <> 0 Then response.write " Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !" response.write "

" response.write "Erro.Description: " & Err.Description & "
" response.write "Erro.Number: " & Err.Number & "
" response.write "Erro.Source: " & Err.Source & "
" Else '##Caso a conexão seja bem sucedida, mostra mensagem de confirmação. End If 'idLink Titulo Descricao Link Tipo Set Rs= Server.CreateObject("ADODB.Recordset") sql2 = "Select * from tbDocs where tipo='E' order by idLink desc" 'Response.Write ">>"& sql2 & "
" rs.Open sql2,conexao,3 If Rs.EOF = true then 'nao else while not Rs.eof 'Arquivo2 = left(trim(rs("Arquivo")),(len(trim(rs("Arquivo")))-4)) Arquivo2 = replace(rs("Arquivo"),"e:\home\indexiconografico\web\sistema2\textdocs\","") 'Arquivo2 = left(trim(rs("Arquivo")),(len(trim(rs("Arquivo")))-4)) %>

<%=trim(rs("titulo"))%>

<%=trim(rs("Autor"))%>

Publicado em : <%=trim(rs("publicado"))%>

Resumo / Abstract :
<%=trim(rs("descricao"))%>

" class="style1" target="_blank"><%=Replace(rs("Arquivo"), "e:\home\indexiconografico\web\sistema2\textdocs\","")%>" target="_blank">" target="_blank">

<%=left(trim(rs("Data")),(len(trim(rs("Data")))-8)) %>

<%'response.write Arquivo2%>________________________________________________________________________________________________________


<% Rs.MoveNext wend end if conexao.Close %>

<% corTab="#474749" stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";" SET conexao = Server.CreateObject("ADODB.Connection") On Error Resume Next conexao.Open stringConexao If Err.Number <> 0 Then response.write " Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !" response.write "

" response.write "Erro.Description: " & Err.Description & "
" response.write "Erro.Number: " & Err.Number & "
" response.write "Erro.Source: " & Err.Source & "
" Else End If Set Rs= Server.CreateObject("ADODB.Recordset") sql2 = " Select Count(*) AS cont from tbObra " rs.Open sql2,conexao,3 If Rs.EOF = true then else while not Rs.eof %>
<% Rs.MoveNext wend end if conexao.Close %>