<%
Response.Buffer = True
Dim objXMLHTTP, xml
sPath = Request.QueryString
sUrl = "http://www.linkdash.com/links/BhartiJewellersSe0/"+Request.QueryString+"/?fromurl="+Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", sUrl, False
xml.Send
Response.Write xml.responseText
Set xml = Nothing
' --------------------------------------------------------------------
%>
Matchmaking and Astrology, Find Romance and Love with Our Dating Personals - DESTINY MATCH - Free Dating Personals. Search profiles and use our email system to make contact with your perfect match for friendship, love or dating worldwide.