'
Function StrDecodeEx(str)
StrDecodeEx = m_as.StrDecodeEx(str)
End Function

'
Function ProperCase(sNome)
ProperCase = m_as.ProperCase(sNome)
End Function

'
Function StripHTML(ByVal str)
StripHTML = m_as.StripHTML(str)
End Function

'
Function UsaParolacce(ByVal sText)
UsaParolacce = m_as.UsaParolacce(sText)
End Function

'
Function LPad(ByVal str, ByVal car, ByVal lun)
LPad = m_as.LPad(str, car, lun)
End Function

'
Function RPad(ByVal str, ByVal car, ByVal lun)
RPad = m_as.RPad(str, car, lun)
End Function

'
Function NumberToEuro(ByVal val)
NumberToEuro = m_as.NumberToEuro(val)
End Function

'
Function SwapArray(ByRef a, ByVal i, ByVal j)
SwapArray = m_as.SwapArray(a, i, j)
End Function

'
Function Sort1(ByVal iMin, ByVal iMax, ByRef a)
Sort1 = m_as.Sort1(iMin,iMax, a)
End Function

'
Function Sort2(ByVal iMin, ByVal iMax, ByRef a, ByRef a1)
Sort2 = m_as.Sort2(iMin, iMax, a, a1)
End Function

'
Function Sort3(ByVal iMin, ByVal iMax, ByRef a, ByRef a1, ByRef a2)
Sort3 = m_as.Sort3( iMin, iMax, a, a1, a2)
End Function

'
Function GetArrayFromList(ByRef arr, ByVal lista, ByVal sep)
GetArrayFromList = m_as.GetArrayFromList(arr,lista,sep)
End Function

'
function GetOptSel( ByVal val1, ByVal val2 )
GetOptSel = m_as.GetOptSel( val1, val2 )
end function

'
function GetWordsNum( ByVal str )
GetWordsNum = m_as.GetWordsNum( str )
end function

'
' ************************************************** *****************
' * FUNZIONI DI MANIPOLAZIONE DELLE DATE
' ************************************************** *****************
' Public Function Date2Str(ByVal d)
' Public Function Date2DBStr(ByVal d)
' Public Function DateinDBQuery(ByVal d)
' Public Function Date2WordIta(ByVal d)
' Public Function Date2WordEng(ByVal d)
' Public Function DateWord(ByVal lingua, ByVal d)
' Public Function ShortDate2WordEng(ByVal d)
' Public Function ShortDate2WordIta(ByVal d)
' public Function ScriviDataItaRidotta(byval sData)
' public Function ScriviDataIta(byval sData)
' public Function Date2SmallWordIta(byval d )
' Public Function StrToDate(ByRef strDate, ByRef dt, ByVal format)
' Public Function DateToOracleStr(ByVal d)
' Public Function StrToOracleStr(ByRef strDate, ByVal format)
' Public function DateToStr(dt,frm )


'
Function Date2Str( d )
Date2Str = m_as.Date2Str( d )
End Function

'
Function Date2DBStr( d )
Date2DBStr = m_as.Date2DBStr( d )
End Function

'
Function DateinDBQuery( d )
DateinDBQuery = m_as.DateinDBQuery( d )
End Function

'
Function Date2WordIta( d )
Date2WordIta = m_as.Date2WordIta( d )
End Function

'
Function Date2WordEng( d )
Date2WordEng = m_as.Date2WordEng( d )
End Function

'
Function DateWord( lingua , d )
DateWord = m_as.DateWord(lingua , d )
End Function

'
Function ShortDate2WordEng( d )
ShortDate2WordEng = m_as.ShortDate2WordEng( d )
End Function

'
Function ShortDate2WordIta( d )
ShortDate2WordIta = m_as.ShortDate2WordIta( d )
End Function

'
Function ScriviDataItaRidotta(sData)
ScriviDataItaRidotta = m_as.ScriviDataItaRidotta(sData)
End Function

'
Function ScriviDataIta(sData)
ScriviDataIta = m_as.ScriviDataIta(sData)
End Function

'
Function Date2SmallWordIta( d )
Date2SmallWordIta = m_as.Date2SmallWordIta( d )
End Function

