<% ' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' # Dimensioning variables - DO NOT MODIFY! Dim UserKey Dim ThisPage Dim CategoryColumns Dim LinksPerPage Dim OpenInNewWindow Dim PostingString Dim PassedQuery Dim AllowSearch Dim ErrorString Dim ResultString ' # // Finished dimensioning variables. ' # MODIFY THE VARIABLES BELOW: ' # Enter your user key below (provided to you by PowerLinks.com): UserKey = "351922452005-FX1BDEYWZV" ' # The following variable defines how many columns are used to display categories CategoryColumns = 2 ' # The following variable defines how many links to display per page LinksPerPage = 25 ' # The following variable defines whether links are opened in a new window ' # (1 = Yes, 0 = No) OpenInNewWindow = 1 ' # The following variable determines whether the search function is enabled ' # for your links page (1 = Yes, 0 = No) AllowSearch = 1 ' # DO NOT MODIFY ANYTHING IN THIS BLOCK!! ' --------------------------------------------------------------------------------- ' # The following variable is sent to the PowerLinks server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the PowerLinks.com server PostingString = "UserKey=" & UserKey PostingString = PostingString & "&ScriptName=" & ThisPage PostingString = PostingString & "&CatCols=" & CategoryColumns PostingString = PostingString & "&LinksPerPage=" & LinksPerPage PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow PostingString = PostingString & "&AllowSearch=" & AllowSearch ' # pass through any querystring data to PowerLinks to allow paging PassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetPowerLinksData(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write ErrorString End If Function GetPowerLinksData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetPowerLinksData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetPowerLinksData = False End If Else hObj.Open "POST", "http://www.powerlinks.com/bin/dumplinks.asp?" & strQuery, False hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetPowerLinksData = False Else strResponse = ComponentString & hObj.responseText GetPowerLinksData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing ' let's see if the server supports the XMLHTTP component, various versions On Error Resume Next Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else ' # Open connection to PowerLinks.com server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "POST", "http://www.powerlinks.com/bin/dumplinks.asp?" & strQuery, false hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.status <> 200 Then ' # error! strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" TryMSXML = False Else ' # We should have received the links information from the server, ' # the following line will return the data by reference: strResponse = ComponentString & hObj.responseText TryMSXML = True End If Set hObj = Nothing End If End Function ' # //FINSIHED POWERLINKS.COM SCRIPT BLOCK %>

Links

Medical Links:

New England Journal of Medicine: The nations premier medical journal.

Medical anatomy and terms: Easy explanations of medical terms.

Human Anatomy Online: Helpful anatomy drawings

Facts about Lasik Surgery: Government warning and info site about this common but sometime unsuccessful proceedure.

Pharmacy Information: Info on common Prescription drugs.

FDA site for info on drugs and medical devices: Gov site giving info on regulated and recalled drugs as well as defective medical devices like the Sulzer hip.

Epiconsults: specializes in the fields of Epidemiology, Toxicology, and Environmental Health using scientific methodologies to help assess causation and damages

Emedicine medical info - Medical Articles and research.

Online Medical Dictionary - including cancer topics.

National Library of Medicine - The World's largest medical Library.

Cancer CancerNet - the National Cancer Institute's (NCI) many sources of cancer information including CANCERLIT

Drug and Prescription Guide - A guide to more than 9,000 prescription and over-the-counter medications.

Illustrated Medical Encyclopedia - 4000 Medical Topics with information, illustrations, diagnosis, treatment and prognosis.

MEDLINEplus - Find answers to your health questions. Anatomical Topics and illustrations.

MEDLINEplus Health Topics - Health Topics describing the body's systems.

Health News - Recent Medical news by topic and date.

Illustrations of spinal cord anatomy

Spinal cord injury association web

United Brachial Plexis network

Information on causes of Cerebral Palsy

United Cerebral Palsy web page

Legal Links:

State, Federal, & OSHA Labor Law Posters - http://www.sfollp.net

Search Engine Optimization India http://www.searchengine-optimization-guru.com/

Personal Injury Nationwide resource to find Personal Injury Lawyers.

Breast Cancer Nationwide resource to find Breast Cancer Malpractice Attorneys.

Legal Malpractice Nationwide resource to find Legal Malpractice Attorneys

Medical Malpractice Nationwide resource to find Malpractice Attorneys

Civil Justice Facts - Civil Justice Fact-sheets

Click on the following links to find a lawyer from your state:
Alabama
Alaska
Arizona
Arkansas
California
Colorado
Connecticut
Delaware
D.C.
Florida
Georgia
Hawaii
Idaho
Illinois
Indiana
Iowa
Kansas
Kentucky
Louisiana
Maine
Maryland
Massachusetts
Michigan
Minnesota
Mississippi
Missouri
Montana
Nebraska
Nevada
New Hampshire
New Jersey
New Mexico
New York
North Carolina
North Dakota
Ohio
Oklahoma
Oregon
Pennsylvania
Rhode Island
South Carolina
South Dakota
Tennessee
Texas
Utah
Vermont
Virginia
Washington
W Virginia
Wisconsin
Wyoming