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