<%
Sub Guardar(Operacion,Fecha, Linea)
I=0
ValorLinea=""
if Operacion = "E" then
do while I<>Linea
I=I+1
Loop
If I = Linea then Archivo.WriteLine Fecha & "-" & Linea
Elseif Operacion="G" Then
do while I<>Linea
I=I+1
Loop
If I = Linea then Archivo.WriteLine Fecha
Elseif Operacion="N" Then
do while I<>Linea
I=I+1
Loop
If I = Linea then Archivo.WriteLine Fecha & "-" & 1
End if
'
end sub
Function MesAInt(Mes)
If Mes = "Enero" then
MesAInt = 1
elseIf Mes = "Febrero" then
MesAInt = 2
elseIf Mes = "Marzo" then
MesAInt = 3
elseIf Mes = "Abril" then
MesAInt = 4
elseIf Mes = "Mayo" then
MesAInt = 5
elseIf Mes = "Junio" then
MesAInt = 6
elseIf Mes = "Julio" then
MesAInt = 7
elseIf Mes = "Agosto" then
MesAInt = 8
elseIf Mes = "Septiembre" then
MesAInt = 9
elseIf Mes = "Octubre" then
MesAInt = 10
elseIf Mes = "Noviembre" then
MesAInt = 11
elseIf Mes = "Diciembre" then
MesAInt = 12
End if
end Function
'
'Pagina = request.servervariables("HTTP_REFERER")
'
'Path = "c:\archivos\"
'Ruta = "c:\archivos\origenSB.txt"
'
'
'If Pagina = "" then Pagina = "SB"
'
' Set fso = CreateObject("Scripting.FileSystemObject")
'
'
' if not fso.FileExists(Ruta) = true then
' Set a = fso.CreateTextFile(Path & "OrigenSB.txt", True)
' a.WriteLine now & "--" & Pagina
' a.Close
' end if
' dim f
' Set f = fso.OpenTextFile(Ruta ,8 ,False, TristateUseDefault)
' 'Set Accesos = fso.OpenTextFile(Path & "IngresosSB.txt" ,8 ,False, TristateUseDefault)
' f.WriteLine now & "--" & Pagina
' f.close
'
'
'
'if not fso.FileExists(Path & "IngresosSB.txt") = true then
' Set Accesos = fso.CreateTextFile(Path & "IngresosSB.txt", True)
' Accesos.Close
'end if
'
'Set f = fso.GetFile(Path & "IngresosSB.txt")
'Set ts = f.OpenAsTextStream(1, TristateUseDefault)
' Set Archivo = fso.CreateTextFile(Path & "AuxiliarSB.txt", True)
'
'If ts.AtEndOfStream = True then
'
' Call Guardar("N",date,1)
'
'else
'
' Encontro=False
' Do While ts.AtEndOfStream <> True
'
' linea = ts.ReadLine
'
' if Isdate(Trim(left(Linea,10))) then
' if CDate(Trim(left(Linea,10))) = Date then
'
' Total = mid(linea,instr(linea,"-")+1) + 1
' Call Guardar("E",date,Total)
' Encontro=True
' else
'
'
' Call Guardar("G",Linea,1)
'
' end if
'
' end if
' Loop
'
' if Encontro=False then Call Guardar("N",Date,1)
'
'
'End if
'
'Archivo.close
'
'ts.close
'
'fso.CopyFile Path & "AuxiliarSB.txt", Path & "IngresosSB.txt"
'fso.DeleteFile Path & "AuxiliarSB.txt",true
'
'
%>
www.bejerman.com / Bienvenido
La
solución de gestión completa para pequeñas
y microempresas con visión estratégica. Pídalo
aquí.
SOFTWARE
DE GESTION DOCUMENTAL ¿Hay
una manera mejor de administrar sus documentos? Conozca
e-Flexware Documentos
Un innovador software
que facilita la Digitalización
y Administración Inteligente
de Documentos.
La
solución de gestión completa para pequeñas
