<%' 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 = 28591
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("feedback_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(25)
	Dim arFormDBFields0(25)
	Dim arFormValues0(25)

	arFormFields0(0) = "wordofmouth"
	arFormDBFields0(0) = "wordofmouth"
	arFormValues0(0) = Request("wordofmouth")
	arFormFields0(1) = "Forgot"
	arFormDBFields0(1) = "Forgot"
	arFormValues0(1) = Request("Forgot")
	arFormFields0(2) = "Street"
	arFormDBFields0(2) = "Street"
	arFormValues0(2) = Request("Street")
	arFormFields0(3) = "ChurchPhoneCall"
	arFormDBFields0(3) = "ChurchPhoneCall"
	arFormValues0(3) = Request("ChurchPhoneCall")
	arFormFields0(4) = "Localphone"
	arFormDBFields0(4) = "Localphone"
	arFormValues0(4) = Request("Localphone")
	arFormFields0(5) = "ResStreet"
	arFormDBFields0(5) = "ResStreet"
	arFormValues0(5) = Request("ResStreet")
	arFormFields0(6) = "webaddressunknown"
	arFormDBFields0(6) = "webaddressunknown"
	arFormValues0(6) = Request("webaddressunknown")
	arFormFields0(7) = "OtherExplanation"
	arFormDBFields0(7) = "OtherExplanation"
	arFormValues0(7) = Request("OtherExplanation")
	arFormFields0(8) = "OtherLiterature"
	arFormDBFields0(8) = "OtherLiterature"
	arFormValues0(8) = Request("OtherLiterature")
	arFormFields0(9) = "Email"
	arFormDBFields0(9) = "Email"
	arFormValues0(9) = Request("Email")
	arFormFields0(10) = "Link"
	arFormDBFields0(10) = "Link"
	arFormValues0(10) = Request("Link")
	arFormFields0(11) = "Bulletin"
	arFormDBFields0(11) = "Bulletin"
	arFormValues0(11) = Request("Bulletin")
	arFormFields0(12) = "City"
	arFormDBFields0(12) = "City"
	arFormValues0(12) = Request("City")
	arFormFields0(13) = "MemberChoices"
	arFormDBFields0(13) = "MemberChoices"
	arFormValues0(13) = Request("MemberChoices")
	arFormFields0(14) = "Informer"
	arFormDBFields0(14) = "Informer"
	arFormValues0(14) = Request("Informer")
	arFormFields0(15) = "FirstName"
	arFormDBFields0(15) = "FirstName"
	arFormValues0(15) = Request("FirstName")
	arFormFields0(16) = "UBCNews"
	arFormDBFields0(16) = "UBCNews"
	arFormValues0(16) = Request("UBCNews")
	arFormFields0(17) = "PastorVisit"
	arFormDBFields0(17) = "PastorVisit"
	arFormValues0(17) = Request("PastorVisit")
	arFormFields0(18) = "Other"
	arFormDBFields0(18) = "Other"
	arFormValues0(18) = Request("Other")
	arFormFields0(19) = "ResCity"
	arFormDBFields0(19) = "ResCity"
	arFormValues0(19) = Request("ResCity")
	arFormFields0(20) = "LastName"
	arFormDBFields0(20) = "LastName"
	arFormValues0(20) = Request("LastName")
	arFormFields0(21) = "Literature"
	arFormDBFields0(21) = "Literature"
	arFormValues0(21) = Request("Literature")
	arFormFields0(22) = "Zipcode"
	arFormDBFields0(22) = "Zipcode"
	arFormValues0(22) = Request("Zipcode")
	arFormFields0(23) = "State"
	arFormDBFields0(23) = "State"
	arFormValues0(23) = Request("State")
	arFormFields0(24) = "Comments"
	arFormDBFields0(24) = "Comments"
	arFormValues0(24) = Request("Comments")

	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=iso-8859-1",_
						"Form Confirmation",_
						"Thank you for submitting the following information:",_
						"feedback.asp",_
						"Return to the form."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Feedback</title>
<meta name="keywords" content="Feedback form">
<meta name="description"
content="Feedback form for University Baptist Church, Fairbanks, Alaska">
<meta name="language" content="en-us">
<meta name="robots" content="NOINDEX, FOLLOW">
<meta name="rating" content="SAFE FOR KIDS">
<meta name="distribution" content="GLOBAL">
<meta name="classification" content="Religion">
<meta name="copyright" content="University Baptist Church">
<meta name="author" content="Aurora WebMasters">
<meta http-equiv="reply-to" content="webmaster@universitybaptistchurch.net">
<meta name="Microsoft Theme" content="aaqua 0111, default">
<meta name="Microsoft Border" content="t">
</head>

<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" background="_themes/aaqua/aqsidebkgrdwht.jpg" bgcolor="#CCFFFF" text="#000000" link="#0000FF" vlink="#0099CC" alink="#CC00CC"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Georgia, Times New Roman, Times">
<!--mstheme--></font><table border="0" cellPadding="10" cellSpacing="10" width="100%">
	<tr>
		<td align="left" height="200" vAlign="top" width="112"><!--mstheme--><font face="Georgia, Times New Roman, Times">
		<img border="0" src="images/logo.gif" width="100" height="100"><br>
		<img align="top" alt="Click to E-Mail University Baptist Church" border="0" src="images/mailbox3.gif" width="94" height="94">
		<br>
		<b><i>
		<script language="JavaScript">eval(unescape('%64%6F%63%75%6D%65%6E%74%2E%77%72%69%74%65%28%27%3C%61%20%68%72%65%66%3D%22%6D%61%69%6C%74%6F%3A%6F%66%66%69%63%65%40%75%6E%69%76%65%72%73%69%74%79%62%61%70%74%69%73%74%63%68%75%72%63%68%2E%6E%65%74%22%3E%45%2D%4D%61%69%6C%20%55%73%21%3C%2F%61%3E%27%29'))</script>
		<a target="_blank" href="images/cntrubc3.jpg">
		<img border="0" src="_borders/cntrubc3tiny.jpg" width="108" height="77"></a></i></b><!--mstheme--></font></td>
		<td height="200" vAlign="top"><!--mstheme--><font face="Georgia, Times New Roman, Times">
		<h1 align="center"><!--mstheme--><font color="#800000"><!--mstheme--><b><b><font color="#009999" face="Times New Roman">
		University Baptist Church</font></b><!--mstheme--></font><!--mstheme--></b></h1>
		<p align="center"><b><i>1197 University Avenue<br>
		Fairbanks, Alaska 99709 (907) 479-2440</i></b></p>
		<p align="center"><strong>[<a href="http://universitybaptistchurch.net/" target="main">Home</a>] 
		[<a href="announcements.htm" target="main">Announcements</a>] [<a href="newsletter-index.htm" target="main">Newsletters</a>] 
		[<a href="schedules.htm" target="main">Schedules</a>] [<a href="toc.htm" target="main">Site 
		Index</a>] <br>
		[<a target="_blank" href="http://www.churchsecretarytoday.com/calendar/admin/auth.php?viewonly=1&username=UBC">Calendar</a>] 
		[<a href="thoughts.htm" target="main">Humor</a>] [<a href="prayer.htm" target="main">Prayer 
		Requests]</a> [<a target="_blank" href="http://www.lifewaystores.com/lwstore/eg_cal.asp">Devotional</a>][<a href="feedback.asp" target="main">Feedback</a>]</strong></p>
		<p align="center">
		<img border="0" src="images/aqdividerlite.gif" width="444" height="13"></p>
		<p align="center">
		<!--webbot bot="HTMLMarkup" startspan -->&nbsp;[an error occurred while processing this directive]Friday, 09-May-2008 10:12:21 MST
		<script language="JavaScript">
<!-- hide --
var now = new Date();
var textout;
var month = now.getMonth();
var date = now.getDate();
var year = now.getFullYear();

if (month==0) textout="January";
if (month==1) textout="Febuary";
if (month==2) textout="March";
if (month==3) textout="April";
if (month==4) textout="May";
if (month==5) textout="June";
if (month==6) textout="July";
if (month==7) textout="August";
if (month==8) textout="September";
if (month==9) textout="October";
if (month==10) textout="November";
if (month==11) textout="December";

textout += " " + date + ", " + year;
document.write ("<font size=3><font color=teal><strong> Welcome, on " + textout + ".</strong></font>");
// -- end hiding -->
                    </script>
		<!--mstheme--></font></td>
	</tr>
</table><!--mstheme--><font face="Georgia, Times New Roman, Times">

<!--mstheme--></font></td></tr><!--msnavigation--></table><!--msnavigation--><table dir="ltr" border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top"><!--mstheme--><font face="Georgia, Times New Roman, Times"><!--mstheme--></font><table border="0" cellpadding="14" cellspacing="14" width="100%">
      <tr>
        <td width="112" valign="top" nowrap><!--mstheme--><font face="Georgia, Times New Roman, Times">&nbsp;<!--mstheme--></font></td>
        <td valign="top"><!--mstheme--><font face="Georgia, Times New Roman, Times">
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.Email.value == "")
  {
    alert("Please enter a value for the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  if (theForm.Email.value.length < 5)
  {
    alert("Please enter at least 5 characters in the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&#402;&#352;&#338;&#381;&#353;&#339;&#382;&#376;ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ0123456789-@";
  var checkStr = theForm.Email.value;
  var allValid = true;
  var validGroups = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Please enter only letter, digit and \"@\" characters in the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&#402;&#352;&#338;&#381;&#353;&#339;&#382;&#376;ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ";
  var checkStr = theForm.FirstName.value;
  var allValid = true;
  var validGroups = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Please enter only letter characters in the \"FirstName\" field.");
    theForm.FirstName.focus();
    return (false);
  }

  if (theForm.LastName.value == "")
  {
    alert("Please enter a value for the \"LastName\" field.");
    theForm.LastName.focus();
    return (false);
  }

  if (theForm.LastName.value.length < 2)
  {
    alert("Please enter at least 2 characters in the \"LastName\" field.");
    theForm.LastName.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&#402;&#352;&#338;&#381;&#353;&#339;&#382;&#376;ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ";
  var checkStr = theForm.LastName.value;
  var allValid = true;
  var validGroups = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Please enter only letter characters in the \"LastName\" field.");
    theForm.LastName.focus();
    return (false);
  }

  var radioSelected = false;
  for (i = 0;  i < theForm.Other.length;  i++)
  {
    if (theForm.Other[i].checked)
        radioSelected = true;
  }
  if (!radioSelected)
  {
    alert("Please select one of the \"Please explain\" options.");
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&#402;&#352;&#338;&#381;&#353;&#339;&#382;&#376;ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ0123456789- \t\r\n\f";
  var checkStr = theForm.Street.value;
  var allValid = true;
  var validGroups = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Please enter only letter, digit and whitespace characters in the \"Street\" field.");
    theForm.Street.focus();
    return (false);
  }

  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz&#402;&#352;&#338;&#381;&#353;&#339;&#382;&#376;ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ \t\r\n\f";
  var checkStr = theForm.City.value;
  var allValid = true;
  var validGroups = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Please enter only letter and whitespace characters in the \"City\" field.");
    theForm.City.focus();
    return (false);
  }

  if (theForm.State.selectedIndex < 0)
  {
    alert("Please select one of the \"State\" options.");
    theForm.State.focus();
    return (false);
  }

  if (theForm.Zipcode.value == "")
  {
    alert("Please enter a value for the \"Zipcode\" field.");
    theForm.Zipcode.focus();
    return (false);
  }

  if (theForm.Zipcode.value.length < 5)
  {
    alert("Please enter at least 5 characters in the \"Zipcode\" field.");
    theForm.Zipcode.focus();
    return (false);
  }

  var checkOK = "0123456789-";
  var checkStr = theForm.Zipcode.value;
  var allValid = true;
  var validGroups = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("Please enter only digit characters in the \"Zipcode\" field.");
    theForm.Zipcode.focus();
    return (false);
  }

  if (theForm.Localphone.value == "")
  {
    alert("Please enter a value for the \"Localphone\" field.");
    theForm.Localphone.focus();
    return (false);
  }

  if (theForm.Localphone.value.length < 7)
  {
    alert("Please enter at least 7 characters in the \"Localphone\" field.");
    theForm.Localphone.focus();
    return (false);
  }

  var checkOK = "0123456789- ";
  var checkStr = theForm.Localphone.value;
  var allValid = true;
  var validGroups = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch != " ")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("Please enter only digit characters in the \"Localphone\" field.");
    theForm.Localphone.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" name="FrontPage_Form1" action="feedback.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" webbot-action="--WEBBOT-SELF--" target="main">
			<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="feedback" S-RecordSource="Results" U-Database-URL="fpdb/feedback.mdb" S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Remote_computer_name Browser_type Timestamp User_name" S-Form-Fields="wordofmouth Forgot Street ChurchPhoneCall Localphone ResStreet webaddressunknown OtherExplanation OtherLiterature Email Link Bulletin City MemberChoices Informer FirstName UBCNews PastorVisit Other ResCity LastName Literature Zipcode State Comments" S-Form-DBFields="wordofmouth Forgot Street ChurchPhoneCall Localphone ResStreet webaddressunknown OtherExplanation OtherLiterature Email Link Bulletin City MemberChoices Informer FirstName UBCNews PastorVisit Other ResCity LastName Literature Zipcode State Comments" U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><%
