| 1 |
<HTML><TITLE>Employees Directory</TITLE><BODY>
|
| 2 |
<h2> <center><font color=red>Form for Employees Directory</font></center></h2>
|
| 3 |
<%
|
| 4 |
If IsObject(Session("workpg_conn")) Then
|
| 5 |
Set conn = Session("workpg_conn") workpg is ODBC System
|
| 6 |
Else DSN for an Access db
|
| 7 |
Set conn = Server.CreateObject("ADODB.Connection")
|
| 8 |
conn.open "workpg","",""
|
| 9 |
Set Session("workpg_conn") = conn
|
| 10 |
End If
|
| 11 |
%>
|
| 12 |
<%
|
| 13 |
If cstr(Request.QueryString("ok_ans")) <> "" Then
|
| 14 |
rs.Fields("ok_ans").Value = Request.QueryString("ok_ans")
|
| 15 |
End If
|
| 16 |
If cstr(Request.QueryString("OptBody6")) <> "" Then
|
| 17 |
rs.Fields("OptBody6").Value = Request.QueryString("OptBody6")
|
| 18 |
End If
|
| 19 |
% >
|
