CONEXAO.ASP

<%
'CONEXÃO SQL Server
Const gpVersaoSistema = "Versão: 1.0"
Const userName_imp="paulo"
Const passWord_imp="alfa30"
Const dataBaseName_imp="BD_atChamado"
Const serverName_imp = "JESUS-2FAB328AB"


Sub gpAbreConexao()
    Dim strConn
    Set session("ObjConn") = Server.CreateObject("ADODB.Connection")
    strConn = "Provider=SQLOLEDB;Persist Security Info=False;User ID="&userName_imp&";Password="&passWord_imp&";Initial Catalog="&dataBaseName_imp&";Data Source="&serverName_imp
    session("ObjConn").ConnectionString = strConn
    On Error Resume Next
    session("ObjConn").Open
    session("ObjConn").CommandTimeout=3600
    if Err <> 0 Then
        response.write "<font face=arial size=2 color=#000055>Ocorreu o seguinte Erro ao abrir o banco de dados : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>"
    ELSE
        'response.write "<font face=arial size=2 color=#000055>conexão efetuado com sucesso : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>"
    End if
    On Error goto 0
    Session("ConexaoAberta") = "Sim"
End Sub

Sub gpFechaConexao()
    session("ObjConn").close
    Set session("ObjConn") = Nothing
    session("ObjConn")=""
    Session("ConexaoAberta")="Não"
End sub

%>