<%
Sub LBS_Display
 Dim http
 Set http = Server.CreateObject("Microsoft.XMLHTTP")
 http.Open "GET", "http://www.linkbuildingsolutions.com/getlinks.php?cid=48&did=78&cur=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME")), False
 http.Send
 Response.Write http.responseText
 Set http = Nothing
End Sub
%>