 | ||||
|
||||
 | ||||
|
<%
Dim iCPCID1 As Integer = 18
Dim sCPCTagName1 As String
Dim iMaxReturn1 As Integer = 10
Dim sHeaderHTML1 As String = " " Dim sFooterHTML1 As String = "" Dim sResultHTML1 As String = " [4] » More from [2]" Dim sNoResultHTML1 As String = "We were unable to find any results" Dim bHideEmpty1 As Boolean = False Dim sSeparatorHTML1 As String = " " Dim iFirstResult1 As Integer = 1 Dim sExecPath1 As String Dim sSiteURL1 As String = "http://www.weightlossforgood.co.uk/" if sSiteURL1="/" then sSiteURL1= "http://" & me.request.url.host & "/" Dim iSiteID1 As Integer = 26 Dim sPhrases1 As String = "Fitness videos" if len(request.form.tostring)>0 then if not isnothing(request.form("searchfor")) then if len(request.form("searchfor"))>0 then sPhrases1=request.form("searchfor") end if else if not isnothing(request.querystring("searchfor")) then if len(request.querystring("searchfor"))>0 then sPhrases1=request.querystring("searchfor") end if end if Dim sQS1 As String = request.querystring.tostring sExecPath1 = "/_aspx/cpcinclude.aspx?" & _ "id=" & iCPCID1 & " "ip=" & Request.UserHostAddress & " "mr=" & iMaxReturn1 & " "rh=" & server.urlencode(sResultHTML1) & " "nh=" & server.urlencode(sNoResultHTML1) & " "se=" & server.urlencode(sSeparatorHTML1) & " "fr=" & iFirstResult1 & " "ph=" & server.urlencode(sPhrases1) & " "qs=" & server.urlencode(sQS1) & " "su=" & server.urlencode(sSiteURL1) & " "ru=" & server.urlencode(Request.RawUrl) & " "he=" & bHideEmpty1 & " "si=" & iSiteID1 & " "ua=" & server.urlencode(Request.UserAgent) Dim sr1 as new system.IO.StreamReader(system.Net.WebRequest.Create(Left(sSiteURL1,Len(sSiteURL1)-1) & sExecPath1).GetResponse.GetResponseStream) Dim output1 as String = sr1.ReadToEnd If Not String.IsNullOrEmpty(output1) Then Response.Write(replace(sHeaderHTML1,"\n",vbcrlf)) Response.Write(output1) Response.Write(replace(sFooterHTML1,"\n",vbcrlf)) End If sr1 = nothing %> |
|
||
