<%
''''''''''''''''''''''' Dynamic Scripting Section - Do not touch the script code '''''''''''''''''''''''''''''''''''''''
domainname = Request.ServerVariables("HTTP_HOST")
referpage = Request.ServerVariables("SCRIPT_NAME")
PostData = PostData & "&syst=new&d=" & domainname & "&ScriptName=" & referpage
strQuery = Request.querystring
Function GetMetaData(Query, Data, title)
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.build-reciprocal-links.com/directory/getmetadata.asp?"& Query & Data & "&title=" & title, False
hObj.Send
GetMetaData = hObj.responseText
Set hObj = Nothing
End Function
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.build-reciprocal-links.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
Set hObj = Nothing
End Function
''''''''''''''''''''''' Dynamic Scripting Section - Completed '''''''''''''''''''''''''''''''''''''''
%>
<%=GetMetaData(strQuery,PostData,"title")%>
">
">
<%
if GetData(strQuery,PostData,Result) Then
response.write(Result)
else
response.write(Result)
End If
%>
Austin Real Estate | Five Star Gmac <?=$_GET['name']?>
$value) {
$LPQS .= "&$key=".urlencode(stripslashes($value));
}
if(intval(get_cfg_var('allow_url_fopen')) && function_exists('readfile')) {
if(!@readfile("http://www.linkspanel.com/engine.php?".$LPQS)) {
print "Error processing request";
}
}
elseif(intval(get_cfg_var('allow_url_fopen')) && function_exists('file')) {
if(!($content = @file("http://www.linkspanel.com/engine.php?".$LPQS))) {
print "Error processing request";
}
else {
print @join('', $content);
}
}
elseif(function_exists('curl_init')) {
$ch = curl_init ("http://www.linkspanel.com/engine.php?".$LPQS);
curl_setopt ($ch, CURLOPT_HEADER, 0);
curl_exec ($ch);
if(curl_error($ch))
print "Error processing request";
curl_close ($ch);
}
else {
print "It seems that your web host has disabled all functions for handling remote pages and as a result the LinksPanel software will not function on your web site. Please contact your web host and ask them to enable PHP curl or fopen.";
}
?>