<%Response.Expires=0 if Session("ClientID") = "" then 'Session("Destination") = "clientservices.asp" Response.Redirect("logscr.asp") end if %> <% ConnectString = "FILEDSN=sunraj.DSN" Set Conn=Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") Conn.Open ConnectString if request("ClientID") <> 0 then ClientID=request("ClientID") Session("ClientID")=ClientID end if sql="SELECT format(Orders.OrderDate, 'dd/mm/yyyy') AS OrderDate1, * FROM Orders where Orders.ClientID=" & session("ClientID") & " order by OrderDate desc;" 'response.write(sql & "
") Set RS=Conn.execute(sql) sql1="select * from Clients where Clients.ClientID=" & session("ClientID") & " ;" 'response.write(sql & "
") Set RS1=Conn.execute(sql1) %> Order List
 
 
Client Name :   <%if not rs1.eof then%> <%=rs1.fields("ClientName")%> <%end if %>
<% ctr=0 do while not RS.eof OrderID=request("OrderID") ctr=ctr+1 %> <% rs.movenext%> <%loop %>
Sr No.
Order No.
Order Date
Ack Status
Action
<%=ctr%>
<%=rs.fields("OrderNo")%>
<%=rs.fields("OrderDate1")%>
<%=rs.fields("OrderAckStatus")%>
<%Response.Write("View" & "") %>


  Back