city of hialeah gardens.

<% dim PostBack dim SendEmail dim sFirstName dim sLastName dim sEmail dim sDayPhone1 dim sDayPhone2 dim sDayPhone3 dim sEveningPhone1 dim sEveningPhone2 dim sEveningPhone3 dim sItemFound dim sDateFound1 dim sDateFound2 dim sDateFound3 dim sLocationFound 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") sItemFound = Request("ItemFound") sDateFound1 = Request("DateFound1") sDateFound2 = Request("DateFound2") sDateFound3 = Request("DateFound3") sLocationFound = Request("LocationFound") sDescription = Request("Description") SendEmail = ( (sFirstName <> "") And (sLastName <> "") And (sEmail <> "") And (sItemFound <> "") And (sDateFound1 <> "") And (sDateFound2 <> "") And (sDateFound3 <> "") And (sLocationFound <> "") And (sDescription <> "") ) If SendEmail Then Dim MessageTxt MessageTxt = "The following information has been submitted for a Found 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 Found..............................................: " & sItemFound & vbCrlf MessageTxt = MessageTxt & "Date Item or Pet was Found.....................................: " & sDateFound1 & "/" & sDateFound2 & "/" & sDateFound3 & vbCrlf MessageTxt = MessageTxt & "Location Item or Pet was Found.................................: " & sLocationFound & vbCrlf & vbCrlf MessageTxt = MessageTxt & "Brief Description of Item or Pet Found.........................: " & vbCr & vbCr & sDescription & vbCrlf ' Call SendMail("michael@corporategrafix.com","visitor@cityofhialeahgardens.org","Found and Found Submission",MessageTxt) Call SendMail("deputyclerk@cityofhialeahgardens.org","visitor@cityofhialeahgardens.org","Found 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 Found

<% 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 Found:
* Date Item or Pet was Found:	/ / (mm/dd/yyyy)
* Location Item or Pet was Found:
* Brief Description of Item or Pet Found:

*** items marked with a '' are required fields **