Function FP_SaveFormFields(rs, rgFormFields, rgDBFields)
	On Error Resume Next
	Err.Clear

	Dim i
	For i = 0 To UBound(rgFormFields)
		FP_SaveFormField rs, rgFormFields(i), rgDBFields(i)
	Next 
	Err.Clear
End Function

Function FP_SaveFormField(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear

	If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then
		Exit Function
	End If

	FP_SaveFieldToDB rs, Request.Form(strField), strDBField	
	Err.Clear
End Function

Function FP_SaveFieldToDB(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear
	Dim fp_Debug
	fp_Debug = False

	Select Case rs(strDBField).Type
		Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or  adUnsignedInt Or adUnsignedBigInt
			rs(strDBField) = CInt(strField)
		Case adSingle Or adDecimal Or adNumeric 
			rs(strDBField) = CSng(strField)
		Case adDouble
			rs(strDBField) = CDbl(strField)
		Case adCurrency
			rs(strDBField) = CCur(strField)
		Case adBoolean
			rs(strDBField) = CBool(strField)
		Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
			rs(strDBField) = CDate(strField)
		Case Else
			rs(strDBField) = CStr(strField)
	End Select

	If fp_Debug Then
		strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"
	Else
		strError = "Cannot save value to database field"
	End If

	FP_DumpError strErrorUrl, strError 
	Err.Clear
End Function

Function FP_EncodeOutput(str)
	FP_EncodeOutput = str
	FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^")
	FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput)
	FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&")
End Function

Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For Each item in Request.Form 
		If item <> "VTI-GROUP" Then
			Response.Write "<b>" & item & "</b>" & ": " & FP_EncodeOutput(Request.Form(item)) & "<BR>" & vbCrLf
		End If
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For j = 0 To UBound(rgDBFields) - 1
		Response.Write "<b>" & rgDBFields(j) & "</b>" & ": " & FP_EncodeOutput(rgDBValues(j)) & "<BR>" & vbCrLf
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_DumpError(strErrorUrl, strMsg)
	On Error Resume Next
	Dim fp_Debug
	fp_Debug = False
	If Err.Number <> 0 Then
		fp_conn.Close
		Session.CodePage = Session("FP_OldCodePage")
		Session.LCID = Session("FP_OldLCID")
		If strErrorUrl <> "" Then
			Response.Redirect strErrorUrl
		Else
			Response.Write "<b> " & Server.HTMLEncode(strMsg) & "</b><p>"
			if fp_Debug Then
				Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "<p>"
				Response.Write "Error Number: " & Server.HTMLEncode(Err.Number)  & "<p>"
				Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "<p>"
			End If
			Response.End
		End If
	End if
End Function
%>
<!--webbot bot="SaveDatabase" i-checksum="40548" endspan -->
			<h1><!--mstheme--><font color="#800000"><!--mstheme--><b>Feedback Form for UBC<!--mstheme--></font><!--mstheme--></b></h1>
			<h2><!--mstheme--><font color="#009999"><!--mstheme--><b>Please tell us what you think about our church, ministries, 
			services, or web site.<!--mstheme--></font><!--mstheme--></b></h2>
			<p>How can we help you? If you provide us with your contact 
			information, we will be able to reach you in case we have any 
			questions. For prayer requests, send us an email - do not use this 
			form.</p>
			<h2><!--mstheme--><font color="#009999"><!--mstheme--><b>Thank you for visiting our site; your comments are appreciated!<!--mstheme--></font><!--mstheme--></b></h2>
			<h3 align="center"><!--mstheme--><font color="#9933FF"><!--mstheme--><b>Please complete as much of this form as you wish.
			<br>
			Click on Submit when ready to send.<!--mstheme--></font><!--mstheme--></b></h3>
			<p>Email address (required)&nbsp;
			<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" S-Allow-Other-Chars="@" B-Value-Required="TRUE" I-Minimum-Length="5" -->
			<input type="text" name="Email" size="40"></p>
			<p>First Name (required)
			<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" -->
			<input type="text" name="FirstName" size="40"></p>
			<p>Last Name (required)
			<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" B-Value-Required="TRUE" I-Minimum-Length="2" -->
			<input type="text" name="LastName" size="40"></p>
			<!--msthemeseparator--><p align="center"><img src="_themes/aaqua/aqdivshdw.gif" width="444" height="13" alt="horizontal rule"></p>
			<h3><!--mstheme--><font color="#9933FF"><!--mstheme--><b><b>How did you get our web site address?</b><!--mstheme--></font><!--mstheme--></b></h3>
			<p><input type="radio" value="V1" checked name="webaddressunknown">Choose 
			one or leave as is:</p>
			<p><input type="radio" name="Link" value="V2">I followed a link.</p>
			<p><input type="radio" name="Bulletin" value="V3">I saw it in the 
			church bulletin.</p>
			<p><input type="radio" name="wordofmouth" value="V4">Someone told me 
			about it.</p>
			<p><input type="radio" name="Literature" value="V5">I read about it 
			in some other church literature.</p>
			<p><input type="radio" name="Forgot" value="V6">I cannot remember.</p>
			<p>
			<!--webbot bot="Validation" S-Display-Name="Please explain" B-Value-Required="TRUE" -->
			<input type="radio" name="Other" value="V7">Other? Please explain:
			<input type="text" name="OtherExplanation" size="60"></p>
			<!--msthemeseparator--><p align="center"><img src="_themes/aaqua/aqdivshdw.gif" width="444" height="13" alt="horizontal rule"></p>
			<h3><!--mstheme--><font color="#9933FF"><!--mstheme--><b><b>Do you want to receive publications or emails from UBC?</b><!--mstheme--></font><!--mstheme--></b></h3>
			<p><input type="checkbox" name="Informer" value="ON">Please add me 
			to your mailing list for the monthly church newsletter, the <i>UBC 
			Informer</i>. I have checked this box and given my mailing address 
			below.</p>
			<p><input type="checkbox" name="OtherLiterature" value="ON">I would 
			like to be mailed other literature, so I have checked here and 
			entered my mailing address below, indicating what in particular I 
			would like.</p>
			<p>Mailing Address (required if you checked either of the boxes 
			above.)</p>
			<p>Street:
			<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Allow-WhiteSpace="TRUE" -->
			<input type="text" name="Street" size="60"><br>
			City:
			<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-WhiteSpace="TRUE" -->
			<input type="text" name="City" size="40"> State:
			<!--webbot bot="Validation" B-Value-Required="TRUE" -->
			<select size="1" name="State">
			<option selected>Alaska</option>
			<option>Non-Alaskan</option>
			</select> Zip:
			<!--webbot bot="Validation" S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE" I-Minimum-Length="5" -->
			<input type="text" name="Zipcode" size="20"></p>
			<p><input type="checkbox" name="UBCNews" value="ON">Please add me to 
			your weekly email newsletter, UBCNews.&nbsp; </p>
			<!--msthemeseparator--><p align="center"><img src="_themes/aaqua/aqdivshdw.gif" width="444" height="13" alt="horizontal rule"></p>
			<h3><!--mstheme--><font color="#9933FF"><!--mstheme--><b>For those who live in or near Fairbanks, Alaska:<!--mstheme--></font><!--mstheme--></b></h3>
			<p><input type="checkbox" name="PastorVisit" value="ON">I would like 
			the pastor to visit me, so I have checked here and filled in my 
			physical address below. I have also put my telephone number so he 
			can call ahead.</p>
			<p><input type="checkbox" name="ChurchPhoneCall" value="ON">I would 
			like someone from the church to phone me, so I have checked here and 
			put my phone number below.</p>
			<p>Physical Address: (required if you checked either of the boxes 
			above.) </p>
			<p>Street: <input type="text" name="ResStreet" size="40"><br>
			City:&nbsp;&nbsp;&nbsp;&nbsp;
			<input type="text" name="ResCity" size="20"></p>
			<p>Telephone: (required if you checked either of the boxes above.)&nbsp;
			<!--webbot bot="Validation" S-Data-Type="Integer" S-Number-Separators=" " B-Value-Required="TRUE" I-Minimum-Length="7" -->
			<input type="text" name="Localphone" size="20"></p>
			<!--msthemeseparator--><p align="center"><img src="_themes/aaqua/aqdivshdw.gif" width="444" height="13" alt="horizontal rule"></p>
			<h3><!--mstheme--><font color="#9933FF"><!--mstheme--><b>I am a member of UBC and would like to:<!--mstheme--></font><!--mstheme--></b></h3>
			<p><select size="1" name="MemberChoices" multiple>
			<option selected>Choose or leave set on this - use CRL key to choose more than one.
			</option>
			<option>Help in Vacation Bible School</option>
			<option>Sing in the Adult choir</option>
			<option>Play an instrument</option>
			<option>Volunteer to help in the office</option>
			<option>Be on the newsletter folding team</option>
			<option>Teach Sunday School</option>
			<option>Help in the nursery.</option>
			<option>Lead a Mission group for children</option>
			<option>Work in the AV booth</option>
			</select></p>
			<!--msthemeseparator--><p align="center"><img src="_themes/aaqua/aqdivshdw.gif" width="444" height="13" alt="horizontal rule"></p>
			<h3><!--mstheme--><font color="#9933FF"><!--mstheme--><b>Any other comments?<!--mstheme--></font><!--mstheme--></b></h3>
			<p><textarea rows="6" name="Comments" cols="40"></textarea></p>
			<p><input type="submit" value="Submit" name="Submit"><input type="reset" value="Reset" name="Reset"></p>
		</form>
		<p>&nbsp;<!--mstheme--></font></td>
      </tr>
    </table><!--mstheme--><font face="Georgia, Times New Roman, Times">&nbsp;

<!-- www.hitslink.com/ web tools statistics hit counter code -->
<script type="text/javascript" id="wa_u"></script>
<script type="text/javascript">//<![CDATA[
wa_account="universitybaptis"; wa_location=3;
wa_pageName=location.pathname;  // you can customize the page name here
document.cookie='__support_check=1';wa_hp='http';
wa_rf=document.referrer;wa_sr=window.location.search;
wa_tz=new Date();if(location.href.substr(0,6).toLowerCase()=='https:')
wa_hp='https';wa_data='&an='+escape(navigator.appName)+ 
'&sr='+escape(wa_sr)+'&ck='+document.cookie.length+
'&rf='+escape(wa_rf)+'&sl='+escape(navigator.systemLanguage)+
'&av='+escape(navigator.appVersion)+'&l='+escape(navigator.language)+
'&pf='+escape(navigator.platform)+'&pg='+escape(wa_pageName);
wa_data=wa_data+'&cd='+
screen.colorDepth+'&rs='+escape(screen.width+ ' x '+screen.height)+
'&tz='+wa_tz.getTimezoneOffset()+'&je='+ navigator.javaEnabled();
wa_img=new Image();wa_img.src=wa_hp+'://counter.hitslink.com/statistics.asp'+
'?v=1&s='+wa_location+'&acct='+wa_account+wa_data+'&tks='+wa_tz.getTime();
document.getElementById('wa_u').src=wa_hp+'://counter.hitslink.com/track.js'; //]]>
</script>
<!-- End www.hitslink.com/ statistics web tools hit counter code -->

<!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table></body>
</html>