<% session.timeout = 240 %> <% dim strconnect %> Dog trainers in Alabama - Dog Obedience - Dog Training USA

<%dim StateName StateName="Alabama" %>

dog obedience schools and dog trainers in <%=StateName%>

<% Dim objRSViewBasicTrainers, objCONN, objConn2, ObjConn3, ObjConn4, objRSViewFeaturedTrainers, objRSViewFreeTrainers, objRSViewBannerTrainers 'Get Free Listings from database SET objCONN = SERVER.CreateObject ("ADODB.COMMAND") objCONN.ActiveConnection = strConnect set objRSViewFreeTrainers = server.CreateObject ("ADODB.Recordset") objCONN.CommandText = "tblAds_GetFreeListings" objCONN.CommandType = adCmdStoredProc objConn.Parameters.Append objConn.CreateParameter("@StateName", adchar, adParamInput, 30, StateName) objConn.Parameters("@StateName") = StateName Set objRSViewFreeTrainers = objCONN.Execute 'Get Basic Listings from database SET objCONN2 = SERVER.CreateObject ("ADODB.COMMAND") objCONN2.ActiveConnection = strConnect set objRSViewBasicTrainers = server.CreateObject ("ADODB.Recordset") objCONN2.CommandText = "tblAds_GetBasicListings" objCONN2.CommandType = adCmdStoredProc objConn2.Parameters.Append objConn2.CreateParameter("@StateName", adchar, adParamInput, 30, StateName) objConn2.Parameters("@StateName") = StateName Set objRSViewBasicTrainers = objCONN2.Execute 'Get Featured Listings from database SET objCONN3 = SERVER.CreateObject ("ADODB.COMMAND") objCONN3.ActiveConnection = strConnect set objRSViewFeaturedTrainers = server.CreateObject ("ADODB.Recordset") objRSViewFeaturedTrainers.CursorLocation = adUseClient objCONN3.CommandText = "tblAds_GetFeaturedListings" objCONN3.CommandType = adCmdStoredProc objConn3.Parameters.Append objConn3.CreateParameter("@StateName", adchar, adParamInput, 30, StateName) objConn3.Parameters("@StateName") = StateName Set objRSViewFeaturedTrainers = objCONN3.Execute 'Get Banner Listings from database SET objCONN4 = SERVER.CreateObject ("ADODB.COMMAND") objCONN4.ActiveConnection = strConnect set objRSViewBannerTrainers = server.CreateObject ("ADODB.Recordset") objCONN4.CommandText = "tblAds_GetBannerListings" objCONN4.CommandType = adCmdStoredProc objConn4.Parameters.Append objConn4.CreateParameter("@StateName", adchar, adParamInput, 30, StateName) objConn4.Parameters("@StateName") = StateName objRSViewBannerTrainers.CursorType = adOpenStatic objRSViewBannerTrainers.CursorLocation = adUseClient Set objRSViewBannerTrainers = objCONN4.Execute dim BannerFile, BannerLocation, GetBannerFile, BannerURL, BannerCompanyName if not objRSViewBannerTrainers.EOF then while not objRSViewBannerTrainers.EOF BannerFile = objRSViewBannerTrainers.Fields.Item("BannerLocation").Value if BannerFile <> "" then BannerLocation = "Banners/" GetBannerFile = BannerLocation & BannerFile BannerURL = objRSViewBannerTrainers.Fields.Item("URL").Value BannerCompanyName = objRSViewBannerTrainers.Fields.Item("CompanyName").Value Response.Write "

 & BannerCompanyName & " end if objRSViewBannerTrainers.MoveNext wend end if objRSViewBannerTrainers.Close Response.write("

Dog Trainers - Maximize your Business Exposure!
Add Your Banner Listing Here!

") 'REM REOPEN THE BANNER LISTINGS RECORDSET SO THAT WE CAN LOOP THROUGH AND GET INFORMATION Response.Write "

featured " & StateName & " dog trainers

" objRSViewBannerTrainers.Open objConn4 if objRSViewFeaturedTrainers.EOF and objRSViewBannerTrainers.EOF then Response.Write "

