การแสดงข้อมูล เมื่อ Click ที่ Link แล้วจะแสดงผล ตาม Table และ Fields ที่ได้กำหนดไว้ครับ

<%
Dim Conn1,strSQL1,objRec1
Set Conn1 = Server.Createobject("ADODB.Connection")
Conn1.Open "Driver={SQL Server};Server=localhost;Database=allofback;UID=sa;PWD=;" 
strSQL1 = "SELECT * FROM Documents_C1 "
Set objRec1 = Server.CreateObject("ADODB.Recordset")
objRec1.Open strSQL1, Conn1, 1,3
%>
<%
While Not objRec1.EOF
%>
<tr>
<td background="images/header.png" width="295" height="26"><div class="text2"><a href="documents.asp?id=<%=objRec1.Fields("C1_id").Value%>"><%=objRec1.Fields("C1_name").Value%></a></div>
</td>
<%
objRec1.MoveNext
Wend
%>
<%
objRec1.Close()
Conn1.Close()
Set objRec1 = Nothing
Set Conn1 = Nothing 
%>

<%
Dim Conn5,strSQL5,objRec5
Set Conn5 = Server.Createobject("ADODB.Connection")
Conn5.Open "Driver={SQL Server};Server=localhost;Database=allofback;UID=sa;PWD=;" 
strSQL5 = "SELECT * FROM Documents_C1_1"
Set objRec5 = Server.CreateObject("ADODB.Recordset")
objRec5.Open strSQL5, Conn5, 1,3

%>
<%
While Not objRec5.EOF
%>

<table width="391"><tr><td width="37" style="padding-left:8px;" valign="top"><img src="images/bag.png" width="30" height="29"/></td><td width="342"><table width="150"><tr><td><div class="textgray2">Meeting : <%=objRec5.Fields("name").Value%></div></td></tr><tr><td><div class="textgray2">Date : <%=objRec5.Fields("Date").Value%></div></td></tr><tr><td><div class="textgray2">Name : <%=objRec5.Fields("by_name").Value%></div></td></tr></table></td></table>

<%
objRec5.MoveNext
Wend
%>
<%
objRec5.Close()
Conn5.Close()
Set objRec5 = Nothing
Set Conn5 = Nothing 
%>