June 16, 2009 11:47 AM

Doc's Online Store Please click one of the below links, to take you to that area of our online store. Doc's Original Posing Trunks 2009 NPC Georgia Bodybuilding Championhips 7/11/2009 Entry Or Tickets Download Doc's Sports Catalog NEW Bodybuilding Videos 1980-2009 Contest Photos (Past/Present) NPC Georgia 2006-2009 DVD & Products Doc-it Xpress Orders Online & View The Catalog From Business Cards, Rubber Stamps, Labels, Letterhead, Envelopes. and Logo Wear   Find the hottest online casinos here at FiveStarGamble.com

Updates Georgia 2009 Schedule 2009 NPC Application Enter NPC GA 7/11/09 Purchase Tickets NOW NPC GA 7/11/2009 NPC Georgia Bodybuilding Championships 7/14/2007 View Photos ONLINE Taken 7/14/2007 Pre-Judging Evening FINALS PHOTOS Order DVD NPC GA 2007 2007 Georgia POSING TRUNKS Order Online Register for the NPC 2009

If you have any questions, comments, and/or concerns. Please feel free to contact the info@docssports.com
Kenneth Neely's Profile | Create Your Badge   Doc's Sports / Kenneth "Doc" Neely 2002-2009 All Rights Reserved © Website Design by Joshua Scott

Manual Checkout LINK

 <% ' THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' Dimensioning variables - DO NOT MODIFY! Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' Finished dimensioning variables. ' MODIFY THE VARIABLES BELOW: ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ********************************************************************************* ' DO NOT MODIFY ANYTHING IN THIS BLOCK!! *************************************** ' ********************************************************************************* BLKey = "H25M-1V6F-6OE2" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="HTTPS://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>