<%
If IsObject(Session("log_sheet_conn")) Then
Set conn = Session("log_sheet_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "log_sheet","user","none"
Set Session("log_sheet_conn") = conn
End If
%>
<%
If IsObject(Session("Log_rs")) Then
Set rs = Session("Log_rs")
Else
sql = "SELECT * FROM [Log]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Log_rs") = rs
End If
%>
| ID | Date | Day | Tasks | Learned | Conclusion | Supervisor |
|---|---|---|---|---|---|---|
| <%=Server.HTMLEncode(rs.Fields("ID").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Date").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Day").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Tasks").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Learned").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Conclusion").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Supervisor").Value)%> |