Sammenlign resultater

Hej Alle!

Jeg synes selv, at jeg er løbet ind i en problematik, jeg ikke selv kan løse. Jeg har understående script. I den første del af scriptet henter jeg de filer, der ligger i biblioteket. I den anden del henter jeg filerne fra et eksternt bibliotek. Jeg vil nu gerne sammenligne resultaterne.

Med andre ord vil jeg gerne have noget ala

If InternListe = EksternListe Then
Fil = "ubetydelig"
Else
Nyefiler = Nyefiler & #de nye filer/den nye fil#

Next


Når jeg henter resultaterne fra det Interne bibliotek får jeg følgende svar:

default.asp21-09-2004 09:15:00,site1.asp29-09-2004 14:35:19,site10.asp29-09-2004 14:38:43,site11.asp29-09-2004 14:39:04,site12.asp29-09-2004 14:39:27,site13.asp01-10-2004 19:15:25,site2.asp29-09-2004 14:35:40,site3.asp29-09-2004 14:36:01,site4.asp29-09-2004 14:36:21,site5.asp29-09-2004 14:36:44,site6.asp29-09-2004 14:37:07,site7.asp29-09-2004 14:37:33,site8.asp29-09-2004 14:37:57,site9.asp29-09-2004 14:38:17,

Når jeg henter resultaterne fra det Eksterne bibliotek får jeg følgende svar:

default.asp20-08-2004 09:15:00,site1.asp29-09-2004 14:35:19,site10.asp29-09-2004 14:38:43,site11.asp29-09-2004 14:39:04,site12.asp29-09-2004 14:39:27,site13.asp01-10-2004 19:15:25,site2.asp29-09-2004 14:35:40,site3.asp29-09-2004 14:36:01,site4.asp29-09-2004 14:36:21,site5.asp29-09-2004 14:36:44,site6.asp29-09-2004 14:37:07,site7.asp29-09-2004 14:37:33,site8.asp29-09-2004 14:37:57,site9.asp29-09-2004 14:38:17,

I dette tilfælde er det kun "Default.asp" filen, der skiller sig ud. Det resultat vil jeg så gerne have frem.. Hvordan gør jeg det?


*** SCRIPT ***
<%
Server.ScriptTimeout=200
Session.LCID = 1030


' Henter filer fra et bibliotek
'==============================

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("" & server.mappath("../") & "")
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents

InternListe = InternListe & objFileItem.Name & objFileItem.DateLastModified & ","

Next
Set objFSO = Nothing



' Henter filer fra et eksternt bibliotek
'=======================================

var_url     = "http://www.mitdomæne.dk/update/fileribiblioteket.asp"
Set HttpObj     = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url     = var_url
EksternListe     = HTTPObj.GetURL

%>


Dette bibliotek:<br>
<%= InternListe %>
<br><br>

Eksternt bibliotek<br>
<%= EksternListe %>
<br><br>

Nye filer?<br>
<%=Nyefiler%>