<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("band_director_information_page_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(7) Dim arFormDBFields0(7) Dim arFormValues0(7) arFormFields0(0) = "Band_Name" arFormDBFields0(0) = "Band_Name" arFormValues0(0) = Request("Band_Name") arFormFields0(1) = "Office_number" arFormDBFields0(1) = "Office_number" arFormValues0(1) = Request("Office_number") arFormFields0(2) = "Home_Number" arFormDBFields0(2) = "Home_Number" arFormValues0(2) = Request("Home_Number") arFormFields0(3) = "Director_Name" arFormDBFields0(3) = "Director_Name" arFormValues0(3) = Request("Director_Name") arFormFields0(4) = "Best_Contact" arFormDBFields0(4) = "Best_Contact" arFormValues0(4) = Request("Best_Contact") arFormFields0(5) = "School_Address" arFormDBFields0(5) = "School_Address" arFormValues0(5) = Request("School_Address") arFormFields0(6) = "Cell_Number" arFormDBFields0(6) = "Cell_Number" arFormValues0(6) = Request("Cell_Number") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "band_director_information_page.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Band Director Information Page

 


Band Director Information Page

Please enter your information as you would like it to appear on a SECURE page for other directors to view in case of emergency cancellations or just to make a phone call. You will be able to edit this information at any time in the future by accessing this page. I am trying new ASP Database technology for use on the new MAC website and want to use an easy database function like a phone list for a test run.
**Scroll Down Under The Form to see your friends results**

Band or Unit Name
Band Director Name
School Address
Office Phone Number
Cell Phone Number  
Home Phone Number
I'm More Likely to be reached on...



<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM Results" fp_sDefault="" fp_sNoRecords="" fp_sDataConn="band_director_information_page" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=True fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&ID=3&Band_Name=202&Director_Name=202&School_Address=202&Office_number=202&Cell_Number=202&Home_Number=202&Best_Contact=202&Remote_computer_name=202&User_name=202&Browser_type=202&Timestamp=135&" fp_iDisplayCols=9 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>
ID Band Name Director Name School Address Office Number Cell Number Home Number Best Contact Timestamp
No records returned.
<%=FP_FieldVal(fp_rs,"ID")%> <%=FP_FieldVal(fp_rs,"Band_Name")%> <%=FP_FieldVal(fp_rs,"Director_Name")%> <%=FP_FieldVal(fp_rs,"School_Address")%> <%=FP_FieldVal(fp_rs,"Office_number")%> <%=FP_FieldVal(fp_rs,"Cell_Number")%> <%=FP_FieldVal(fp_rs,"Home_Number")%> <%=FP_FieldVal(fp_rs,"Best_Contact")%> <%=FP_FieldVal(fp_rs,"Timestamp")%>