<%
' ********************************************************************
' *****Please DO NOT make any edits or changes to the code below******
' ********************************************************************
Dim GLKey
Dim GLPage
GLKey = "1474S-48N2-6195-A92K"
GLPage = Request.ServerVariables("SCRIPT_NAME")
GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage
GLPQ = Request.QueryString
GLCategory = Request.QueryString("catname")
Function GetFLEData(HTTPQuery, PostStr, ByRef Resp, ByRef Er)
Dim HttpReqObj
Dim ComponentString
Set HttpReqObj = Nothing
On Error Resume Next
Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If
On Error Resume Next
If HttpReqObj Is Nothing Then
On Error Resume Next
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Er = "HTTP requests not supported."
GetFLEData = False
Else
HttpReqObj.open "GET", "http://freelinkexchange.us/engine.php?" & HTTPQuery & PostStr, false
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetFLEData = False
Else
Resp = ComponentString & HttpReqObj.responseText
GetFLEData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open "GET", "http://freelinkexchange.us/engine.php?" & HTTPQuery & PostStr, False
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetFLEData = False
Else
Resp = HttpReqObj.responseText
GetFLEData = True
End If
End If
End Function
%>
amazonstore links
<%
If GetFLEData(GLPQ, GLPS, GLResult, Err) Then
Response.Write GLResult
Else
Response.Write Err
End If
%>
Brother P-touch Labels and Ptouch Tapes
PtouchDirect.com is a leading source for Brother labels, Brother P-touch printers and p-touch tapes at factory direct prices delivered to your door.
Akumal Car Rental By Easy Way Rent A Car Provide high quality service and asistanse 24 hours a day, 365 days per year. All types of cars with unlimited mileage included in the rates. Offices in cancun, playa del carmen, tulum and merida. Reliable cars at cheapest prices.
Dreams In Paradise Marco island florida 5 star vacation rental house, luxury 4 bedroom home with 2 master bedroom suites, spectacular waterfront view, pristine and lavish. This home is not typically rented and is of finest quality
Business Card Scanner Store - Business Card Scanning Solutions Business card scanning solutions as well as business card scanner, scanshell, id scanner, business card database, scanshell 800n, scanshell 800, card scanner, duplex scanner, scan shell, passport scanner
- 
