<% Dim url url = Request.QueryString("id") Set xmlDOM = Server.CreateObject("MSXML2.DOMDocument") xmlDOM.async = False xmlDOM.setProperty "ServerHTTPRequest", True xmlDOM.Load(Server.MapPath("profile.xml")) xmlstr = "profile/" & url Set snode = xmlDOM.SelectSingleNode(xmlstr) imagefile = snode.SelectSingleNode("imagefile").text name = snode.SelectSingleNode("name").text desig = snode.SelectSingleNode("desig").text company = snode.SelectSingleNode("company").text Set description = snode.SelectNodes("desc/p") %>

<%=name%>

<%=desig%>

<%=company%>


<% For Each line In description linep = line.text %>

<%=linep%>

<% Next %> Back to agenda