Rebuilding the wheel
I've rebuilt components of other blogging systems here for years, but now I'm finally ready to just use somebody else's system.Labels: blogging, coding, technology
Labels: blogging, coding, technology
While some websites will encourage you to boycott companies based on the perceived political bend of their CEO (IE Buyblue.org), we at Conservativepunk feel that punishing workers because the suits might have made donations to political causes we might not like is not an intelligent use of the power of our dollar. Instead, we believe that our consumer power can be put to the best use through the boycott of Chinese goods.So, basically, it's wrong to punish workers because "the suits" might have politics we don't like, but it's perfectly fine to punish the Chinese because their "suits" have politics we don't like. Good call. What was it I was saying about contradictions, earlier?
China's labor practices encourage outsourcing and drive down American wages. Aren't you tired of manufacturing jobs leaving the US?In effect, aren't you tired of allowing the Chinese to compete with us fairly? Wouldn't you prefer to tip the scale back in our favor? I guess they take the punk D.I.Y. ethic so seriously that they demand we "do it ourselves."
function getTerrorAlert() 'Version 1.1
'*********************************************************************
'Do not modify the variables unless you know what you're doing. *
'(1) intTimeout is fair game, change it to whatever timeout length *
'you like, but don't exceed Server.ScriptTimeout. *
'(2) strErrorResponse is self-explanatory. *
' *
'Version 1.0: Got the alert *
'Version 1.1: Includes a timeout value. *
'Future versions aren't planned unless something is wrong with this. *
' *
'Afshin Darian - http://eighties-night.com/ *
' *
'AS USUAL, THIS IS UNDER A CREATIVE COMMONS LICENSE. CHECK MY SITE *
'FOR THE LINK TO THE MOST CURRENT VERSION OF THE LICENSE. *
'*********************************************************************
dim intTimeout : intTimeout = 10 'in seconds
dim strErrorResponse : strErrorResponse = "couldn't contact dhs"
'*********************************************************************
dim strTemp, xml, xmlhttp, timeStart, timeCurrent, LOADED, strURL
strTemp = ""
LOADED = 4 'This is the readyState value when xmlhttp has loaded
strURL = "http://www.dhs.gov/dhspublic/getAdvisoryCondition"
set xmlhttp = server.createObject("Microsoft.XMLHTTP")
set xml = server.createObject("Microsoft.XMLDOM")
xml.async = false
call xmlhttp.open("GET", strURL, false)
call xmlhttp.send()
timeStart = now
do
timeCurrent = now
intTimeTaken = cint(datediff("s", timeStart, timeCurrent))
if (intTimeTaken > intTimeout) then
strTemp = strErrorResponse
call xmlhttp.abort()
exit do
end if
loop while xmlhttp.readyState <> LOADED
if (xmlhttp.readyState = LOADED) then
call xml.loadxml(xmlhttp.responsetext)
strTemp = xml.selectsinglenode("/THREAT_ADVISORY").getAttribute("CONDITION")
end if
set xmlhttp = nothing
set xml = nothing
getTerrorAlert = strTemp
end function
Labels: coding, conservatism, fud, islam, music, politics, religion, terrorism