All,
Thank you for your response.
Here is the code.
Thanks
Pallavi
<code>
<html>
<head>
<title>Update Entry Select</title>
</head>
<body bgcolor="white" text="black">
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
Dim tpr
Dim size
Dim priority
Dim title
Dim contact
Dim status
Dim department
Dim c#
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Project.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT TPRDetails.* FROM Project WHERE Department = 'Phones';"
'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
%>
<table width = "1000">
<table width = "800">
<tr>
<td>
Prioritization
</td>
</tr>
<tr>
<td><img src = "office1.jpg">
</td>
<td><img src = "office2.jpg">
</td>
<td><img src = "office3.jpg">
</td>
</tr>
</table>
<table border = "1">
<tr>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Priority</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>TPR</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Project Title</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Business Contact</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Status</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Size</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>Department</b></font></th>
<th><font face="arial, helvetica" color="#000066" size="1"><b>C#</b></font></th>
</tr>
<%
'Loop through the recordset
Do While not rsGuestbook.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("<br>")
tpr = rsGuestBook("TPR")
priority = rsGuestBook("Priority")
title = rsGuestBook("Project Title")
contact = rsGuestBook("Business Contact")
status = rsGuestBook("Status")
size = rsGuestBook("Size")
department = rsGuestBook("Department")
c# = rsGuestBook("C#")
%>
<tr>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%Response.Write ("<a href=""update_form_phones.asp?ID=" & rsGuestbook("ID_No") & """>")
Response.Write (rsGuestbook("Priority"))
Response.Write ("</a>") %>
</font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=tpr%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=title%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=contact%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=status%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=size%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=department%></font>
</td>
<td>
</font><font face="arial, helvetica" color="#000066" size="1">
<%=c#%></font>
</td>
</tr>
<% 'end if %>
<%
'Move to the next record in the recordset
rsGuestbook.MoveNext
Loop
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>
</table>
</table>
</body>
</html>
</code>