errore strano iis

[mattryx]

ciao a tutti....ho installato un 2000 server ita su una bel server...solo che al momento delle prove ho notato che il sito che c'era prima sopra non funziona piu....(premetto che avevo fatto delle copie di backup)...quindi i file del sito sono identici a quelli che c'erano prima ......mi da quest'errore....:
Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/appservlite04.inc, line 9

ProgID non valido. Per ulteriori informazioni sul messaggio, visitare il sito Internet del Servizio Supporto Tecnico Microsoft all'indirizzo: http://www.microsoft.com/contentredirect.asp.

ho visitato la pagina relativa :http://www.microsoft.com/contentredirect.asp ma mi dice che non c'è quello che ho richiesto a qualcuno è capitato già quest'errore??

[ciupaz]

Prova a dare un'occhiata a questa pagina

http://support.microsoft.com/default...NoWebContent=1

[seclimar]

posta il codice

[mattryx]

Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/appservlite04.inc, line 9

ProgID non valido. Per ulteriori informazioni sul messaggio, visitare il sito Internet del Servizio Supporto Tecnico Microsoft all'indirizzo: http://www.microsoft.com/contentredirect.asp.

[seclimar]

posta il codice

sorgenti!altrimenti come facciamo a dirti l'errore!

[mattryx]

......ma il sorgente di cosa!!!!..il sito funziona...è l'IIs che ha qualche problema!!!!..........ho rifatto la macchina....prima funzionava bene ora invece mi da questo errore.....e i file del sito sono gli stessi(presi dallo stesso cd)!!!

[seclimar]

il fatto che il sito funzioni non vuole dire che sia giusto!


ad esempio.. da quello che hai scritto tu non si capisce assolutamente che oggetto stai tentando di aprire!
esempio:
se tu ci dici che oggetto e' .. magari noi ti diciamo se c'e' o non c'e' sul nuovo server!

[mattryx]

Come fai a dire che:
---------------------------------------------------------------------
il fatto che il sito funzioni non vuole dire che sia giusto!
---------------------------------------------------------------------
prima la homepage me la faceva vedere,ora mi da quell'errore!!!La cosa mi sembra abbastanza chiara....se i file sono gli stessi e adesso mi da quest'errore vuol dire che qualcosa è cambiato....e l'unica cosa che è cambiata è il sistema operativo...quindi ci deve essere qualche problema li sopra!!!!!!(cioe ho rifatto la macchina con lo stesso sistema operativo)

[mattryx]

cmq eccoti il file che da errore...
questa è la linea: set m_as = Server.CreateObject("AppServerLite04.SLib")

<%
'************************************************* ************************************************** ****
' ATTENZIONE, NON MODIFICARE QUESTO FILE PER NESSUN MOTIVO, USARLO SOLO PER CONSULTAZIONE
'************************************************* ************************************************** ****

' ************************************************** *****************
' ************************************************** *****************
Dim m_as
set m_as = Server.CreateObject("AppServerLite04.SLib")
' ************************************************** *****************
' ************************************************** *****************

'
'----------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------

' LE FUNZIONI SONO SUDDIVISE IN QUESTI GRUPPI
' * FUNZIONI DI ACCESSO/INTERROGAZIONE AL DB
' * FUNZIONI DI GESTIONE DEI BLOCCHI DI RISPOSTA
' * FUNZIONI DI MANIPOLAZIONE DELLE STRINGHE
' * FUNZIONI DI MANIPOLAZIONE DELLE DATE
' * FUNZIONI DI LETTURA/SCRITTURA DI VARIBILI
' * FUNZIONI DI OUTPUT SU SCHERMO
' * FUNZIONI DI SCRITTURA DIRETTA DI TAG HTML
' * FUNZIONI DI UPLOAD
' * FUNZIONI DI LOG SU FILE
' * FUNZIONI DI POSTA: INVIO CHECK etc etc
' * FUNZIONI DI MANIPOLAZIONE FILE E DIRECTORY
' * FUNZIONI DI ESECUZIONE PROGRAMMI ESTERNI SUL SERVER
' * FUNZIONI VARIE

'
' ************************************************** *****************
' * FUNZIONI DI ACCESSO/INTERROGAZIONE AL DB
' ************************************************** *****************