There are no featured listings for " & StateName & ".
Be the first in this state!" Else 'REM FIRST GET THE BANNER LISTINGS AND LIST UNDERNEATH FEATURED TRAINERS. THE BANNER LISTINGS WILL BE LISTED 'FIRST IN THIS SECTION dim BannerEmail, BannerPhonePart1, BannerPhonePart2, BannerPhonePart3, BannerContact, BannerAdAddress, BannerAdAddress2, BannerCity, BannerState, BannerZip, BannerDescofBusiness, BannerPhone2Part1, BannerPhone2Part2, BannerPhone2Part3, BannerPhone, BannerPhone2 if Not objRSViewBannerTrainers.EOF then While Not objRSViewBannerTrainers.EOF BannerURL="http://" & Trim(objRSViewBannerTrainers.Fields.Item("URL").Value) BannerEmail=Trim(objRSViewBannerTrainers.Fields.Item("AdEmail").Value) BannerPhonePart1=Trim(objRSViewBannerTrainers.Fields.Item("AdPhonePart1").Value) BannerPhonePart2=Trim(objRSViewBannerTrainers.Fields.Item("AdPhonePart2").Value) BannerPhonePart3=Trim(objRSViewBannerTrainers.Fields.Item("AdPhonePart3").Value) BannerPhone2Part1=Trim(objRSViewBannerTrainers.Fields.Item("AdPhone2Part1").Value) BannerPhone2Part2=Trim(objRSViewBannerTrainers.Fields.Item("AdPhone2Part2").Value) BannerPhone2Part3=Trim(objRSViewBannerTrainers.Fields.Item("AdPhone2Part3").Value) BannerContact=Trim(objRSViewBannerTrainers.Fields.Item("AdContactName").Value) BannerAdAddress=Trim(objRSViewBannerTrainers.Fields.Item("AdAddress").Value) BannerAdAddress2=Trim(objRSViewBannerTrainers.Fields.Item("AdAddress2").Value) BannerCity=Trim(objRSViewBannerTrainers.Fields.Item("AdCity").Value) BannerState=Trim(objRSViewBannerTrainers.Fields.Item("AdState").Value) BannerZip=Trim(objRSViewBannerTrainers.Fields.Item("AdZip").Value) BannerDescofBusiness=Trim(objRSViewBannerTrainers.Fields.Item("DescofBusiness").Value) BannerCompanyName = Trim(objRSViewBannerTrainers.Fields.Item("CompanyName").Value) BannerPhone = "(" & BannerPhonePart1 & ") " & BannerPhonePart2 & "-" & BannerPhonePart3 BannerPhone2 = "(" & BannerPhone2Part1 & ") " & BannerPhone2Part2 & "-" & BannerPhone2Part3 Response.Write "

" If BannerURL <> "" then Response.Write "" & UCase(BannerCompanyName) & "

" Else Response.Write "" & UCase(BannerCompanyName) & "" End If Response.write "

" If BannerContact <> "" then Response.Write "Contact " & BannerContact End If If BannerContact <> "" and BannerPhonePart1 <> "" then Response.write " at " end if If BannerPhonePart1 <> "" then Response.Write BannerPhone End If If BannerPhone2Part1 <> "" then Response.Write " or " & BannerPhone2 End If If BannerPhonePart1 <> "" then Response.write "
" end if If BannerURL <> "" then Response.Write "Website: " & BannerURL & "
" End If If BannerEmail <> "" then Response.Write "E-mail: " & BannerEmail & "
" End If If BannerAdAddress <> "" then Response.Write BannerAdAddress & ", " if BannerAdAddress2 <> "" then Response.write BannerAdAddress2 & ", " end if Response.write BannerCity & ", " & BannerState & " " & BannerZip & "
" End If If BannerDescofBusiness <> "" then Response.write BannerDescofBusiness & "
" End if Response.Write "

