<%
Option Explicit
Dim conn
Dim RSFooter
Dim RSCategories
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
If not IsEmpty(Request.Form("Submit")) Then
  conn.execute "insert into ASPCustomerWithCategory (EmailAddress, Category) " _
    & "values (" _
    & "'" & Request.Form("EmailAddress") & "', " _
    & "'" & Request.Form("Category") & "')"
  Response.Redirect "./customers.asp"
End If
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'FAQ')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
set RSCategories = conn.execute("select CategoryName from ASPCategories " _
  & "order by CategoryName")
%>