' Public Function IsDbOracle()
' Public Function InitSession()
' Public Function Query(ByVal str)
' Public Function MakeWhere(ByVal where, ByVal arg, ByVal val, ByVal quote, ByVal exact)
' Public Function MakeWhereLike(ByVal where, ByVal arg, ByVal val, ByVal pre, ByVal post)
' Public Function MakeWhereIC(ByVal where, ByVal arg, ByVal val, ByVal quote, ByVal exact)
' Public Function MakeWhereLikeIC(ByVal where, ByVal arg, ByVal val, ByVal pre, ByVal post)
' Public Function MakeWhereLikeICOR(ByVal where, ByVal arg, ByVal val, ByVal pre, ByVal post)
' Public Function MakeWhereE(ByVal where, ByVal expr, ByVal val)
' Public Function MakeQuery(ByVal Query, ByVal where)
' Public Function MakeQuery1(ByVal query,ByVal where,ByVal order )
' Public Function GetLastQuery()
' Public Function SetLastQuery(ByVal sql)
' Public Function DB_NewBag()
' Public Function DB_BagSet(ByRef bag,ByVal fld,ByVal val)
' Public Function DB_AddInTable(ByVal table,ByVal bag)
' Public Function DB_AddInTableRetId(ByVal table,ByVal bag,ByVal idField)
' Public Function DB_UpdateTable(ByVal table,ByVal bag,ByVal keyExpr)
' Public Function DB_UpdateTableMul(ByVal table,ByVal bag,ByVal keyExpr)
' public function DB_DeleteFromTable( ByVal table, ByVal keyExpr )

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

'
Function InitSession()
set InitSession = m_as.InitSession()
End Function

'
Function Query(var)
set query = m_as.Query(var)
End Function

'
Function MakeWhere( where, arg, val, quote, exact )
MakeWhere = m_as.MakeWhere( where, arg, val, quote, exact )
End Function

'
Function MakeWhereLike( where, arg, val, pre, post )
MakeWhereLike = m_as.MakeWhereLike( where, arg, val, pre, post )
End Function

'
Function MakeWhereIC( where, arg, val, quote, exact )
MakeWhereIC = m_as.MakeWhereIC( where, arg, val, quote, exact )
End Function

'
Function MakeWhereLikeIC( where, arg, val, pre, post )
MakeWhereLikeIC = m_as.MakeWhereLikeIC( where, arg, val, pre, post )
End Function

'
Function MakeWhereLikeICOR( where, arg, val, pre, post )
MakeWhereLikeICOR = m_as.MakeWhereLikeICOR( where, arg, val, pre, post )
End Function

'
Function MakeWhereE( where, expr, val)
MakeWhereE = m_as.MakeWhereE( where, expr, val)
End Function

'
Function MakeQuery( query, where )
MakeQuery = m_as.MakeQuery( query, where )
End Function

'
Function MakeQuery1( query, where, order )
MakeQuery1 = m_as.MakeQuery1( query, where, order )
End Function

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

'
Function SetLastQuery(sql)
SetLastQuery = m_as.SetLastQuery(sql)
End Function
'
function DB_NewBag()
Set DB_NewBag = m_as.DB_NewBag()
end function
'
function DB_BagSet(ByRef bag,ByVal fld,ByVal val)
DB_BagSet = m_as.DB_BagSet(bag,fld,val)
end function
'
function DB_AddInTable(ByVal table,ByVal bag)
DB_AddInTable = m_as.DB_AddInTable(table,bag)
end function
'
function DB_AddInTableRetId(ByVal table,ByVal bag,ByVal idField)
DB_AddInTableRetId = m_as.DB_AddInTableRetId(table,bag,idField)
end function
'
function DB_UpdateTable(ByVal table,ByVal bag,ByVal keyExpr)
DB_UpdateTable = m_as.DB_UpdateTable(table,bag,keyExpr)
end function
'
function DB_UpdateTableMul(ByVal table,ByVal bag,ByVal keyExpr)
DB_UpdateTableMul = m_as.DB_UpdateTableMul(table,bag,keyExpr)
end function

'
function DB_DeleteFromTable( ByVal table, ByVal keyExpr )
DB_DeleteFromTable = m_as.DB_DeleteFromTable(table,keyExpr )
end function

'
' ************************************************** *****************
' * FUNZIONI DI GESTIONE DEI BLOCCHI DI RISPOSTA
' ************************************************** *****************
' Public Function BRSSetBlockSize(ByVal size)
' Public Function BRSGetBlockSize()
' Public Function BRSMakeNewBlockVar(ByVal prefixName)
' Public Function BRSGetBlockVar(ByVal defaultName)
' Public Function BRSIsRs(ByVal name)
' Public Sub BRSCleanRs(ByVal name)
' Public Function BRSGetRs(ByVal name)
' Public Function BRSSetRs(ByVal name, ByVal rs, ByVal str)
' Public Function BRSQuery(ByVal name, ByVal str)
' Public Function BRSGetRecordCount(ByVal name)
' Public Function BRSGetBlockCount(ByVal name)
' Public Function BRSGetCurrentBlockPos(ByVal name)
' Public Function BRSGoToBlock(ByVal name, ByVal quale)
' Public Function BRSUse(ByVal name, ByVal mode)
' Public Function BRSMoveBlock(ByVal name)
' Public Function BRSMoveBlock1(ByVal name, ByVal strQuale)
' Public Function BRSCanPrevBlock(ByVal name)
' Public Function BRSCanNextBlock(ByVal name)
' Public Function BRSGetPrevBlockPos(ByVal name)
' Public Function BRSGetNextBlockPos(ByVal name)
' Public Function BRSMakeHrefPrevBlock(ByVal name)
' Public Function BRSMakeHrefNextBlock(ByVal name)
' Public Function BRSMakeHrefCurrentBlock(ByVal name)
' Public Function BRSIsRsEof(ByVal name)
' Public Sub BRSMoveRsNext(ByVal name)

