<% ' 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 = 65001 Err.Clear strErrorUrl = "GBSorry.htm" 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("Obits_SQL_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "GuestBook", 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(3) Dim arFormDBFields0(3) Dim arFormValues0(3) arFormFields0(0) = "GBFrom" arFormDBFields0(0) = "GBFrom" arFormValues0(0) = Request("GBFrom") arFormFields0(1) = "GBObitKey" arFormDBFields0(1) = "GBObitKey" arFormValues0(1) = Request("GBObitKey") arFormFields0(2) = "GBMessage" arFormDBFields0(2) = "GBMessage" arFormValues0(2) = Request("GBMessage") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 FP_SaveFieldToDB fp_rs, Now, "GBDate" fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "GBConfirm.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Funeral Alternatives of Washington | Planning & Services
<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM Obit WHERE (ObitKey = ::ObitKey::)" fp_sDefault="ObitKey=" fp_sNoRecords="No records returned." fp_sDataConn="Obits_SQL" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="ObitKey" fp_sMenuValue="ObitKey" fp_sColTypes="&ObitKey=3&Title=202&First=202&Last=202&DateDeath=135&DateInterred=135&DateBirth=135&ServiceInfo=203&IntermentLocation=202&VisitationInfo=203&Guest-Book=11&PhotoFileName=202&Obiturary=203&" fp_iDisplayCols=4 fp_fCustomQuery=False BOTID=1 fp_iRegion=BOTID %>

<%=FP_FieldVal(fp_rs,"Title")%>  <%=FP_FieldVal(fp_rs,"First")%>  <%=FP_FieldVal(fp_rs,"Last")%>


To add your personal message please fill in the boxes below and
click the Submit Button below to save it.
From: [3 Character Min - 50 character max] (Required Field)
Your Message: [5 Character min] (Required Field)

Clicking Reset will clear the From: and Message: box.
Messages will be posted online after verification by our staff.

<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM GuestBook WHERE (GBObitKey = ::GBObitKey:: AND GBView = 1) ORDER BY GBDate DESC" fp_sDefault="GBObitKey=" fp_sNoRecords="No Entries Found." fp_sDataConn="Obits_SQL" fp_iMaxRecords=0 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="GBFrom" fp_sMenuValue="GBFrom" fp_sColTypes="&GBKey=3&GBObitKey=3&GBFrom=202&GBMessage=203&GBDate=135&GBIP=202&GBView=11&" fp_iDisplayCols=5 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>

Date: <%=FP_FieldVal(fp_rs,"GBDate")%>
From: <%=FP_FieldVal(fp_rs,"GBFrom")%>
Message: <%=FP_FieldVal(fp_rs,"GBMessage")%>