I will post it here, but if it is too much we can find a different way. I appreciate the help.
I've added comments to what I am trying to accomplish. I have gotten a different version of this to work, but in the page there is code for each individual table to be displayed, if any changes are made to the tblstep_list, I will have to manually insert the code to display the step status on the webpage. This way I only need to add the recordset, but that can also be automated down the line, perhaps.
```````````````````````````````````````````````````````
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/spectra_DB_3.asp" -->
<%
Dim Wafer_Reg
Dim Wafer_Reg_numRows
Set Wafer_Reg = Server.CreateObject("ADODB.Recordset"
Wafer_Reg.ActiveConnection = MM_spectra_DB_3_STRING
Wafer_Reg.Source = "SELECT * FROM spectra_db_3.tblwafer_reg"
Wafer_Reg.CursorType = 0
Wafer_Reg.CursorLocation = 2
Wafer_Reg.LockType = 1
Wafer_Reg.Open()
Wafer_Reg_numRows = 0
%>
<%
Dim Step_List
Dim Step_List_numRows
Set Step_List = Server.CreateObject("ADODB.Recordset"
Step_List.ActiveConnection = MM_spectra_DB_3_STRING
Step_List.Source = "SELECT * FROM spectra_db_3.tblstep_list"
Step_List.CursorType = 0
Step_List.CursorLocation = 2
Step_List.LockType = 1
Step_List.Open()
Step_List_numRows = 0
%>
<%
Dim Membrane_Bond
Dim Membrane_Bond_numRows
Set Membrane_Bond = Server.CreateObject("ADODB.Recordset"
Membrane_Bond.ActiveConnection = MM_spectra_DB_3_STRING
Membrane_Bond.Source = "SELECT * FROM spectra_db_3.tblmembrane_bond"
Membrane_Bond.CursorType = 0
Membrane_Bond.CursorLocation = 2
Membrane_Bond.LockType = 1
Membrane_Bond.Open()
Membrane_Bond_numRows = 0
%>
<%
Dim Membrane_Grind
Dim Membrane_Grind_numRows
Set Membrane_Grind = Server.CreateObject("ADODB.Recordset"
Membrane_Grind.ActiveConnection = MM_spectra_DB_3_STRING
Membrane_Grind.Source = "SELECT * FROM spectra_db_3.tblmembrane_grind"
Membrane_Grind.CursorType = 0
Membrane_Grind.CursorLocation = 2
Membrane_Grind.LockType = 1
Membrane_Grind.Open()
Membrane_Grind_numRows = 0
%>
<%
Dim tblIncoming_Clean
Dim tblIncoming_Clean_numRows
Set tblIncoming_Clean = Server.CreateObject("ADODB.Recordset"
tblIncoming_Clean.ActiveConnection = MM_spectra_DB_3_STRING
tblIncoming_Clean.Source = "SELECT * FROM spectra_db_3.tblincoming_clean"
tblIncoming_Clean.CursorType = 0
tblIncoming_Clean.CursorLocation = 2
tblIncoming_Clean.LockType = 1
tblIncoming_Clean.Open()
tblIncoming_Clean_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Wafer_Reg_numRows = Wafer_Reg_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
Step_List_numRows = Step_List_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
Step_List_numRows = Step_List_numRows + Repeat3__numRows
%>
<html>
<head>
<title>WIP Summary</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<img src="images/title_bar.gif" width="500" height="80">
<table width="102%" border="0" cellpadding="1" cellspacing="3">
<tr>
<td width="310"> </td>
' Display the list of all the steps in tblStep_list across the top of the page
<% While ((Repeat2__numRows <> 0) AND (NOT Step_List.EOF)) %>
<td width="630"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<a href="New_Record/<%=(Step_List.Fields.Item("New_rec"
.Value)%>">
<%=(Step_List.Fields.Item("Display_Name"
.Value)%>
</a>
</strong></font>
</td>
<%'End loop for Step_List
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Step_List.MoveNext()
Wend
%>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Wafer_Reg.EOF))
%>
<% 'Loop through tblWafer_reg to list all the wafer in Process
Dim Wafer_Loc
Wafer_Loc = (Wafer_Reg.Fields.Item("Wafer_ID"
.Value)
response.write "<tr>"
response.write "<td width=""150""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><Strong>" & Wafer_Loc & "</Strong></font></td>"
%>
<td width="630"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
' Loop through the tblstep_list, use the table name to create a loop to open each step table and
'display the status of each wafer for that table throughout all the steps.
'example:
' step 1 | step 2 | step 3 | step 4
'401-1 | status | statust| |
'501-2 | status | | |
'607-1 | status | status | status |
'there is loop to fill in the steps at the top and a separate loop to display the part numbers
'on the left which has a nested loop to go through all the table steps and pull out the status
'of each part at each step. This loop is to through and open each table and display the status
'for that part. I have not put in the function to look for the specific part number in each table
'I am trying to get the loop for the status to work first.
'
Step_List.MoveFirst()
Dim Step_table_name
Step_table_name = Step_List.Fields.Item("Table_Name"
.value
While ((Repeat3__numRows <> 0) AND (NOT Step_List.EOF))
%>
<a href="New_Record/<%=(Step_List.Fields.Item("New_rec"
.Value)%>">
<%
'use the current step name, insert into statement to view "status" field value
'on the table. This is where I get the error. %>
<% =(Step_table_name.fields.item("status"
.value)%> </a>
</font> </td>
<%'End loop for Step_List
Repeat3__index=Repeat2__index+1
Repeat3__numRows=Repeat2__numRows-1
Step_List.MoveNext()
Wend
%>
<% 'close wafer step and row of data
response.write "</tr>"
%>
<% 'repeat to display all parts in registration
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Wafer_Reg.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Wafer_Reg.Close()
Set Wafer_Reg = Nothing
%>
<%
Step_List.Close()
Set Step_List = Nothing
%>
<%
Membrane_Bond.Close()
Set Membrane_Bond = Nothing
%>
<%
Membrane_Grind.Close()
Set Membrane_Grind = Nothing
%>
<%
tblIncoming_Clean.Close()
Set tblIncoming_Clean = Nothing
%>
```````````````````````````````````
Thanks for taking a look..
Jaime
