Testen ob Eintrag vorhanden XML / Ms Access

[timo.huber]

Hallo Ihr

Ich habe versucht ein skript zu schreiben, das eine XML Datei ausließt.
Dannach testet es ein Kriterium, ob es schon in der MS Access Datenbank vorhanden ist.
wenn ja, -> Fehlermeldung, wenn nein -> Daten eintragen.
Leider bekomme ich den beliebten HTTP 500 Fehler :P

vielleicht sieht jemand von euch den Fehler

<%
  Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
  XMLDoc.async = False
  strXMLLocation = Server.MapPath("test.xml")
  bSuccess = XMLDoc.load(strXMLLocation)
  
  
  '---testen ob xml geladen
  If Not bSuccess Then
  	Response.Write "Fehler beim Laden der XML Datei <b>" & strXMLLocation & "</b> aufgetreten"
	Response.End
  End If
  'ende testen ob xml geladen ist
  
  
  Set rootNode = XMLDoc.documentElement
  
  'start, wenn articel bestehen
  
  
   If rootNode.hasChildNodes() Then
   Dim zaehler
   zaehler = 0
   set con = Server.CreateObject("ADODB.Connection")
   Set FindRS = Server.CreateObject("ADODB.Recordset")
   dim strid, strfirmenname, strstellenbezeichnung, strstellenbeschreibung, strfirmenid
   
   con.mode = adModeWrite
con.open "testmdb"
   '----------anfang for each----------
  	For Each article in rootNode.childNodes
  	zaehler = int(zaehler) + int("1")
		strid =  article.childNodes(0).text
		strfirmenname = article.childNodes(1).text
		strstellenbezeichnung =  article.childNodes(2).text
		strstellenbeschreibung = article.childNodes(3).text
		strfirmenid = article.childNodes(4).text
		
		
'-----------------------schauen ob vorhanden----------------------
dim findsql, FindRS, con
findSQL = "SELECT firmenid FROM angebote WHERE firmenid = '" & strfirmenid & "'"



    FindRS.Open findSQL, con
    
    'start if -> ob eof
    If FindRS.EOF Then
    
    
    '-------------------------------------schreiben-------------
        'aus xml
dim sql
sql = "Insert Into angebote ( firmenname, stellenbezeichnung, stellenbeschreibung, firmenid)"
sql = sql & " Values ('" & strfirmenname & "', '" & strstellenbezeichnung & "', '" & strstellenbeschreibung & "', '" & strfirmendid & "')"
con.Execute sql
Response.write(strfirmenname & " : wurde eingetragen <br />" & zaehler)
	
	
	
'start -> wenn nicht eof = schon vorhanden
  Else


            response.write("bereits eingetragen----------------")
    End if
    '^^ende testen ob eof
    Next
	
	'ende for each

  	
  	
	'wenn keine articelt (no childs)
  Else
  	Response.Write "Keine Daten in der XML Datei"
  	
  	''ende test ob artikel
  End If
  con.close
      FindRS.Close
Set FindRS = Nothing
%>

ich hab auch alles lieb kommentiert