<%@ Language="VBScript"%> <% option explicit %> <%thispage="updateseedlistinglist.asp"%> Seed Listings

  Current Seed Listings

You may select options in the categories below to filter the listings.

<% flag = request("flag") if flag = "" then flag = 0 end if Select Case flag Case 0 sqltext3 = "islive = 1" Case 1 seedtypeid = request("seedtypeid") countyid = request("countyid") if seedtypeid = "" then sqltextA = "" else sqltextA = " and seedtypeid in (" & seedtypeid & ")" end if if countyid = "" then sqltextB = "" else sqltextB = " and countyid in (" & countyid & ")" end if sqltext3 = "islive = 1" & sqltextA & sqltextB ' response.write sqltext3 'liveFlag = request("liveFlag") ' if liveFlag = "" then ' liveFlag = 0 ' end if ' haylistingid = Request("haylistingid") 'Select Case liveFlag ' Case 0 ' Case 1 ' islive = request("islive") ' if islive = "1" then ' islive = "0" ' else ' if islive = "0" then ' islive = "1" ' end if ' end if ' insertentry = "islive = '" & islive & "'" 'sqltext = "update tblhaylisting set " & insertentry & " where haylistingid = '" & haylistingid & "'" ' response.write sqltext 'set RSnews = sqlnews.execute(sqltext) End Select ' sqltextE = "select * from tblhaylisttype order by haytype" ' RSnews3.Open sqltextE, sqlnews 'sqltext2 = "select count(*) as cnting from tblhaylisting where (haytypeid = " & RSnews3("haytypeid") & ")" ' RSnews2.Open sqltext2, sqlnews2 ' if not RSnews2.eof and not RSnews2.bof then ' haycnting = RSnews2("cnting") ' else ' haycnting = "0" ' end if ' RSnews2.close ' response.write haycnting %>

Seed Type Fliter

<% dim counter, myHTIArray myHTIArray = Split(seedtypeid,",") sqltext = "select * from tblseedtype order by seedtype" myCount = 1 set RSnews = sqlnews.execute(sqltext) if not RSnews.eof and not RSnews.bof then do while not RSnews.eof sqltext2 = "select count(*) as cnting from tblseedlisting where (seedtypeid = '" & RSnews("seedtypeid") & "') and (islive = '1')" RSnews2.Open sqltext2, sqlnews2 if not RSnews2.eof and not RSnews2.bof then haycnting = RSnews2("cnting") else haycnting = "0" end if RSnews2.close 'sqltext2 = "select islive from tblhaylisting where haytypeid = " & RSnews("haytypeid") & "" 'RSnews2.Open sqltext2, sqlnews2 'if not RSnews2.eof and not RSnews2.bof then ' islive = RSnews2("islive") 'end if 'RSnews2.close response.write "" 'else if islive = "0" then ' response.Write "" else response.Write " (" & haycnting & ")" end if 'end if myCount = myCount + 1 RSnews.movenext loop end if RSnews.close %>

 

County Filter

<% dim myCIArray myCIArray = Split(countyid,",") sqltext = "select * from tblcounty order by county" myCount = 1 set RSnews = sqlnews.execute(sqltext) if not RSnews.eof and not RSnews.bof then do while not RSnews.eof sqltext2 = "select count(*) as cnting from tblseedlisting where (countyid = '" & RSnews("countyid") & "') and (islive = '1')" RSnews2.Open sqltext2, sqlnews2 if not RSnews2.eof and not RSnews2.bof then haycnting = RSnews2("cnting") else haycnting = "0" end if RSnews2.close response.write "" ' else if islive = "0" then ' response.Write "" else response.Write " (" & haycnting & ")" end if 'end if myCount = myCount + 1 RSnews.movenext loop end if RSnews.close %>

 



 

Click on any listing below or select multiple listings to view details.
<% sqltext = "select * from tblseedlisting where " & sqltext3 & " order by seedtypeid" RSnews.Open sqltext, sqlnews if not RSnews.eof and not RSnews.bof then %> <% Do While Not RSnews.EOF myCount = 1 'added if rowcolor = 1 then response.write "" else response.write "" end if ' Started adding here Response.write "" ' Stopped here Response.write "" Response.write "" Response.write "" Response.write "" response.Write "" if rowcolor = 1 then rowcolor = 0 else rowcolor = 1 end if myCount = myCount + 1 RSnews.MoveNext Loop else response.Write "

Seed type

County

City of Listing

% Pure Seed

" response.write "

  " sqltext2 = "select * from tblseedtype where seedtypeid = '" & RSnews("seedtypeid") & "'" RSnews2.Open sqltext2, sqlnews2 if not RSnews2.eof and not RSnews2.bof then Response.write cleantext(trim(RSnews2("seedtype"))) end if RSnews2.close Response.write "  

  " sqltext2 = "select * from tblcounty where countyid = '" & RSnews("countyid") & "'" RSnews2.Open sqltext2, sqlnews2 if not RSnews2.eof and not RSnews2.bof then Response.write cleantext(trim(RSnews2("county"))) end if RSnews2.close Response.write "  

  " ' sqltext2 = "select * from tblpackagetype where packagetypeid = '" & RSnews("packagetypeid") & "'" ' RSnews2.Open sqltext2, sqlnews2 ' if not RSnews2.eof and not RSnews2.bof then Response.write cleantext(trim(RSnews("lcity"))) ' end if ' RSnews2.close Response.write "  

  " ' sqltext2 = "select * from tblpackagetype where packagetypeid = '" & RSnews("packagetypeid") & "'" ' RSnews2.Open sqltext2, sqlnews2 ' if not RSnews2.eof and not RSnews2.bof then Response.write cleantext(trim(RSnews("pure"))) ' end if ' RSnews2.close Response.write "  

" response.Write "" end if RSnews.close ' RSnews3.close %>

There are no seed listings.

 
<% if request("msg") = "1" then response.Write "

  You must make at least one selection.

" end if %>

 

<% call closedb %>