<% set objRS= server.CreateObject("ADODB.Recordset") sql="SELECT * from tender where date() <= ldate order by ldate " objRS.open sql, objConn,3,1,1 %> <% dim sl sl = 0 On Error Resume Next objRS.MoveFirst do while Not objRS.eof sl = sl + 1 %> <% objRs.movenext loop objRS.close %>

Sl No	Tender	Last Date : Time	Contact Address
<%Response.write(sl)%>	"> <%=Server.HTMLEncode(objRS.Fields("title").Value)%>	<% dim valid_date, date_disp, day_date dim valid_time, time_disp valid_date= objRS.Fields("cancel") If valid_date="Yes" Then Response.Write ("Cancelled") Else valid_date= objRS.Fields("ldate") 'dim validtime as vbLongDate day_date = day(valid_date) &"-"& month(valid_date) &"-"& year(valid_date) 'time_disp=time(valid_date) time_disp=hour(valid_date) &":"& minute(valid_date) &":"& second(valid_date) 'validtime=hour(valid_date) &":"& minute(valid_date) &":"& second(valid_date) 'valid_time= FormatDateTime(objRS("ldate")) 'Response.Write (valid_time) 'Response.Write (valid_date) Response.Write (day_date& "        " &time_disp&" hrs") 'Response.Write (day_date& "       " &validtime) 'Response.Write (time_disp) End If %>	<%=Server.HTMLEncode(objRS.Fields("contact").Value)%>