'
Function BRSSetBlockSize( size )
BRSSetBlockSize = m_as.BRSSetBlockSize( size )
End Function

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

'
Function BRSMakeNewBlockVar( prefixName )
BRSMakeNewBlockVar = m_as.BRSMakeNewBlockVar( prefixName )
End Function

'
Function BRSGetBlockVar( defaultName )
BRSGetBlockVar = m_as.BRSGetBlockVar( defaultName )
End Function

'
Function BRSIsRs( name )
BRSIsRs = m_as.BRSIsRs( name )
End Function

'
sub BRSCleanRs( name )
BRSCleanRs = m_as.BRSCleanRs( name )
end sub

'
Function BRSGetRs( name )
set BRSGetRs = m_as.BRSGetRs( name )
End Function

'
Function BRSSetRs( name, rs, str )
set BRSSetRs = m_as.BRSSetRs( name, rs, str )
End Function

'
Function BRSQuery( name, str )
set BRSQuery = m_as.BRSQuery( name, str )
End Function

'
Function BRSGetRecordCount( name )
BRSGetRecordCount = m_as.BRSGetRecordCount( name )
End Function

'
Function BRSGetBlockCount( name )
BRSGetBlockCount = m_as.BRSGetBlockCount( name )
End Function

'
Function BRSGetCurrentBlockPos( name )
BRSGetCurrentBlockPos = m_as.BRSGetCurrentBlockPos( name )
End Function

'
Function BRSGoToBlock( name, quale )
BRSGoToBlock = m_as.BRSGoToBlock( name, quale )
End Function

'
Function BRSUse( name, mode )
BRSUse = m_as.BRSUse( name, mode )
End Function

'
Function BRSMoveBlock( name )
BRSMoveBlock = m_as.BRSMoveBlock( name )
End Function

'
Function BRSMoveBlock1(ByVal name, ByVal strQuale)
BRSMoveBlock1 = m_as.BRSMoveBlock1( name, strQuale )
End Function

'
Function BRSCanPrevBlock( name )
BRSCanPrevBlock = m_as.BRSCanPrevBlock( name )
End Function

'
Function BRSCanNextBlock( name )
BRSCanNextBlock = m_as.BRSCanNextBlock( name )
End Function

'
Function BRSGetPrevBlockPos( name )
BRSGetPrevBlockPos = m_as.BRSGetPrevBlockPos( name )
End Function

'
Function BRSGetNextBlockPos( name )
BRSGetNextBlockPos = m_as.BRSGetNextBlockPos( name )
End Function

'
Function BRSMakeHrefPrevBlock( name )
BRSMakeHrefPrevBlock = m_as.BRSMakeHrefPrevBlock( name )
End Function

'
Function BRSMakeHrefNextBlock( name )
BRSMakeHrefNextBlock = m_as.BRSMakeHrefNextBlock( name )
End Function

'
Function BRSMakeHrefCurrentBlock( name )
BRSMakeHrefCurrentBlock = m_as.BRSMakeHrefCurrentBlock( name )
End Function

'
Function BRSIsRsEof( name )
BRSIsRsEof = m_as.BRSIsRsEof( name )
End Function

'
sub BRSMoveRsNext( name )
m_as.BRSMoveRsNext( name )
end sub


'
' ************************************************** *****************
' * FUNZIONI DI MANIPOLAZIONE DELLE STRINGHE
' ************************************************** *****************
' Public Function sAQuote(ByVal str)
' Public Function quote(ByVal str)
' Public Function sQuote(ByVal str)
' Public Function sClean(ByVal str)
' Public Function NumberToLire(ByVal val)
' Public Function StrCode(ByVal str)
' Public Function StrDecode(ByVal str)
' Public Function StrCodeEx(ByVal str)
' Public Function StrDecodeEx(ByVal str)
' Public function ProperCase(byval sNome)
' Public Function StripHTML(ByVal str)
' Public Function UsaParolacce(ByVal sText)
' Public Function LPad(ByVal str, ByVal car, ByVal lun)
' Public Function RPad(ByVal str, ByVal car, ByVal lun)
' Public Function NumberToEuro(ByVal val)
' Public Function SwapArray(ByRef a, ByVal i, ByVal j)
' Public Function Sort1(ByVal iMin, ByVal iMax, ByRef a)
' Public Function Sort2(ByVal iMin, ByVal iMax, ByRef a, ByRef a1)
' Public Function Sort3(ByVal iMin, ByVal iMax, ByRef a, ByRef a1, ByRef a2)
' Public Function GetArrayFromList(ByRef arr, ByVal lista, ByVal sep)
' Public Function GetOptSel( ByVal val1, ByVal val2 )
' public function GetWordsNum( ByVal str )


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

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

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

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

'
Function NumberToLire( val )
NumberToLire = m_as.NumberToLire( val )
End Function

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

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

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

[mattryx]

'
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