<% @ LANGUAGE="VBScript" %> Super Bowl Feeders Manufacturing Company Links Page <% Set cnPole = Server.CreateObject("ADODB.Connection") Set rsPoultry = Server.CreateObject("ADODB.Recordset") Set rsDeer = Server.CreateObject("ADODB.Recordset") Set rsPet = Server.CreateObject("ADODB.Recordset") Set rsWildlife = Server.CreateObject("ADODB.Recordset") cnPole.Open "SuperBowlFeeders" rsPoultry.Open "SELECT * FROM Links WHERE Section = 'Poultry'", cnPole rsDeer.Open "SELECT * FROM Links WHERE Section = 'Deer'", cnPole rsPet.Open "SELECT * FROM Links WHERE Section = 'Pet'", cnPole rsWildlife.Open "SELECT * FROM Links WHERE Section = 'Wildlife'", cnPole %>

Would you like to be added to our Links section?
Don't have a Web Site or Email address, NO PROBLEM!
We'll display your Company Name, Address, and Contact Information.
And if you do have a Web Site and/or Email address, we'll show that too.
Click here to view our Links Application Form.


<% numCntr=0 While Not rsPoultry.EOF If IsNull(rsPoultry("Image")) Or Len(rsPoultry("Image"))=0 Then Response.Write("") Else Response.Write("") End If numCntr = numCntr+1 rsPoultry.MoveNext Wend If numCntr = 0 Then Response.Write("") End If %>
Poultry Feeder Links
") Response.Write("") Response.Write("
") Response.Write("" & rsPoultry("Company") & "
") Response.Write(rsPoultry("Address") & "
") Response.Write(rsPoultry("City") & ", " & rsPoultry("State") & " " & rsPoultry("Zip") & "
") Response.Write("Phone : " & rsPoultry("Phone") & "
") Response.Write("Fax : " & rsPoultry("Fax") & "
") Response.Write("Email : " & rsPoultry("Email") & "
") If Left(rsPoultry("URL"), 7) = "http://" THen strURL = rsPoultry("URL") Else strURL = "http://" & rsPoultry("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("" & rsPoultry("Company") & "
") Response.Write(rsPoultry("Address") & "
") Response.Write(rsPoultry("City") & ", " & rsPoultry("State") & " " & rsPoultry("Zip") & "
") Response.Write("Phone : " & rsPoultry("Phone") & "
") Response.Write("Fax : " & rsPoultry("Fax") & "
") Response.Write("Email : " & rsPoultry("Email") & "
") If Left(rsPoultry("URL"), 7) = "http://" THen strURL = rsPoultry("URL") Else strURL = "http://" & rsPoultry("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("Sorry, no links available for this section.") Response.Write("


<% numCntr=0 While Not rsDeer.EOF If IsNull(rsDeer("Image")) Or Len(rsDeer("Image"))=0 Then Response.Write("") Else Response.Write("") End If numCntr = numCntr+1 rsDeer.MoveNext Wend If numCntr = 0 Then Response.Write("") End If %>
Deer Feeder Links
") Response.Write("") Response.Write("
") Response.Write("" & rsDeer("Company") & "
") Response.Write(rsDeer("Address") & "
") Response.Write(rsDeer("City") & ", " & rsDeer("State") & " " & rsDeer("Zip") & "
") Response.Write("Phone : " & rsDeer("Phone") & "
") Response.Write("Fax : " & rsDeer("Fax") & "
") Response.Write("Email : " & rsDeer("Email") & "
") If Left(rsDeer("URL"), 7) = "http://" THen strURL = rsDeer("URL") Else strURL = "http://" & rsDeer("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("" & rsDeer("Company") & "
") Response.Write(rsDeer("Address") & "
") Response.Write(rsDeer("City") & ", " & rsDeer("State") & " " & rsDeer("Zip") & "
") Response.Write("Phone : " & rsDeer("Phone") & "
") Response.Write("Fax : " & rsDeer("Fax") & "
") Response.Write("Email : " & rsDeer("Email") & "
") If Left(rsDeer("URL"), 7) = "http://" THen strURL = rsDeer("URL") Else strURL = "http://" & rsDeer("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("Sorry, no links available for this section.") Response.Write("


<% numCntr=0 While Not rsPet.EOF If IsNull(rsPet("Image")) Or Len(rsPet("Image"))=0 Then Response.Write("") Else Response.Write("") End If numCntr = numCntr+1 rsPet.MoveNext Wend If numCntr = 0 Then Response.Write("") End If %>
Pet Feeder Links
") Response.Write("") Response.Write("
") Response.Write("" & rsPet("Company") & "
") Response.Write(rsPet("Address") & "
") Response.Write(rsPet("City") & ", " & rsPet("State") & " " & rsPet("Zip") & "
") Response.Write("Phone : " & rsPet("Phone") & "
") Response.Write("Fax : " & rsPet("Fax") & "
") Response.Write("Email : " & rsPet("Email") & "
") If Left(rsPet("URL"), 7) = "http://" THen strURL = rsPet("URL") Else strURL = "http://" & rsPet("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("" & rsPet("Company") & "
") Response.Write(rsPet("Address") & "
") Response.Write(rsPet("City") & ", " & rsPet("State") & " " & rsPet("Zip") & "
") Response.Write("Phone : " & rsPet("Phone") & "
") Response.Write("Fax : " & rsPet("Fax") & "
") Response.Write("Email : " & rsPet("Email") & "
") If Left(rsPet("URL"), 7) = "http://" THen strURL = rsPet("URL") Else strURL = "http://" & rsPet("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("Sorry, no links available for this section.") Response.Write("


<% numCntr=0 While Not rsWildlife.EOF If IsNull(rsWildlife("Image")) Or Len(rsWildlife("Image"))=0 Then Response.Write("") Else Response.Write("") End If numCntr = numCntr+1 rsWildlife.MoveNext Wend If numCntr = 0 Then Response.Write("") End If %>
Wildlife Feeder Links
") Response.Write("") Response.Write("
") Response.Write("" & rsWildlife("Company") & "
") Response.Write(rsWildlife("Address") & "
") Response.Write(rsWildlife("City") & ", " & rsWildlife("State") & " " & rsWildlife("Zip") & "
") Response.Write("Phone : " & rsWildlife("Phone") & "
") Response.Write("Fax : " & rsWildlife("Fax") & "
") Response.Write("Email : " & rsWildlife("Email") & "
") If Left(rsWildlife("URL"), 7) = "http://" THen strURL = rsWildlife("URL") Else strURL = "http://" & rsWildlife("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("" & rsWildlife("Company") & "
") Response.Write(rsWildlife("Address") & "
") Response.Write(rsWildlife("City") & ", " & rsWildlife("State") & " " & rsWildlife("Zip") & "
") Response.Write("Phone : " & rsWildlife("Phone") & "
") Response.Write("Fax : " & rsWildlife("Fax") & "
") Response.Write("Email : " & rsWildlife("Email") & "
") If Left(rsWildlife("URL"), 7) = "http://" THen strURL = rsWildlife("URL") Else strURL = "http://" & rsWildlife("URL") End If Response.Write("" & strURL & "") Response.Write("
") Response.Write("Sorry, no links available for this section.") Response.Write("


<% rsPoultry.Close rsDeer.Close rsPet.Close rsWildlife.Close cnPole.Close %>