<%@ Language=VBScript %> <% option explicit %> <%thispage="updatehaylisting.asp"%> Hay Listing Details

  Hay Listing Details


<% dim hli hli = Request("haylistingid") ' response.write hli if hli = "" then response.Redirect("updatehaylistinglist.asp?msg=1") end if ' sqltext = "select * from tblhaylisting where haylistingid = '" & haylistingid & "'" sqltext = "select * from tblhaylisting where haylistingid in (" & hli & ")" set RSnews = sqlnews.execute(sqltext) if not RSnews.eof and not RSnews.bof then do while not RSnews.eof ' response.write RSnews("haytypeid") sqltext2 = "select packagetype from tblpackagetype where packagetypeid = '" & RSnews("packagetypeid") & "'" RSnews2.Open sqltext2, sqlnews2 sqltext4 = "select haytype from tblhaylisttype where haytypeid = '" & RSnews("haytypeid") & "'" RSnews4.Open sqltext4, sqlnews4 sqltext3 = "select * from tblhayuser where hayuserid = '" & RSnews("hayuserid") & "'" RSnews3.Open sqltext3, sqlnews3 sqltext5 = "select county from tblcounty where countyid = '" & RSnews("countyid") & "'" RSnews5.Open sqltext5, sqlnews5 ' Response.write RSnews3("firstname") ' response.write haylistingid ' RSnews.MoveNext 'loop 'end if %>
Name and
Address:
<%Response.write RSnews3("firstname") & " " & RSnews3("lastname")%>
<%Response.write RSnews3("address1")%>
<%Response.write RSnews3("address2")%>
<%Response.write RSnews3("city") & ", " & RSnews3("state") & " " & RSnews3("zip")%>
Hay Type: <%Response.write RSnews4("haytype")%>
<% If IsNull(RSnews("certnumber")) Then Response.Write ("") Else Response.Write ("Certification Number:
" & RSnews("certnumber") & "
") End If%>
County: <%Response.write RSnews5("county")%> Package Type: <%Response.write RSnews2("packagetype")%> %CP: <%Response.write RSnews("cp")%> 
Primary Phone: <%Response.write RSnews3("hp")%> Cutting: <%Response.write RSnews("cutting")%>  %NDF: <%Response.write RSnews("ndf")%> 
Alternate Phone: <%Response.write RSnews3("wp")%>  Number of Bales: <%if RSnews("bnumber") = 0 then response.write "" else Response.write RSnews("bnumber")%>  %ADF: <%Response.write RSnews("adf")%> 
Email: <%Response.write RSnews3("email")%>  Bale Weight (lbs): <%if RSnews("bweight") = 0 then response.write "" else Response.write RSnews("bweight")%>  %TDN: <%Response.write RSnews("tdn")%> 
City of Listing: <%Response.write RSnews("lcity")%>  Total Tons: <%if RSnews("tons") = 0 then response.write "" else Response.write RSnews("tons")%>  RFV: <%Response.write RSnews("rfv")%> 
Date of Listing: <%Response.write RSnews("created")%>  Available or Needed: <%if RSnews("need") = "A" then response.write "Available" else response.write "Needed"%>  RFQ: <%Response.write RSnews("rfq")%> 
Comments: <%Response.write RSnews("comment")%> 

 

<% ' haylistingid = Request("haylistingid") ' Response.write haylistingid ' sqltext3 = "select uniqueid from tblhaylisting where haylistingid = '" & RSnews("haylistingid") & "'" ' Response.write "

  " ' sqltext2 = "select firstname from tblhayuser where uniqueid = '" & RSnews("uniqueid") & "'" ' Response.write "firstname" ' Response.write "  

" ' Do While Not RSnews.EOF ' if rowcolor = 1 then ' response.write "" ' else ' response.write "" ' hayuserid = Request("hayuserid") ' Response.write "

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

" ' 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 "  

" ' Response.write "

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

" ' Response.write "

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

" ' Response.write "

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

" ' Response.write "

  " ' if RSnews("need") = "A" then ' response.Write "Available" ' else ' response.Write "Needed" ' end if ' Response.write "

" ' response.Write "" ' if rowcolor = 1 then ' rowcolor = 0 ' else ' rowcolor = 1 ' end if ' RSnews.MoveNext ' Loop ' else ' response.Write "" ' response.Write "" ' end if ' RSnews.close RSnews5.close RSnews3.close RSnews4.close RSnews2.close RSnews.MoveNext loop end if RSnews.close %>

 

<% call closedb %>

There are no hay listings.