" objRSViewBannerTrainers.MoveNext Wend End If 'REM AFTER THE BANNER LISTINGS, LIST THE FEATURED LISTINGS: Dim FeaturedURL, FeaturedCompanyName, FeaturedEmail, FeaturedContact, FeaturedPhone, FeaturedPhonePart1, FeaturedPhonePart2, FeaturedPhonePart3, FeaturedPhone2, FeaturedPhone2Part1, FeaturedPhone2Part2, FeaturedPhone2Part3, FeaturedAdAddress, FeaturedAdAddress2, FeaturedCity, FeaturedState, FeaturedZip, FeaturedDescofBusiness if Not objRSViewFeaturedTrainers.EOF then While Not objRSViewFeaturedTrainers.EOF FeaturedURL="http://" & Trim(objRSViewFeaturedTrainers.Fields.Item("URL").Value) FeaturedEmail=Trim(objRSViewFeaturedTrainers.Fields.Item("AdEmail").Value) FeaturedPhonePart1=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhonePart1").Value) FeaturedPhonePart2=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhonePart2").Value) FeaturedPhonePart3=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhonePart3").Value) FeaturedPhone2Part1=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhone2Part1").Value) FeaturedPhone2Part2=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhone2Part2").Value) FeaturedPhone2Part3=Trim(objRSViewFeaturedTrainers.Fields.Item("AdPhone2Part3").Value) FeaturedContact=Trim(objRSViewFeaturedTrainers.Fields.Item("AdContactName").Value) FeaturedCompanyName=Trim(objRSViewFeaturedTrainers.Fields.Item("CompanyName").Value) FeaturedAdAddress=Trim(objRSViewFeaturedTrainers.Fields.Item("AdAddress").Value) FeaturedAdAddress2=Trim(objRSViewFeaturedTrainers.Fields.Item("AdAddress2").Value) FeaturedCity=Trim(objRSViewFeaturedTrainers.Fields.Item("AdCity").Value) FeaturedState=Trim(objRSViewFeaturedTrainers.Fields.Item("AdState").Value) FeaturedZip=Trim(objRSViewFeaturedTrainers.Fields.Item("AdZip").Value) FeaturedDescofBusiness=Trim(objRSViewFeaturedTrainers.Fields.Item("DescofBusiness").Value) FeaturedPhone = "(" & FeaturedPhonePart1 & ") " & FeaturedPhonePart2 & "-" & FeaturedPhonePart3 FeaturedPhone2 = "(" & FeaturedPhone2Part1 & ") " & FeaturedPhone2Part2 & "-" & FeaturedPhone2Part3 Response.Write "

" If FeaturedURL <> "" then Response.Write "" & UCase(FeaturedCompanyName) & "

" Else Response.Write "

" & UCase(FeaturedCompanyName) & "

" End If Response.write "

" If FeaturedContact <> "" then Response.Write "Contact " & FeaturedContact End If If FeaturedContact <> "" and FeaturedPhonePart1 <> "" then Response.write " at " end if If FeaturedPhonePart1 <> "" then Response.Write FeaturedPhone End If If FeaturedPhone2Part1 <> "" then Response.Write " or " & FeaturedPhone2 End If If FeaturedPhonePart1 <> "" then Response.write "
" end if If FeaturedURL <> "" then Response.Write "Website: " & FeaturedURL & "
" End If If FeaturedEmail <> "" then Response.Write "E-mail: " & FeaturedEmail & "
" End If If FeaturedAdAddress <> "" then Response.Write FeaturedAdAddress & ", " if FeaturedAdAddress2 <> "" then Response.write FeaturedAdAddress2 & ", " end if Response.write FeaturedCity & ", " & FeaturedState & " " & FeaturedZip & "
" End If If FeaturedDescofBusiness <> "" then Response.write FeaturedDescofBusiness & "
" End if Response.Write "

" objRSViewFeaturedTrainers.MoveNext Wend End If Response.write("

Put your Dog Training Company right at the top of your state!
Add Your Featured Listing Here!

") End if 'Put free listing here Response.Write "

other dog trainers in " & StateName & "