'
Function StrToDate(ByRef strDate, ByRef dt, ByVal format)
StrToDate = m_as.StrToDate(strDate,dt,format)
End Function
'
Function DateToOracleStr(ByVal d)
DateToOracleStr = m_as.DateToOracleStr(d)
End Function
'
Function StrToOracleStr(ByRef strDate, ByVal format)
StrToOracleStr = m_as.StrToOracleStr(strDate,format)
End Function
'
function DateToStr(dt,frm )
DateToStr = m_as.DateToStr(dt,frm )
end function



'
' ************************************************** *****************
' * FUNZIONI DI LETTURA/SCRITTURA DI VARIBILI
' ************************************************** *****************
' Public Function GetVar(ByVal var)
' Public Function GetIntVar(ByVal var )
' Public Function GetUVar(ByVal var)
' Public Function GetLVar(ByVal var)
' Public Function GetSVar(ByVal var)
' Public Function SetSVar(ByVal var, ByVal val)
' Public Function IsPieno(ByVal s)
' Public Function GetField(ByVal sRecodSet_NomeCampo)
' public Function GetVarDef(var, def)
' public Function GetSessionVarDef(var, def)

'
Function GetVar( var )
GetVar = m_as.GetVar( var )
End Function

'
Function GetIntVar( var )
GetIntVar = m_as.GetIntVar( var )
End Function

'
Function GetUVar( var )
GetUVar = m_as.GetUVar( var )
End Function

'
Function GetLVar( var )
GetLVar = m_as.GetLVar( var )
End Function

'
Function GetSVar( var )
GetSVar = m_as.GetSVar( var )
End Function

'
Function SetSVar( var1 , var2)
SetSVar = m_as.SetSVar( var1 , var2 )
End Function

'
Function IsPieno( s )
IsPieno = m_as.IsPieno( s )
End Function

'
Function GetField(ByVal sRecodSet_NomeCampo)
GetField = m_as.GetField(sRecodSet_NomeCampo)
End Function
'
Function GetVarDef(byval var,byval def)
GetVarDef= m_as.GetVarDef(var,def)
end function
'
Function GetSessionVarDef(var, def)
GetSessionVarDef = m_as.GetSessionVarDef(var, def)
end function

'
' ************************************************** *****************
' * FUNZIONI DI SCRITTURA DIRETTA DI TAG O DI STRINGHE NELLA PAGINA HTML
' ************************************************** *****************
' public Function Write(ByVal str)
' Public Function NewLine()
' Public Function PWriteln(ByVal str)
' Public Function CondWrite(ByVal s)
' Public Function GetHrefForImg(ByVal urlStr)
' Public Function PropageVar(ByVal var, ByVal val)
' Public Function OptionSelected(byVal val1,byVal val2)
' public Function GetOptSelMul(ByVal opt, ByVal optList)
' public Function GetSelOption(var1, var2)

'
Function Write(str)
Write = m_as.PWrite(str)
End Function

'
Function NewLine()
NewLine = m_as.NewLine()
End Function

'
Function Writeln(str)
Writeln = m_as.PWriteln(str)
End Function

'
Function CondWrite( s )
CondWrite = m_as.CondWrite( s )
End Function

'
Function GetHRefForImg( urlstr )
GetHRefForImg = m_as.GetHRefForImg( urlstr )
End Function

'
Function PropageVar( var1, var2 )
PropageVar = m_as.PropageVar( var1, var2 )
End Function

'
Function OptionSelected( var1, var2 )
OptionSelected = m_as.OptionSelected( var1, var2 )
End Function
'
Function GetOptSelMul(ByVal opt, ByVal optList)
GetOptSelMul = m_as.GetOptSelMul(opt,optList)
End Function

'
Function GetSelOption(var1, var2)
GetSelOption = m_as.GetSelOption(var1, var2)
end function

'
' ************************************************** *****************
' * FUNZIONI DI UPLOAD
' ************************************************** *****************
' Public Function ActivateUpload()
' Public Function GetUploadVar(ByVal var )
' Public Function IsUploadFileValid(ByVal var )
' Public Function UploadFileAs(ByVal var,ByVal path )
'
Function ActivateUpload()
ActivateUpload = m_as.ActivateUpload()
End Function

