<% Dim searchKeywords searchKeywords=""

Function pantherads_comScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
If IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
End If
If IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_JPHONE_DISPLAY")
delimiter = "*"
End If
resArray = Split(screenRes, delimiter, 2)
If (UBound(resArray) + 1) = 2 Then
pantherads_comScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
End If
End Function

Function pantherads_comMuid()
Dim muid
muid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(muid) Then
pantherads_comMuid = "&muid=" & muid
End If
muid = Request.ServerVariables("HTTP_X_UP_SUBNO")
If Not IsEmpty(muid) Then
pantherads_comMuid = "&muid=" & muid
End If
muid = Request.ServerVariables("HTTP_X_JPHONE_UID")
If Not IsEmpty(muid) Then
pantherads_comMuid = "&muid=" & muid
End If
muid = Request.ServerVariables("HTTP_X_EM_UID")
If Not IsEmpty(muid) Then
pantherads_comMuid = "&muid=" & muid
End If
End Function

Function pantherads_comViaAndAccept(pantherads_comUserAgent)
If Len(pantherads_comUserAgent) = 0 Then
Dim via
via = Server.URLEncode(Request.ServerVariables("HTTP_VIA"))
If Not IsEmpty(via) Then
pantherads_comViaAndAccept = "&via=" & via
End If
Dim accept
accept = Server.URLEncode(Request.ServerVariables("HTTP_ACCEPT"))
If Not IsEmpty(accept) Then
pantherads_comViaAndAccept = pantherads_comViaAndAccept & "&accept=" & accept
End If
End If
End Function

Dim pantherads_comScheme,pantherads_comUserAgent
pantherads_comScheme = "http://"
pantherads_comUserAgent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))
If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then pantherads_comScheme = "https://"

Dim pantherads_comUrl, pantherads_comOutput
pantherads_comUrl = "http://pantherads.com/wap-ads.php?" &_
"&pid=438" &_
"&id=1675" &_
"&search=" & Server.URLEncode(searchKeywords) &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & Server.URLEncode(pantherads_comScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_
"&useragent=" & pantherads_comUserAgent &_
pantherads_comScreenRes() &_
pantherads_comMuid() &_
pantherads_comViaAndAccept(pantherads_comUserAgent)

Set pantherads_comOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
pantherads_comOutput.Open "GET", pantherads_comUrl, false
pantherads_comOutput.Send
Response.Write(pantherads_comOutput.responseText)
%>