" Response.Write "
" if objRSViewFreeTrainers.EOF and objRSViewBasicTrainers.EOF then Response.Write "There are no listings for " & StateName & ". Please check back soon!" Else dim BasicURL, BasicEmail, BasicPhone, BasicContact, BasicCompanyName, BasicTypeofTraining, BasicAdAddress, BasicAdAddress2, BasicAdCity, BasicAdState, BasicAdZip, BasicPhonePart1, BasicPhonePart2, BasicPhonePart3 While Not objRSViewBasicTrainers.EOF BasicURL="http://" & Trim(objRSViewBasicTrainers.Fields.Item("URL").Value) BasicEmail=Trim(objRSViewBasicTrainers.Fields.Item("AdEmail").Value) BasicPhonePart1=Trim(objRSViewBasicTrainers.Fields.Item("AdPhonePart1").Value) BasicPhonePart2=Trim(objRSViewBasicTrainers.Fields.Item("AdPhonePart2").Value) BasicPhonePart3=Trim(objRSViewBasicTrainers.Fields.Item("AdPhonePart3").Value) BasicContact=Trim(objRSViewBasicTrainers.Fields.Item("AdContactName").Value) BasicCompanyName=Trim(objRSViewBasicTrainers.Fields.Item("CompanyName").Value) BasicTypeofTraining=Trim(objRSViewBasicTrainers.Fields.Item("DescofBusiness").Value) BasicAdAddress=Trim(objRSViewBasicTrainers.Fields.Item("AdAddress").Value) BasicAdAddress2=Trim(objRSViewBasicTrainers.Fields.Item("AdAddress2").Value) BasicAdCity=Trim(objRSViewBasicTrainers.Fields.Item("AdCity").Value) BasicAdState=Trim(objRSViewBasicTrainers.Fields.Item("AdState").Value) BasicAdZip=Trim(objRSViewBasicTrainers.Fields.Item("AdZip").Value) BasicPhone = "(" & BasicPhonePart1 & ") " & BasicPhonePart2 & "-" & BasicPhonePart3 Response.Write "" if BasicCompanyName <> "" then Response.Write UCase(BasicCompanyName) & "" end if Response.write "

" If BasicContact <> "" Then Response.Write "Contact " & BasicContact End If If BasicContact <> "" and BasicPhonePart1 <> "" then Response.write " at " end if If BasicPhonePart1 <> "" Then Response.Write BasicPhone & "
" End If If BasicURL <> "" then Response.write ("Website: " & BasicURL & "
") end if If BasicEmail <> "" then Response.Write "E-mail: " & BasicEmail & "
" End If If BasicAdAddress <> "" then Response.Write BasicAdAddress & ", " if BasicAdAddress2 <> "" then Response.write BasicAdAddress2 & ", " end if Response.write BasicAdCity & ", " & BasicAdState & " " & BasicAdZip & "
" End If If BasicTypeOfTraining <> "" then Response.write ("Services: " & BasicTypeofTraining) end if Response.Write "


" objRSViewBasicTrainers.MoveNext Wend dim FreePhone, FreePhonePart1, FreePhonePart2, FreePhonePart3, FreeCompanyName, FreeURL While Not objRSViewFreeTrainers.EOF FreePhonePart1=Trim(objRSViewFreeTrainers.Fields.Item("AdPhonePart1").Value) FreePhonePart2=Trim(objRSViewFreeTrainers.Fields.Item("AdPhonePart2").Value) FreePhonePart3=Trim(objRSViewFreeTrainers.Fields.Item("AdPhonePart3").Value) FreeCompanyName=Trim(objRSViewFreeTrainers.Fields.Item("CompanyName").Value) FreeURL=Trim(objRSViewFreeTrainers.Fields.Item("URL").Value) FreePhone = "(" & FreePhonePart1 & ") " & FreePhonePart2 & "-" & FreePhonePart3 Response.Write "" Response.Write UCase(FreeCompanyName) & "
" If FreePhonePart1 <> "" Then Response.Write "" & FreePhone & "
" End If If FreePhonePart1 = "" Then Response.Write "" & FreeURL & "
" End If Response.Write "

" objRSViewFreeTrainers.MoveNext Wend End if Response.Write "

" Response.write("


Add Your Listing Here!
It's an affordable way to advertise your Dog Trainer business!

") Set objCONN = Nothing Set objCONN2 = Nothing Set objCONN3 = Nothing Set objCONN4 = Nothing objRSViewFeaturedTrainers.Close objRSViewFreeTrainers.Close objRSViewBasicTrainers.Close objRSViewBannerTrainers.Close %>

Select your state


Dog Training Menu


Additional Dog Services
 
©2007 Dog Training USA
The national listing of dog training schools, dog trainers, dog obedience instructors, and behavior modification specialists.