// *** Edit Operations: declare variables // set the form action variable MM_editAction = CGI.SCRIPT_NAME; If (CGI.QUERY_STRING NEQ "") { MM_editAction = MM_editAction & "?" & CGI.QUERY_STRING; } // boolean to abort record edit MM_abortEdit = false; // query string to execute MM_editQuery = ""; SELECT Username FROM profiles WHERE Username='#MM_dupKeyUsernameValue#' if (MM_rsKey.RecordCount GT 0) { // the username was found - can not add the requested username MM_qsChar = "?"; if (Find("?",MM_dupKeyRedirect) GT 0) MM_qsChar = "&"; MM_dupKeyRedirect_trigger = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue; } // *** Insert Record: set variables If (IsDefined("MM_insert")) { MM_editDatasource = #MM_connIWRC_DSN#; MM_editUserName = #MM_connIWRC_USERNAME#; MM_editPassword = #MM_connIWRC_PASSWORD#; MM_editTable = "profiles"; MM_editRedirectUrl = "thankyou1.cfm"; MM_fieldsStr = "Username|value|Password|value|Firstname|value|Lastname|value|Org|value|Address1|value|Address2|value|City|value|Prov|value|Country|value|Postal|value|Phone|value|Email|value|Website|value|Specialties|value"; MM_columnsStr = "Username|',none,''|Password|',none,''|Firstname|',none,''|Lastname|',none,''|Org|',none,''|Address1|',none,''|Address2|',none,''|City|',none,''|Prov|',none,''|Country|',none,''|Postal|',none,''|Phone|',none,''|Email|',none,''|Website|',none,''|Specialties|',none,''"; // create the MM_fields and MM_columns arrays MM_fields = ListToArray(MM_fieldsStr,"|"); MM_columns = ListToArray(MM_columnsStr,"|"); // set the form values For (i=1; i+1 LE ArrayLen(MM_fields); i=i+2) { MM_fields[i+1] = IIf(IsDefined(MM_fields[i]),"FORM." & MM_fields[i],DE("")); } // append the query string to the redirect URL If (MM_editRedirectUrl NEQ "" AND CGI.QUERY_STRING NEQ "") { If (Find("?", MM_editRedirectUrl) EQ 0) { MM_editRedirectUrl = MM_editRedirectUrl & "?" & CGI.QUERY_STRING; } Else { MM_editRedirectUrl = MM_editRedirectUrl & "&" & CGI.QUERY_STRING; } } } // *** Insert Record: construct a sql insert statement If (IsDefined("MM_insert")) { // create the insert sql statement MM_tableValues=""; MM_dbValues=""; For (i=1; i+1 LE ArrayLen(MM_fields); i=i+2) { FormVal = MM_fields[i+1]; MM_typesArray = ListToArray(MM_columns[i+1],","); Delim = IIf(MM_typesArray[1] NEQ "none","MM_typesArray[1]",DE("")); AltVal = IIf(MM_typesArray[2] NEQ "none","MM_typesArray[2]",DE("")); EmptyVal = IIf(MM_typesArray[3] NEQ "none","MM_typesArray[3]",DE("")); If (FormVal EQ "") { FormVal = EmptyVal; } Else { If (AltVal NEQ "") { FormVal = AltVal; } Else If (Delim EQ "'") { // escape quotes FormVal = "'" & Replace(FormVal,"'","''","ALL") & "'"; } Else { FormVal = Delim & FormVal & Delim; } } If (i GT 1) { MM_tableValues = MM_tableValues & ","; MM_dbValues = MM_dbValues & ","; } MM_tableValues = MM_tableValues & MM_columns[i]; MM_dbValues = MM_dbValues & FormVal; } MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"; } #PreserveSingleQuotes(MM_editQuery)# Wildlife International - Rehabilitator Profile
Wildlife International Home  |  Emergency  |  Site Help  |  Contact Us
Rehabilitation The Tarsier, one of the Earth's endangered species
Home   Rehabilitation   Profiles

Wildlife Care

Our Profiles database is used to provide contact information only to members of the public who have a wildlife emergency. We would prefer that you include both your phone number and e-mail address. However you must judge whether your circumstances necessitate giving only one. Keep in mind however that an e-mail is not usually considered an "emergency" method of contact.

Although the species information can be useful if a viewer really wants to narrow the range in an area where there are a lot of rehabilitators, it will normally not be used in the search. We operate on the assumption that all rehabilitators will accept calls from anyone with an injured/orphaned animal, and if they cannot accept the animal themselves, they will know who in their area can accept it.

Thank you for agreeing to provide this service.

Please do not press the Enter key when filling out this form. Use the Tab key or your mouse to move between fields.

*Username:
Up to 15 characters
*Password:
Up to 15 characters
Firstname:
Lastname:
Organization:
If none, click here
Street Addr1:
Street Addr2:
City:
Prov/State:
No abbreviations!
Country:
Postal Code:
Phone:
E-mail:
Website:
Specialties: