<%
CLASS sat 
Private connCRM
Private sub class_initialize()
End sub
private sub class_terminate()
		If IsObject(connCRM) Then
			Set connCRM= Nothing
		End If
End sub
Public Function OpenConn()
    Set connCRM= server.createobject("ADODB.Connection")
    connCRM.Open "Provider=SQLOLEDB;Data Source=66.102.135.159;Initial Catalog=db_centrodedesarrollo_com;User ID=cdscc2;Password=stedica0"

End Function
Public Function getDefaultLang()
    Dim rsCRM
    Set rsCRM = server.createobject("ADODB.Recordset")
    
    rsCRM.Open "select LangID from etblLanguages where active=1", connCRM
    If Not rsCRM.EOF Then getDefaultLang = rsCRM(0) Else getDefaultLang = 1
    rsCRM.Close
    Set rsCRM = Nothing
End Function
Function getMessage(langID, MsgID) 
  Dim rsCRM 
    Set rsCRM = server.createobject("ADODB.Recordset")
    rsCRM.Open "select Msg from eMessages where LangID = " & langID & " and MsgID =" & MsgID, connCRM, 3, 3
    If Not rsCRM.EOF Then getMessage = rsCRM(0).Value 
    rsCRM.Close
    Set rsCRM = Nothing
End Function

Public Function getCharset(langID)
  Dim rsCRM, CRMSQL
    Set rsCRM = server.createobject("ADODB.Recordset") 
    CRMSQL = "select Charset from etblLanguages where LangID =" & langID
    rsCRM.Open CRMSQL, connCRM, 3, 3
    If Not rsCRM.EOF Then getCharset = rsCRM(0) Else getCharset = "iso-8859-1"
    rsCRM.Close
    Set rsCRM = Nothing
End Function


END CLASS
%>