<HTML> |
<TITLE>Employees Directory</TITLE> |
<BODY> |
<h2> <center><font color=red>Form for Employees Directory</font></center></h2> |
<% |
If IsObject(Session("workpg_conn")) Then |
Set conn = Session("workpg_conn") workpg is ODBC System |
Else DSN for an Access db |
Set conn = Server.CreateObject("ADODB.Connection") |
conn.open "workpg","","" |
Set Session("workpg_conn") = conn |
End If |
%> |
<% |
If cstr(Request.QueryString("ok_ans")) <> "" Then |
rs.Fields("ok_ans").Value = Request.QueryString("ok_ans") |
End If |
If cstr(Request.QueryString("OptBody6")) <> "" Then |
rs.Fields("OptBody6").Value = Request.QueryString("OptBody6") |
End If |
% > |