kinipan

photo gue di jembatan jalayan kinipan
klik di bawah ini
http://upload.kapanlagi.com/c.php?f=thumb_201205172054063_sungai_jalayatn__kinipan__4fb502feec9e3.jpg <% Dim searchKeywords searchKeywords="" Function pesan_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 pesan_comScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function pesan_comMuid() Dim muid muid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_UP_SUBNO") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_JPHONE_UID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If muid = Request.ServerVariables("HTTP_X_EM_UID") If Not IsEmpty(muid) Then pesan_comMuid = "&muid=" & muid End If End Function Function pesan_comViaAndAccept(pesan_comUserAgent) If Len(pesan_comUserAgent) = 0 Then Dim via via = Server.URLEncode(Request.ServerVariables("HTTP_VIA")) If Not IsEmpty(via) Then pesan_comViaAndAccept = "&via=" & via End If Dim accept accept = Server.URLEncode(Request.ServerVariables("HTTP_ACCEPT")) If Not IsEmpty(accept) Then pesan_comViaAndAccept = pesan_comViaAndAccept & "&accept=" & accept End If End If End Function Dim pesan_comScheme,pesan_comUserAgent pesan_comScheme = "http://" pesan_comUserAgent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then pesan_comScheme = "https://" Dim pesan_comUrl, pesan_comOutput pesan_comUrl = "http://www.pesan.com/wap-ads.php?" &_ "&pid=2436" &_ "&id=4451" &_ "&search=" & Server.URLEncode(searchKeywords) &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & Server.URLEncode(pesan_comScheme & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) &_ "&useragent=" & pesan_comUserAgent &_ pesan_comScreenRes() &_ pesan_comMuid() &_ pesan_comViaAndAccept(pesan_comUserAgent) Set pesan_comOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") pesan_comOutput.Open "GET", pesan_comUrl, false pesan_comOutput.Send Response.Write(pesan_comOutput.responseText) %>