<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_dyn2003_STRING = "Driver={Mysql}; Database=promad2007; UID=promaddb; PWD=X6qumAh:hb44ATXB;"
'
'
Randomize

function ZeroPad(sWork, nDigits)

	ZeroPad = right(string(nDigits, "0") & trim(sWork), nDigits)

end function

function GetIndexNumber()

	sDay = Day(Now())

	sMonth = Month(Now())

	sYear = Year(Now())

	sHour = Hour(Now())

	sMinute = Minute(Now())

	sSecond = Second(Now())

	Tail = Int(1000000 * Rnd)

	GetIndexNumber = ZeroPad(sYear, 4) & ZeroPad(sMonth, 2) & ZeroPad(sDay, 2) & ZeroPad(sHour, 2) & ZeroPad(sMinute, 2) & ZeroPad(sSecond, 2) & ZeroPad(Tail, 6)

end function
'fin de obtener numero index apartir de fecha

SECC="0" 'utiliza variable de seccion restringir a admins
'if request("chsec")="true" then
secc=request("SECCION")
'end if 


'Operacion de fechas
'ESTANDARD DE FECHAS
	if request("DESDE")="" THEN dtCurrentDateM=DATE() 
	iF request("DESDE")<>"" THEN dtCurrentDateM=CDATE(REQUEST("DESDE"))
	
    iFirstDayOfMonth = DatePart("w", DateSerial(Year(dtCurrentDateM), Month(dtCurrentDateM), 0))
    iDaysInMonth = DatePart("d", DateSerial(Year(dtCurrentDateM), Month(dtCurrentDateM)+1, 1-1))
	RE1=CSTR(Month(dtCurrentDateM)) + "/01/" + CSTR(Year(dtCurrentDateM))
	RE1=CDATE(RE1)
    DES = cstr(date()-2)
    strMPasado = (DateAdd("m",  -1, RE1))
		
	HAS = cstr(date()+1)
	'(DateAdd("m",  1, RE1))
	iF request("HASTA")<>"" THEN HAS=REQUEST("HASTA")
'FIN STANDARD DE FECHAS

Function strReplace(data, dsearch, dreplace)
        Dim startpos
        Dim pos
        Dim strReplaced

    startpos = 1
    pos = InStr(startpos, data, dsearch, 1)
    do while pos > 0
        strReplaced = strReplaced & Mid(data, startpos, pos-startpos) & dreplace
        startpos = pos + len(dsearch)
        pos = InStr(startpos, data, dsearch, 1)
    Loop
    strReplace = strReplaced & Mid(data, startpos) 'catch the last one
        End Function


%>