<% 'Do not change any thing in this block and put this code where you want to display directory. domainname = Request.ServerVariables("HTTP_HOST") referpage = Request.ServerVariables("SCRIPT_NAME") PostData = PostData & "d=" & domainname & "&ScriptName=" & referpage strQuery = Request.querystring Function GetData(Query, Data , ByRef strResp) Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If hObj.Open "GET", "http://www.link-building-service.com/directory/indexdir.asp?"& Query & Data, False hObj.Send If hObj.Status <> 200 Then strResp = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetData = False Else strResp = ComponentString & hObj.responseText GetData = True End If End Function %> <% if GetData(strQuery,PostData,Result) then response.write(Result) else response.write(Result) end if %>