<%@ Language=VBScript %> <% Option Explicit %> <% 'Open connection string using App variable Dim sConn, con, ProjID, PageNum sConn=Application("TMAConnectString") Set con=Server.CreateObject("ADODB.Connection") con.ConnectionString=sConn con.Open ProjID=Session("ProjID") %> The Modular Advantage: Client Area

Answer Question

Cancel -- ">View All Questions -- Return to Client Page

<% 'Create a recordset object instance and retrieve the information from the table Dim rs, SQL 'Open the main recordset Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.CursorLocation = adUseClient rs.LockType = adLockPessimistic SQL="SELECT * FROM Questions " _ & "WHERE ID=" & Request("ID") rs.Open SQL, con %>
"> ">
Date Posted:
 <%=rs("QuestionDate")%>
Question:
 <%=rs("Question")%>
Date Answered:
 <%=Date()%>
Answer:

Return to top of page

Cancel -- ">View All Questions -- Return to Client Page

<% 'Clean up our ADO objects rs.Close Set rs=Nothing con.Close Set con=Nothing %>