Funktion fejl?
Hej Alle!Jeg har en smart fil. Den henter først filerne, der ligger i en mappe, og lister dem efter navn. Dernæst lister den de datoer, der er forbundet til filerne.
Så laves en undersøgelse af en anden mappe, og filerne bliver sammenlignet.
Jeg er dog løbet ind i et problem i scriptet, er der nogle der kan se, hvad der er galt?
Jeg får fejlmeddelelsen:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/admin/afront_update.asp, line 65
Function GetFile(Filename)
^
*** SCRIPT ***
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("" & server.mappath("../") & "")
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
customerList = customerList & objFileItem.Name & " + "
Next
Set objFSO = Nothing
' *************************************************
' Ovenstående bruger vi ikke til noget interessant!
' *************************************************
var_url = "http://www.mitdomæne.dk/update/Listall.asp?action=alist"
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = var_url
AFrontList = HTTPObj.GetURL
' OVENSTÅENDE RETUNERES: site2.asp,site3.asp,site4.asp,site5.asp,
var_url = "http://www.mitdomæne.dk/update/Listall.asp?action=ilist"
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = var_url
IvcList = HTTPObj.GetURL
' OVENSTÅENDE RETUNERES: 20-08-2004 09:15:00,28-09-2004 16:44:03,28-09-2004 17:02:39,28-09-2004 17:03:06,
'=============================================================================
'HERUNDER TJEKKER VI OM EN FIL ER LIG MED EN FIL PÅ DENNE SERVER
'=============================================================================
' ### HERUNDER ER PROBLEMET!
' =====================
' Her finder vi de filers datelastmodified datoer.
arrIVC = Split(IvcList,",")
For m = LBound(arrIVC) to UBound(arrIVC)
' Først finder vi de rene filer, eks. site1.asp,site2.asp osv.
arrList = Split(AFrontList,",")
For t = LBound(arrList) to UBound(arrList)
' **********************************************************************************************
' Herover har vi hentet filerne, der ligger i ../ biblioteket på Afront.dk
' Disse splitter vi nu op, og vi undersøger herunder, om hver fil eksisterer på kundens domæne.
' Hvis de eksisterer sker der intet, hvis de ikke gør, bliver de tilføjet til Newfiles listen.
' **********************************************************************************************
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("../" & arrList(t) & "")
If (fso.FileExists(filespec)) Then
' If (fso.FileExists(filespec)) AND (fso.File.DateLastModified(filespec)) = arrIVC(m) Then
' If (fso.FileExists(filespec)) AND (fso.FileItem.DateLastModified(filespec)) = arrIVC(m) Then
' If (fso.FileExists(filespec)) AND (fso.FileItem.DateLastModified(filespec)) = int(arrIVC(m)) Then
msg = filespec & " exists."
Else
NewFiles = NewFiles & arrList(t) & " + "
End If
Next
NewFiles = Replace(NewFiles," + + ","")
NewFiles = Replace(NewFiles," + ",",")
'=============================================================================
' SLUT
'=============================================================================
Function GetFile(Filename)
var_url = "http://www.mitdomæne.dk/update/Loadfile.asp?File=" & Filename & ""
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = var_url
FileValue = HTTPObj.GetURL
filespec = Server.Mappath("../" & Filename & "")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(filespec, True)
MyFile.WriteLine(FileValue)
MyFile.Close
End Function
If NewFiles = "," then
NewFiles = ""
end if
%>
<B>Kunden:</B> <%=CustomerList%><br>
<B>AFront:</B> <%=Afrontlist%><br>
<B>Nye:</B> <%=NewFiles%><br>
<hr>
<pre>
<%=Now%>: Tilslutter serveren
<%
arrList = Split(NewFiles,",")
For t = LBound(arrList) to UBound(arrList)
%>
<%=Now%>: Henter filen (<%=arrList(t)%>)
<% Call GetFile(arrList(t)) %>
<%
Next
%>
<%=Now%>: Farvel..
</pre>
