Lund Martin Construction

<% dim conntemp mysql = "Select * from events order by event_date asc" on error resume next call getfromdatabase(mysql,rstemp) i=0 %>

<% if(not rstemp.eof) then %> <%end if%>

<% if(not rstemp.eof) then %> <%While not rstemp.eof biddate = rstemp("event_date") if(biddate<>"") then arr = Split(biddate,"/") end if eventid = rstemp("event_id") bidhour = rstemp("event_hour") bidmin = rstemp("event_minute") bidmeridian = rstemp("am_pm") bidest = rstemp("est") bidplans = rstemp("Plans") bidtitle = rstemp("title") bidproj = rstemp("project") bidlocation = rstemp("Location") bidBond = rstemp("Bond") bidqty = rstemp("qty") bidCM = rstemp("CM") bidBidBond = rstemp("BidBond") bidFax = rstemp("Fax") bidInfo = rstemp("info") if i mod 2 = 0 then bg="#e4e4e4" else bg="CCCCCC" end if if biddate <>"" and not isnull(biddate) then bidday = weekday(biddate) if bidday=1 then weekday1 = "Sun" elseif bidday=2 then weekday1= "Mon" elseif bidday=3 then weekday1= "Tue" elseif bidday=4 then weekday1= "Wed" elseif bidday=5 then weekday1= "Thu" elseif bidday=6 then weekday1= "Fri" elseif bidday=7 then weekday1= "Sat" end if end if if bidhour <>"" and bidmin <> "" then if len(bidmin)<2 then bidmin = "0"& bidmin end if bidtime = bidhour&":"&bidmin '&" "&bidmeridian end if 'if bidhour <>"" and bidmin <> "" and bidmeridian <> "" then ' if len(bidmin)<2 then ' bidmin = "0"& bidmin ' end if ' bidtime = bidhour&":"&bidmin '&" "&bidmeridian 'end if 'weekday1 = weekday1 & " " & arr(0) & "/" & arr(1) weekday1 = arr(0) & "/" & arr(1) & " " & weekday1 %> <% if(bidInfo<>"") then %> <% else %> <% end if%> <%rstemp.movenext i=i+1 wend%> <%else%> <%end if%>

Day	Bid Time	Est	Project Title	Location	Add'l Info
<%=weekday1%>	<%=bidtime%>	<%=bidest%>	<%=bidtitle%>	<%=bidlocation%>	Yes	No
Sorry - no bid information is available at this time