Membership Request

<%@ LANGUAGE="VBScript" %> <% If Session("Institution_ID") = "" Then Response.Redirect "home.asp" End If Dim strInstitutionID, strSQL, rsFAQ strInstitutionID=Session("Institution_ID") ' Select the generic, live FAQ records for this institution. set rsFAQ = Server.CreateObject("ADODB.RecordSet") strSQL="SELECT * FROM Institution_FAQ " & _ " WHERE institution_ID = " & strInstitutionID & _ " AND FAQ_Type = 'General' ORDER BY display_order" rsFAQ.Open strSQL,strConnectionString,adOpenKeyset, adLockBatchOptimistic %> Membership Request

Membership Request

<% If rsFAQ.RecordCount = 0 then Response.Write("There are no Frequently Asked Questions at this time. Please check back soon.") Else 'Create bulleted list of questions from recordset. Response.Write("

" & rsFAQ("Question") & "" & vbCrLf) rsFAQ.MoveNext LOOP Response.Write("

" & vbCrLf) ' Start back at the top of the recordset so we can ' display the question with it's answer. i = 0 rsFAQ.MoveFirst DO WHILE NOT rsFAQ.EOF i = i + 1 %>

<%= rsFAQ("Question") %>
<%= Replace(rsFAQ("Answer"),vbCrLf, "
") %>
Back to Top

<% rsFAQ.MoveNext LOOP End IF rsFAQ.close %>