<% dim PostBack dim SendEmail dim sFirstName dim sLastName dim sEmail dim sDayPhone1 dim sDayPhone2 dim sDayPhone3 dim sEveningPhone1 dim sEveningPhone2 dim sEveningPhone3 dim sItemLost dim sDateLost1 dim sDateLost2 dim sDateLost3 dim sLocationLost dim sDescription dim objDal PostBack = (Request.Form <> "") If PostBack Then sFirstName = Request("FirstName") sLastName = Request("LastName") sEmail = Request("Email") sDayPhone1 = Request("DayPhone1") sDayPhone2 = Request("DayPhone2") sDayPhone3 = Request("DayPhone3") sEveningPhone1 = Request("EveningPhone1") sEveningPhone2= Request("EveningPhone2") sEveningPhone3 = Request("EveningPhone3") sItemLost = Request("ItemLost") sDateLost1 = Request("DateLost1") sDateLost2 = Request("DateLost2") sDateLost3 = Request("DateLost3") sLocationLost = Request("LocationLost") sDescription = Request("Description") SendEmail = ( (sFirstName <> "") And (sLastName <> "") And (sEmail <> "") And (sItemLost <> "") And (sDateLost1 <> "") And (sDateLost2 <> "") And (sDateLost3 <> "") And (sLocationLost <> "") And (sDescription <> "") ) If SendEmail Then Dim MessageTxt MessageTxt = "The following information has been submitted for a lost Pet or Item" & vbCr & vbCr MessageTxt = MessageTxt & "First Name....................................................: " & sFirstName & vbCrlf MessageTxt = MessageTxt & "Last Name.....................................................: " & sLastName & vbCrlf MessageTxt = MessageTxt & "E-mail........................................................: " & sEmail & vbCrlf MessageTxt = MessageTxt & "Day Phone.....................................................: (" & sDayPhone1 & ")" & sDayPhone2 & "-" & sDayPhone3 & vbCrlf MessageTxt = MessageTxt & "Evening Phone.................................................: (" & sEveningPhone1 & ")" & sEveningPhone2 & "-" & sEveningPhone3 & vbCrlf MessageTxt = MessageTxt & "Item or Pet Lost..............................................: " & sItemLost & vbCrlf MessageTxt = MessageTxt & "Date Item or Pet was Lost.....................................: " & sDateLost1 & "/" & sDateLost2 & "/" & sDateLost3 & vbCrlf MessageTxt = MessageTxt & "Location Item or Pet was Lost.................................: " & sLocationLost & vbCrlf & vbCrlf MessageTxt = MessageTxt & "Brief Description of Item or Pet Lost.........................: " & vbCr & vbCr & sDescription & vbCrlf ' Call SendMail("michael@corporategrafix.com","visitor@cityofhialeahgardens.org","Lost and Found Submission",MessageTxt) Call SendMail("deputyclerk@cityofhialeahgardens.org","visitor@cityofhialeahgardens.org","Lost and Found Submission",MessageTxt) Response.Redirect("thankyou.asp") End If Else End If %> city of hialeah gardens.
  lost & found

   
report a pet or item lost
   
report a pet or item found
   
view list of posts
    


Report a Pet or Item Lost
<% If Not SendEmail Then %> <% End If %>
Please complete all required fields.
* First Name:
* Last Name:
* E-mail Address:
Daytime Phone:  ( ) -  - 
Evening Phone:  ( ) -  - 
* Item or Pet Lost:
* Date Item or Pet was Lost:  /  /  (mm/dd/yyyy)
* Location Item or Pet was Lost:
* Brief Description of Item or Pet Lost:
 
*** items marked with a '*' are required fields ***