non Trovo l'Errore

[unreg]

Salve,

ho questo Codice:

<%
   url = "http://www.html.it/rss/webnews_focus.xml"
   ' Creo oggetto DOM XML 
   Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") 
   objXML.async = false 
   objXML.setProperty "ServerHTTPRequest", True 

   ' validazione del documento XML
   objXML.validateOnParse =false' true 

   ' non conservare spazi 
   objXML.preserveWhiteSpace = false 

   blnLoaded = objXML.Load(url) 
   
   If Not blnLoaded Then 
      Response.write "Nessuna news da visualizzare" 
   Else

      Set objNodeList = objXML.getElementsByTagName("item") 

      For Each objNode In objNodeList 
         
		 For Each objNode2 In objNode.childNodes 
            Select Case objNode2.nodeName    
	  
	  Case "title" 
         strTitle = objNode2.firstChild.nodevalue 
      Case "link" 
         strURL = objNode2.firstChild.nodevalue 
      Case "description" 
         strDescription = objNode2.firstChild.nodevalue 
      End Select 
		 Next 
' Include in Db
   strURL = strURL(strURL,"http://webnews.html.it/focus/","")
   strURL = strURL(strURL,".htm","")
   
   Stampa = strTitle & " " & strURL & " "

'--->
      Next  
      
	  set objNodeList = Nothing 
   End if 
%>

mi da questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'strURL'
/beta/pro.asp, line 36

Questa è la Linea:

   strURL = strURL(strURL,"http://webnews.html.it/focus/","")

Come mai ?

Grazie !

[weppos]

Forse invece di

strURL = strURL(strURL,"http://webnews.html.it/focus/","")

volevi

strURL = Replace(strURL,"http://webnews.html.it/focus/","")

[unreg]

Grazie