<% const maxPhoneNumbers=5 pageURL = request.servervariables("URL") backURL = Request.ServerVariables("HTTP_REFERER") if request("returnURL")<>"" then returnURL = request("returnURL")(1) else returnURL = "review.asp" end if 'Response.Write returnURL 'if returnURL = "" then returnURL = "review.asp" 'Response.write returnURL if Request("contactID")<>"" then contactID = Request("contactID")(1) end if Dim phoneArea(10) Dim phonePre(10) Dim phonePost(10) Dim phoneExt(10) Dim phoneTypeID(10) if contactID<>"" then 'UPDATE %><% sqlstmt="SELECT * FROM contacts LEFT JOIN phoneNumbers " &_ "ON contacts.contactID=phoneNumbers.contactID " &_ "WHERE contacts.contactID=" & contactID 'end if 'Response.Write sqlstmt 'if false then rs.open sqlstmt,conn dateUpdated = request("dateUpdated") if not rs.eof then lastAccessed = rs("dateAccessed") lastAccessedBy = rs("accessedByID") sqlstmt = "update contacts set dateAccessed=CURRENT_TIMESTAMP, accessedByID=" & session("userID") & " where contactID=" & contactID conn.execute(sqlstmt) contactTitle = rs("title") contactFirstName = rs("firstName") contactLastName = rs("lastName") contactOrganization = rs("organization") contactStreet = rs("street") contactSuite = rs("suite") contactCity = rs("city") contactProvince = rs("province") contactPostalCode = rs("postalCode") contactEmail = rs("email") contactNotes = rs("notes") contactPassword = "" ' contactPassword = EnDeCrypt(rs("password"),"puppydog") accessRights = rs("accessRights") if dateUpdated = "" then dateUpdated = cstr(rs("dateUpdated")) end if iPhoneCount = 1 while not rs.eof phoneArea(iPhoneCount) = rs("phoneArea") phonePre(iPhoneCount) = rs("phonePre") phonePost(iPhoneCount) = rs("phonePost") phoneExt(iPhoneCount) = rs("phoneExt") phoneTypeID(iPhoneCount) = rs("phoneTypeID") iPhoneCount = iPhoneCount + 1 rs.movenext wend action="update" else action="create" end if rs.close else contactTitle = Request.Form("contactTitle") contactFirstName = Request.Form("contactFirstName") contactLastName = Request.Form("contactLastName") contactOrganization = Request.Form("contactOrganization") contactStreet = Request.Form("contactStreet") contactSuite = Request.Form("contactSuite") contactCity = Request.Form("contactCity") contactProvince = Request.Form("contactProvince") contactPostalCode = replace(Request.Form("postalCode")," ","") contactEmail = Request.Form("contactEmail") contactNotes = Request.Form("contactNotes") contactPassword = Request.Form("contactPassword") accessRights = Request.Form("accessRights") if accessRights = "" then accessRights="0" for iPhoneCount = 1 to Request.Form("phonePre").Count phoneArea(iPhoneCount) = Request.Form("phoneArea")(iPhoneCount) phonePre(iPhoneCount) = Request.Form("phonePre")(iPhoneCount) phonePost(iPhoneCount) = Request.Form("phonePost")(iPhoneCount) phoneExt(iPhoneCount) = Request.Form("phoneExt")(iPhoneCount) phoneTypeID(iPhoneCount) = Request.Form("phoneTypeID")(iPhoneCount) next action="create" end if %>
<% if session("userID")="" then %> <%end if%> <% if session("access")>0 then%> <% if lastAccessed<>"" and cstr(lastAccessedBy)<>cstr(session("userID")) then%> <%end if%> <%end if%> <% for iPhoneCount=1 to maxPhoneNumbers if phonePre(iPhoneCount)="" then block="none" else block="block" Response.write "" end if if iPhoneCount=1 then block="block" end if %> <% next %> <%if session("accessRights")>0 then%> <%end if%> <%if Session("userID")="" then%> <%end if%> <%if contactID=cInt(session("userID")) or session("accessRights")>1 or session("userID")="" or session("accessRights")=1 and Request.Form("action")="recommend" then%> <%end if%> <%if Session("accessRights")>0 then%> <%end if%> <% if Request.Form("action")="create" then if Request.Form("password")<>"" then if Request.Form("password")(1)=Request.Form("password")(2) then password = Request.Form("password")(1) else error="Passwords do not match" end if end if accessRights = Request.Form("accessRights") if accessRights = "" then accessRights = "0" ' conn.begintrans sqlstmt = "select * from contacts where email='" & Request.Form("email") & "'" rs.open sqlstmt,conn if not rs.eof and Request.Form("email")<>"" then error="Could not insert contact. Already exists in database." elseif error="" then rs.close sqlstmt = "insert into contacts " &_ "(title,firstName,lastName,organization,street,suite,city,province,postalCode,email,dateJoined,dateUpdated,dateAccessed" if Session("userID")<>"" then sqlstmt = sqlstmt & ",accessedByID,accessRights" end if sqlstmt = sqlstmt & ",notes" if password <> "" then sqlstmt = sqlstmt & ",password" end if if Session("userID")<>"" then sqlstmt = sqlstmt & ",parentID" end if sqlstmt = sqlstmt & ") values " &_ "('" & Request.Form("title") & "','" & Request.Form("firstName") & "','" & Request.Form("lastName") & "','" & Request.Form("organization") &_ "','" & Request.Form("street") & "','" & Request.Form("suite") & "','" & Request.Form("city") & "','" & Request.Form("province") & "','" &_ replace(Request.Form("postalCode")," ","") & "','" & Request.Form("email") & "',CURRENT_TIMESTAMP,CURRENT_TIMESTAMP,CURRENT_TIMESTAMP" if Session("userID")<>"" then sqlstmt = sqlstmt & "," & session("userID") & "," & accessRights end if sqlstmt = sqlstmt & ",'" & Request.Form("notes") &"'" if password <> "" then sqlstmt = sqlstmt & ",""" & EnDeCrypt(password,"puppydog") & """" end if if Session("userID")<>"" then sqlstmt = sqlstmt & "," & Session("userID") end if sqlstmt = sqlstmt & ")" conn.execute(sqlstmt) sqlstmt = "select * from contacts where " &_ "title='" & Request.Form("title") & "' and " &_ "firstName='" & Request.Form("firstName") & "' and " &_ "lastName='" & Request.Form("lastName") & "' and " &_ "organization='" & Request.Form("organization") & "' and " &_ "street='" & Request.Form("street") & "' and " &_ "suite='" & Request.Form("suite") & "' and " &_ "city='" & Request.Form("city") & "' and " &_ "province='" & Request.Form("province") & "' and " &_ "postalCode='" & replace(Request.Form("postalCode")," ","") & "' and " &_ "email='" & Request.Form("email") & "'" rs.open sqlstmt,conn if not rs.eof then if Session("userID")="" then Session("userID")=rs("contactID") Session("access")=rs("accessRights")'"getUserAccess" end if if rs("contactID")<>"" then conn.execute "delete from phoneNumbers where contactID=" & rs("contactID") end if i=1 for each phonePre in Request.Form("phonePre") if len(Trim(Request.Form("phonePre")(i)))>0 then ' sqlstmt = "insert into phoneNumbers values (" & rs("contactID") & ",'" & Request.Form("phoneArea")(i) & "','" & Request.Form("phonePre")(i) & "','" & Request.Form("phonePost")(i) & "','" & Request.Form("phoneExt")(i) & "'," & Request.Form("phoneTypeID")(i) & ")" sqlstmt = "insert into phoneNumbers values (" & rs("contactID") & ",'" & Request.Form("phoneArea")(i) & "','" & Request.Form("phonePre")(i) & "','" & Request.Form("phonePost")(i) & "','" & Request.Form("phoneExt")(i) & "'," & Request.Form("phoneTypeID")(i) & ")" conn.execute sqlstmt end if i=i+1 next ' conn.execute "insert into log(category,table,user,contact) values ('insert','phoneNumbers'," & session("userID") & "," & contactID & ")" end if end if ' conn.committrans rs.close if error="" then sqlstmt = "select max(contactID) as lastContactID from contacts" rs.open sqlstmt,conn conn2.execute "insert into log values ('insert','contact'," & session("userID") & "," & rs("lastContactID") & ",NULL)" rs.close end if Response.Redirect returnURL elseif Request.Form("action")="update" then if Request.Form("password")<>"" then if Request.Form("password")(1)=Request.Form("password")(2) then password = Request.Form("password")(1) else error="Passwords do not match" end if end if accessRights = Request.Form("accessRights") if accessRights = "" then accessRights = "0" if Request.Form("email") <> "" then sqlstmt = "select * from contacts where email='" & Request.Form("email") & "' and contactID<>" & contactID 'check if someone with this email already exists else sqlstmt = "select * from contacts where contactID=" & contactID & " and contactID<>" & contactID 'empty recordset end if rs.open sqlstmt,conn if rs.eof then rs.close ' conn.BeginTrans sqlstmt = "select * from contacts" sqlstmt = sqlstmt & " where contactID=" & contactID ' sqlstmt = sqlstmt & " and date_format(dateUpdated, '%c/%e/%Y %l:%i:%s %p')='" & dateUpdated & "'" ' sqlstmt = sqlstmt & " and date_format(dateUpdated, '%m/%d/%y %h:%i:%s %p')='" & dateUpdated & "'" ' sqlstmt = sqlstmt & " and concat(date_format(dateUpdated, '%m/%d/%y %l:%i:%s %p')) like concat('" & dateUpdated & "')" rs.open sqlstmt,conn,3 ' if rs.bof then ' if rs("contactCount") = 0 then if rs.recordcount = 0 then ' rs.close ' sqlstmt = "select date_format(dateUpdated, '%m/%d/%y %l:%i:%s %p') as contactDate from contacts" ' sqlstmt = sqlstmt & " where contactID=" & contactID ' rs.open sqlstmt,conn ' conn.RollbackTrans error = "Record has been modified since it was retrieved. Your changes have not been saved." ' error = error & " - " & dateUpdated ' error = rs("contactDate") & "<>" & dateUpdated ' error = datevalue(dateUpdated) error = server.urlencode(sqlstmt) ' error = rs("contactCount") if instr(returnURL,"?") then error = "&error=" & error else error = "?error=" & error end if Response.Redirect returnURL & error ' Response.Write sqlstmt else sqlstmt = "update contacts set" &_ " title='" & Request.Form("title") & "'," &_ " firstName='" & Request.Form("firstName") & "'," &_ " lastName='" & Request.Form("lastName") & "'," &_ " organization='" & Request.Form("organization") & "'," &_ " street='" & Request.Form("street") & "'," &_ " suite='" & Request.Form("suite") & "'," &_ " city='" & Request.Form("city") & "'," &_ " province='" & Request.Form("province") & "'," &_ " postalCode='" & replace(Request.Form("postalCode")," ","") & "'," &_ " email='" & Request.Form("email") & "'," &_ " dateUpdated=CURRENT_TIMESTAMP," &_ " dateAccessed=CURRENT_TIMESTAMP," &_ " accessedByID=" & session("userID") & "," & _ " accessRights=" & accessRights & "," &_ " notes='" & Request.Form("notes") & "'" if password <> "" and len(password)>=6 then sqlstmt = sqlstmt & ", password=""" & EnDeCrypt(password,"puppydog") & """" end if ' date_format(date_field, '%Y-%m-%d') ' TIME_FORMAT('2021-07-14 11:23:19','%r'); ' TIME_FORMAT('100:00:00', '%H %k %h %I %l') ' sqlstmt = sqlstmt & " and date_sub(contacts.dateUpdated,'" & dateUpdated &"')=0" ' sqlstmt = sqlstmt & " and dateUpdated='" & DatePart("yyyy", dateUpdated) & "-" & DatePart("m", dateUpdated) & "-" & DatePart("d", dateUpdated) & " " & FormatDateTime(dateUpdated, 4) & "'" 'DatePart("yyyy", dateUpdated) & "-" & DatePart("mm", dateUpdated) & "-" & DatePart("dd", dateUpdated) & " " & FormatDateTime(dateUpdated, 3) ' set rs = conn.execute(sqlstmt) sqlstmt = sqlstmt & " where contactID=" & contactID ''' sqlstmt = sqlstmt & " and date_format(dateUpdated, '%c/%e/%Y %l:%i:%s %p')='" & dateUpdated & "'" ' sqlstmt = sqlstmt & " and concat(date_format(dateUpdated, '%m/%d/%y %l:%i:%s %p')) = '" & dateUpdated & "'" conn.execute(sqlstmt) if contactID = "" then contactID = "0" conn2.execute "insert into log values ('update','contact'," & session("userID") & "," & contactID & ",NULL)" ' rs.open ' rs.close ' Response.Write rs.eof 'if rs.state = adStateClosed then ' Response.write "closed" 'end if conn.execute "delete from phoneNumbers where contactID=" & contactID i=1 for each phonePre in Request.Form("phonePre") if len(Trim(Request.Form("phonePre")(i)))>0 then sqlstmt = "insert into phoneNumbers values (" & contactID & ",'" & Request.Form("phoneArea")(i) & "','" & Request.Form("phonePre")(i) & "','" & Request.Form("phonePost")(i) & "','" & Request.Form("phoneExt")(i) & "'," & Request.Form("phoneTypeID")(i) & ")" conn.execute sqlstmt end if i=i+1 next ' conn.execute "insert into log(category,table,user,contact) values ('update','phoneNumbers'," & session("userID") & "," & contactID & ")" ' conn.CommitTrans end if rs.close elseif rs.recordcount>=1 then rs.close error="Email address already exists." else rs.close end if ' Response.Write rs("dateUpdated") & "=" & dateUpdated ' Response.Write rs.bof ' Response.Write sqlstmt ' Response.Redirect returnURL '& "&error=" & rs("dateUpdated") & "=" & dateUpdated Response.Redirect returnURL elseif Request.Form("action")="delete" then if cstr(session("userID")) = cstr(contactID) or session("accessRights")=2 then conn.execute "delete from phoneNumbers where contactID=" & contactID conn.execute "delete from contacts where contactID=" & contactID conn.execute "delete from contactCommitments where contactID=" & contactID conn2.execute "insert into log values ('delete','contact'," & session("userID") & "," & contactID & ",NULL)" ' Session.Abandon ' Response.Redirect "contact.asp" Response.Redirect returnURL else Response.Redirect returnURL end if end if %> <%if Session("userID")="" then%> <%end if%> <% if session("userID")="" then %> <%end if%>

Religious Leaders Petition

Already a member? Sign in to update your information.

Welcome to our database** of religious leaders who support same-sex marriage. The information collected here will be used to generate a Parliamentary petition. After providing your contact information (below), you'll have the opportunity to select additional ways to get involved, depending on your interest and availability.

If you are in a leadership role within a faith community and you support marriage equality, please take a moment to lend us your support. After filling in your information and telling us how you would like to help, a volunteer will contact you to verify your participation in this petition. Thereafter we will keep you informed of regional and national events that may be of interest to you. Thank you for your support of marriage equality for all Canadians.

  • We support Bill C-38, the Civil Marriage Act, which brings Canada's civil marriage law into conformity with the Charter of Rights and Freedoms.
  • Some of us have religious beliefs that support marriage for same-sex couples. Others of us do not. However, we all support the right of same-sex couples to marry in a civil ceremony.
  • We support Freedom of Religion for those institutions who do not want to perform same-sex marriages, while also supporting Freedom of Religion for those institutions that do.

Please contact us for further info

This information was last accessed by another user on <%=lastAccessed%>

<% rs2.open "select now() as currentTime",conn %>

Current Date/Time: <%=rs2("currentTime")%>

<% rs2.close %>

Contact Information:

Please enter the contact information.

Title:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
First Name:*
Surname:*
Congregation (or Faith Community):<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Address:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Suite / Unit:
City:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Province:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Postal Code:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Phone Number <%=iPhoneCount%>:<%if session("userID")="" and iPhoneCount=1 then%>*<%end if%> <% if iPhoneCount=1 then %>     (Add More) <% end if %> ( ) required="required"<%end if%> onkeyup="if(this.value.length>=3) document.getElementById('phonePost<%=iPhoneCount%>').focus()"> - required="required"<%end if%> onkeyup="if(this.value.length>=4) document.getElementById('phoneExt<%=iPhoneCount%>').focus()"> ext.
Type:
Email address:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Notes:

Please enter a password, which will allow you to login and update your information.

Password:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
Re-type Password:<%if session("userID")="" then%>*<%end if%> required="required"<%end if%>>
User Type:
<%if backURL <> "" then%><%end if%>

Already a member? Sign in to update your information.

**This database was developed by equalmarriage.ca, for the Metropolitan Community Church of Toronto, in support of Canadians for Equal Marriage.