<%

'isLocalhost: devolve True ou False testando se o acesso está sendo local ou remoto
    Function isLocalhost(servidor)
        Dim retorno
        If servidor & "" = "" Then        
            servidor = LCase(Request.ServerVariables("SERVER_NAME") & "")
        End If
        retorno     = False        
        If _
                (Left(servidor, 3) = "10.") Or _
                (Left(servidor, 4) = "127.") Or _
                (Left(servidor, 7) = "192.168") Or _
                (servidor = "localhost") _
            Then
                retorno = True
        ElseIf Left(servidor, 4) = "172." Then
            Dim arrayIP
            arrayIP = Split(servidor, ".")
            If UBound(arrayIP) = 3 Then
                If CInt(arrayIP(1)) => 16 And CInt(arrayIP(1)) =< 31 Then
                    retorno = True
                End If
            End If
        End If
        isLocalhost = retorno    
        Set retorno = Nothing
    End Function
If isLocalhost("") Then

	'conecta local
	xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("conteudo.mdb") & ";"
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("conteudo.mdb") & ";"
Else

	'conecta remoto 
	'mysql
	'xDb_Conn_Str = "Driver={MySQL ODBC 3.51 Driver};Server=dbmy0000.whservidor.com;Option=16419;Stmt=;Database=;Uid=;Pwd="
	'access
	xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;"
	'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;"
End If
%>
<%

' Open Connection to the database
'Set objConn = Server.CreateObject("ADODB.Connection")
'Set rs = Server.CreateObject("ADODB.Recordset")
'objConn.CursorLocation = 3
'objConn.Open strConn
%>
<%

'-----------------------------
'Função para pegar somente um determinado
'numero de caracteres da manchete da noticia
'-----------------------------
'Constante: Define o número de caracteres que será exibido
'PRIVATE CONST TAMANHO = 100
'mudança para estipular o tamanho na chamada da funcao
'Função Propriamente dita

Function Previa(vstrTexto, TAMANHO)

'Function Previa(vstrTexto)
	Dim strPrevia
		if Len(vstrTexto) > TAMANHO Then
			strPrevia = Mid(vstrTexto, 1, TAMANHO)
			strPrevia = Mid(strPrevia, 1, InStrRev(strPrevia, " ") - 1) & "..."
		Else
			strPrevia = vstrTexto
		End If
	Previa = strPrevia
End Function
%>
<%

' Function to Adjust SQL
Function AdjustSql(str)
	Dim sWrk
	sWrk = Trim(str & "")
	sWrk = Replace(sWrk, "'", "''") ' Adjust for Single Quote
	sWrk = Replace(sWrk, "[", "[[]") ' Adjust for Open Square Bracket
	AdjustSql = sWrk
End Function

' Function to Build SQL
Function ewBuildSql(sSelect, sWhere, sGroupBy, sHaving, sOrderBy, sFilter, sSort)
	Dim sSql, sDbWhere, sDbOrderBy
	sDbWhere = sWhere
	If sDbWhere <> "" Then
		sDbWhere = "(" & sDbWhere & ")"
	End If
	If sFilter <> "" Then
		If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
		sDbWhere = sDbWhere & "(" & sFilter & ")"
	End If	
	sDbOrderBy = sOrderBy
	If sSort <> "" Then
		sDbOrderBy = sSort
	End If
	sSql = sSelect
	If sDbWhere <> "" Then
		sSql = sSql & " WHERE " & sDbWhere
	End If
	If sGroupBy <> "" Then
		sSql = sSql & " GROUP BY " & sGroupBy
	End If
	If sHaving <> "" Then
		sSql = sSql & " HAVING " & sHaving
	End If
	If sDbOrderBy <> "" Then
		sSql = sSql & " ORDER BY " & sDbOrderBy
	End If
	ewBuildSql = sSql
End Function
%>
<!--include file="config.asp" -->
<%
Const ewProjectName = "blueSpace_ACCESS" ' Project Name
Const ewSessionStatus = "blueSpace_ACCESS_status" ' Login Status
Const ewSessionUserName = "blueSpace_ACCESS_status_UserName" ' User Name
Const ewSessionUserID = "blueSpace_ACCESS_status_UserID" ' User ID
Const ewSessionUserLevel = "blueSpace_ACCESS_status_UserLevel" ' User Level
Const ewSessionParentUserID = "blueSpace_ACCESS_status_ParentUserID" ' Parent User ID
Const ewSessionSysAdmin = "blueSpace_ACCESS_SysAdmin" ' System Admin
Const ewSessionArUserLevel = "blueSpace_ACCESS_arUserLevel" ' User Level Array
Const ewSessionArUserLevelPriv = "blueSpace_ACCESS_arUserLevelPriv" ' User Level Privilege Array
Const ewSessionSecurity = "blueSpace_ACCESS_Security" ' Security Array
Const ewSessionMessage = "blueSpace_ACCESS_Message" ' System Message
%>