Clinical Trials

<% Set srvXmlHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1") URL = "http://clinicaltrials.gov/search/term=%22mesothelioma%22?displayxml=true" srvXmlHttp.open "POST", URL, false srvXmlHttp.send result = srvXmlHttp.responseText 'response.write(" "&result&" ") Set objXML = Server.CreateObject("Microsoft.XMLDOM") Set objLst = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.LoadXML srvXmlHttp.responseText set objLst = objXML.getElementsByTagName("*") Dim Count Count = 1 For i = 0 to (objLst.length - 1) If objLst.item(i).nodeName = "status" Then If objLst.item(i).text = "Recruiting" Then StrTitle = objLst.item(i-1).text Cond = objLst.item(i+1).text StrURL = "clinicalTrial.asp?trial="&objLst.item(i-2).text response.write("") Count = Count + 1 End If End If Next %>

"&Count&".

"&StrTitle&"

Conditions: " &Cond&"

Enter your information to receive a free comprehensive mesothelioma information packet.

First Name:

Last Name:

Address:

City:

State:

Zip:

Telephone:

Email Address:

Is it possible you or someone you know has mesothelioma?

Yes No