Sample code for ASP files - I

<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

% >

Previous slide Next slide Back to first slide View graphic version