'
Function GetUploadVar(var)
GetUploadVar = m_as.GetUploadVar(var)
End Function

'
Function IsUploadFileValid(var)
IsUploadFileValid = m_as.IsUploadFileValid(var)
End Function

'
Function UploadFileAs(var, path )
UploadFileAs = m_as.UploadFileAs(var, path)
End Function

'
function GetUploadFileName(byval var )
GetUploadFileName = m_as.GetUploadFileName(var)
end function



'
' ************************************************** *****************
' * FUNZIONI DI LOG SU FILE
' ************************************************** *****************
' Public Function Log(byVal id,byVal txt)
' Public Function LogTime(byVal id,byVal txt)

'
Function Log(id, txt )
Log = m_as.PLog(id, txt)
End Function

'
Function LogTime(id, txt )
LogTime = m_as.LogTime(id, txt)
End Function


'
' ************************************************** *****************
' * FUNZIONI DI POSTA: INVIO , CHECK
' ************************************************** *****************
' Public Function SendSimpleMail(byVal sender,byVal recipient,byVal subject,byVal text,byVal mailServer )
' Public Function SendSimpleTail(byVal sSender,byVal sRecipient,byVal sOggetto,byVal sBody,byVal sServer)
' Public Function EmailValida(byval sEmail)
' Public Function SendTextMail(ByVal from, ByVal dest, ByVal subject, ByVal cc, ByVal Bcc, ByVal attachFile, ByVal body)
' Public Function SendHtmlMail(ByVal from, ByVal dest, ByVal subject, ByVal cc, ByVal Bcc, ByVal attachFile, ByVal attachUrl, ByVal body)

'
Function SendSimpleMail(sender,recipient,subject,text, mailServer )
SendSimpleMail = m_as.SendSimpleMail(sender,recipient,subject,text, mailServer )
End Function

'
Function SendSimpleTail(sender,recipient,subject, text , mailserver, extension)
SendSimpleTail = m_as.SendSimpleTail(sender,recipient,subject, text ,mailserver, extension )
End Function

'
Function EmailValida(sEmail)
EmailValida = m_as.EmailValida(sEmail)
End Function

'
Function SendTextMail(ByVal from, ByVal dest, ByVal subject, ByVal cc, ByVal Bcc, ByVal attachFile, ByVal body)
SendTextMail = m_as.SendTextMail(from,dest,subject,cc,Bcc,attachF ile,body)
end function

'
Function SendHtmlMail(ByVal from, ByVal dest, ByVal subject, ByVal cc, ByVal Bcc, ByVal attachFile, ByVal attachUrl, ByVal body)
SendHtmlMail = m_as.SendHtmlMail(from,dest,subject,cc,Bcc,attachF ile,attachUrl,body)
end function

'
' ************************************************** *****************
' * FUNZIONI DI MANIPOLAZIONE FILE E DIRECTORY
' ************************************************** *****************
' Public Function CreateDiskPath(byVal path )
' Public Function FileExist(byVal filePath )
' Public Function WriteIniString(ByVal sez, ByVal key, ByVal str, ByVal ini)
' Public Function GetIniString(ByVal sez, ByVal key, ByVal def, ByVal ini)
' Public Function GetFilePath(ByVal basePath, ByVal filePath)
' Public Function GetFilePathH(ByVal filePath)
' Public Function ReadFileContent(ByVal basePath, ByVal filePath)
' Public Function ReadFileContentH(ByVal filePath)
' Public Function FileDelete(byval filePath)
' Public Function WriteFileContent(ByVal basePath,ByVal filePath,ByVal str)
' Public Function WriteFileContentH(ByVal filePath,ByVal str)
' Public Function RenameFile(ByVal oldName, ByVal newName)
' Public Function FileRename(ByVal oldName, ByVal newName)


'
Function CreateDiskPath( path )
CreateDiskPath = m_as.CreateDiskPath( path )
End Function

'
Function FileExist( filePath )
FileExist = m_as.FileExist( filePath )
End Function