This Is My Golf Blog: When Dumb and Dumberer Swing....

Wednesday, May 28, 2008

When Dumb and Dumberer Swing....

"Stupid game!"- I said to my self, about 5 years ago when I was in college.
This opininon turn into 180 degrees when my new boss ask me to accompanied him hit that tiny white ball on the green field.
My first time on this course was Feb. 4, 2007 and it was cold all over the east coast. It was about 40 degrees when my group teed off at 10am. It was an absolutely a fine experience. Great staff and first tee starter (Rudy) made it easy for us to begin our round. Along the way, we experienced a great layout, well maintained with greens that were frustraiting and fair. Just a beautiful experience from first tee to the 19th hole with the angus beef cheeseburgers. I'll be back!

0 comments:

Post a Comment

<% openinnewwindow dim &linksperpage="&" generate passedquery dim # the following variable determines whether the search function is enabled // want page --------------------------------------------------------------------------------- thispage dim &categorycolumns="&" categorycolumns postingstring="PostingString &" (1="Yes," postingstring dim &siteid="& 5752 ' # pass through any querystring data to BackLinkSpider to allow" not &scriptname="&" hobj="CreateObject(WinHttp.WinHttpRequest.5.1) " below: openinnewwindow postingstring="PostingString &" the modify! dim # the following variable is sent to the server in order to backlinkspider linksperpage dim componentstring="" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetLinkExchangeData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinkExchangeData = False End If Else hObj.Open "GET", "http://www.backlinkspider.com/generate.links.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetLinkExchangeData = False Else strResponse = ComponentString & hObj.responseText GetLinkExchangeData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing ' let's see if the server supports the XMLHTTP component, various versions On Error Resume Next Set hObj = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else ' # Open connection to BackLinkSpider server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "GET", "http://www.backlinkspider.com/generate.links.php?" & strQuery & strPost, false hObj.Send If hObj.status <> 200 Then ' # error! strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" TryMSXML = False Else ' # We should have received the links information from the server, ' # the following line will return the data by reference: strResponse = ComponentString & hObj.responseText TryMSXML = True End If Set hObj = Nothing End If End Function ' # //FINSIHED BackLinkSpider SCRIPT BLOCK %>

This Is My Golf Blog

Search something else? Try me!

Wednesday, May 28, 2008

When Dumb and Dumberer Swing....

0 comments:

Labels

Blog Archive

BlogCatalog

Related Links

FEEDJIT Live Traffic Feed

Related Links:

Golf News

You're visitor number: