%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)
%>