<%
if (Request.QueryString("msg")="Error") then
Response.Write("")
end if
Set oConn = New NTI 'clase NTI manejo del sistema
oConn.Conecta
set rs=Server.CreateObject("Adodb.Recordset")
set rs2=Server.CreateObject("Adodb.Recordset")
set rs4=Server.CreateObject("Adodb.Recordset")
set rs3=Server.CreateObject("Adodb.Recordset")
Function listar_sql_2()
sql = "SELECT * FROM organizacion WHERE 1=1 "
listar_sql_2 =sql
End Function
Function listar_sql_3()
sql = "SELECT * FROM tipo_actividad WHERE id_actividad > 0 "
listar_sql_3 =sql
End Function
''''''''''''''
set objTemplate = new template_cls
chek=""
dim objTemplate
const TMPLDIR = "templates/"
const IMGDIR = "templates/"
TABLA_LIMITE=10
if (isNumeric(Request.QueryString("inicio"))) then
inicio=CInt(Request.QueryString("inicio"))+0
else
inicio=0
end if
SQL3=listar_sql_3()
set rs3=Server.CreateObject("ADODB.Recordset")
rs3.Open SQL3, oConn.Conn
chek=""
dominio =dominio&""
if (isNumeric(Request.QueryString("id_clase"))) then
id_clase=CInt(Request.QueryString("id_clase"))+0
else
id_clase=0
end if
If Not rs3.BOF or not rs3.EOF Then
Do While Not rs3.EOF
if (id_clase=rs3(0))then
dominio =dominio&""
else
dominio =dominio&""
end if
rs3.MoveNext
Loop
end if
rs3.close()
with objTemplate
.TemplateFile = TMPLDIR & "reciba.html"
.AddToken "SELECT",1, dominio
.parseTemplateFile
end with
set objTemplate = nothing
%>