<% Dim PHOTO Function UpdateDatabase() Dim sSQL, iRowsAffected UpdateDatabase = false ' INSERT RECORD IN DATABASE sSQL = "SET NOCOUNT ON; INSERT INTO CONTACTS (" _ & "NAME" & "," _ & "TITLE" & "," _ & "COMPANY_NAME" & "," _ & "ADDRESS" & "," _ & "CITY" & "," _ & "STATE" & "," _ & "ZIP" & "," _ & "PHONE" & "," _ & "FAX" & "," _ & "EMAIL" & "," _ & "COMMENTS" & "," _ & "DATE_CREATED) VALUES (" _ & quote(NAME) & "," _ & quote(TITLE) & "," _ & quote(COMPANY_NAME) & "," _ & quote(ADDRESS) & "," _ & quote(CITY) & "," _ & quote(STATE) & "," _ & quote(ZIP) & "," _ & quote(PHONE) & "," _ & quote(FAX) & "," _ & quote(EMAIL) & "," _ & quote(COMMENTS) & "," _ & quote(Now()) _ & " ); SELECT @@IDENTITY AS NEW_ID;SET NOCOUNT OFF;" CONTACT_ID = InsertSQL(sSQL) If DBErrors or IsEmpty(CONTACT_ID) then Exit Function End if call SendContactUs() UpdateDatabase = true End Function %> <% Dim sSQL, rsContacts, CONTACT_ID Dim MODE, PROCESS Dim NAME Dim TITLE Dim COMPANY_NAME Dim ADDRESS Dim CITY Dim STATE Dim ZIP Dim PHONE Dim FAX Dim EMAIL Dim COMMENTS PROCESS = GetValue("PROCESS") if not IsEmpty(PROCESS) then NAME = GetValue("NAME") TITLE = GetValue("TITLE") COMPANY_NAME = GetValue("COMPANY_NAME") ADDRESS = GetValue("ADDRESS") CITY = GetValue("CITY") STATE = GetValue("STATE") ZIP = GetValue("ZIP") PHONE = GetValue("PHONE") FAX = GetValue("FAX") EMAIL = GetValue("EMAIL") COMMENTS = GetValue("COMMENTS") elseif MODE = "ADD" then ' INITIALIZE VARIABLES NAME= "" TITLE= "" COMPANY_NAME= "" ADDRESS= "" CITY= "" STATE= "" ZIP= "" PHONE= "" FAX= "" EMAIL= "" COMMENTS= "" end if if not IsEmpty(PROCESS) then ' CHECK THE ERRORS ANS DISPLAY ON THE SCREEN 'START TRANSACTION DB.BeginTrans() if not UpdateDatabase() then ' ROLLBACK TRANSACTION DB.RollbackTrans() DisplayDBError() else ' COMMIT TRANSACTION 'Dim sMSG, sSubject, SEND_TO 'SEND_TO = getParam("CONTACT_EMAIL") 'sSubject = "Marin Funeral Home - CONTACT US REQUEST" 'sMSG = "Name :" & NAME & vbCrLf _ ' & "Title :" & TITLE & vbCrLf _ ' & "Company Name :" & COMPANY_NAME & vbCrLf _ ' & "Address :" & ADDRESS & vbCrLf _ ' & "City :" & CITY & vbCrLf _ ' & "State :" & STATE & vbCrLf _ ' & "Zip :" & ZIP & vbCrLf _ ' & "Phone :" & PHONE & vbCrLf _ ' & "Fax :" & FAX & vbCrLf _ ' & "Email :" & EMAIL & vbCrLf _ ' & "Comments :" & COMMENTS & vbCrLf 'Call SendSimpleMail("Info@marinfuneralhome.com", "Info@marinfuneralhome.com", SEND_TO, SEND_TO, sSubject, sMSG) DB.CommitTrans() CloseDatabase() Response.Redirect("thankyou.asp?" & PassFilterFieldsURL("")) end if end if call DisplayHeader() %>

<% call PassFilterFieldsForm("") %>
2744 W 51st St Chicago, IL 60632
Phone 773-436-2746

Any field marked with an asterisk (*) is required.
Name *:
Address:
City:
State: <% call DisplayStates("STATE", STATE, false, " ")%>
Zip:
Phone:
Fax:
Email:
Comments:
<% call DisplayFooter() %>