Hello <% Response.Write(Session("FIRST_NAME")) %>, <% CUST_ID = (Session("ID"))%>
<%
Dim DataConn
Dim CmdSimpleSelect
Dim MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdSimpleSelect = Server.CreateObject("ADODB.Recordset")
DataConn.Open "DBQ=C:\Data\Webs\Pitt\_database\passwords.mdb;Driver={Microsoft Access Driver (*.mdb)};UID=admin;PASSWORD=Xpass"
MYSQL = "SELECT * FROM ITEM WHERE (CUST_ID = " & CUST_ID & ") ORDER BY ID DESC"
CmdSimpleSelect.Open MYSQL, DataConn
%>
<% If Not CmdSimpleSelect.EOF Then %>
below is a list of all
the items we've worked on for you.
<% End If %>
<% If CmdSimpleSelect.EOF Then %>
|
First time customer <% Response.Write(Session("FIRST_NAME")) %> <% Response.Write(Session("LAST_NAME")) %> |
|
<% End If %>
<%
While Not CmdSimpleSelect.EOF
%>
| Item |
<%= CmdSimpleSelect("JOB_DIS") %> |
| Fabric |
<%= CmdSimpleSelect("FABRIC") %> |
| Start Date |
<%= CmdSimpleSelect("IN_DATE") %> |
| Delivered Date |
<%= CmdSimpleSelect("OUT_DATE") %> |
|
<%
CmdSimpleSelect.MoveNext
Wend
CmdSimpleSelect.Close
Set CmdSimpleSelect = Nothing
DataConn.Close
Set DataConn = Nothing
%>
|
