|
<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
|
|
% >
|
