Museu de Arte




Soon




<% 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 %>