<% '**************************************************************************************************************** Function IsValidEmail(strEmail) 'funcion para validar el campo email Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 OR Instr(1, strEmail,";") <> 0 OR Instr(1, strEmail,",") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function%>

Alumbrados Almería - servicio municipal de alumbrado público

Almeríacon nueva luz


Bienvenido/a al sitio web del Servicio Municipal de Alumbrado Público

Atención al ciudadano las 24 horas
Puede comunicar incidencias en el alumbrado público de su municipio por teléfono u online aquí mismo

Alumbrados Almería

Comunicar incidencia - formulario online

<%if request.form<>"" then fecha=date() hora=time() tipo=trim(replace(request.form("tipo"),"'","")) descripcion=trim(replace(request.form("descripcion"),"'","")) barrio=trim(replace(request.form("barrio"),"'","")) calle=trim(replace(request.form("calle"),"'","")) nr=trim(replace(request.form("nr"),"'","")) nombre=trim(replace(request.form("nombre"),"'","")) tel=trim(replace(request.form("tel"),"'","")) email=trim(replace(request.form("email"),"'","")) if tipo="" then oops=oops&"Falta el tipo de averia.
" end if if descripcion="" then oops=oops&"Falta la descripción.
" end if if barrio="" then oops=oops&"Falta el barrio.
" end if if calle="" then oops=oops&"Falta la calle.
" end if if nombre="" then oops=oops&"Falta su nombre.
" end if if tel="" AND email="" then oops=oops&"Por favor, indique su telefono o dirección de correo electrónico.
" end if if email<>"" then if not IsValidEmail (email) then oops=oops&"Su dirección de correo electrónico no es correcta.
" end if end if if oops <>"" then %>



Los campos marcados con * son obligatorios. De los campos marcados con ** tiene que rellenar uno.

Se han detectado los siguientes errores:
<%=oops%>

<% else Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "93.93.112.56" Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto. Mail.From = "avisos@alumbradosalmeria.com" Mail.FromName = "avisos" ' Opcional Mail.AddAddress "avisos@alumbradosalmeria.com" Mail.Subject = "Incidencia: "&fecha&" - "&hora&"" Mail.Subject = "aviso" Mail.Body = "" & _ "" & _ "Incidencia: "&fecha&" - "&hora&"" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
" & _ "Incidencia del dia "&fecha&" - "&hora&"

" & _ "Tipo de incidencia: "&tipo&"
" & _ "Descripci�n: "&descripcion&"
" & _ "Barrio: "&barrio&"
" & _ "Calle: "&calle&"
N�mero/s: "&nr&"

" & _ "Nombre: "&nombre&"
" & _ "Tel�fono: "&tel&"
" & _ "Correo electr�nico: "&email&"" & _ "
" & _ "" & _ "" Mail.AltBody="Incidencia del d�a "&fecha&" - "&hora&""& chr(13) & chr(10)& chr(13) & chr(10) & _ "Tipo de incidencia: "&tipo&""& chr(13) & chr(10) & _ "Descripci�n: "&descripcion&""& chr(13) & chr(10) & _ "Barrio: "&barrio&""& chr(13) & chr(10) & _ "Calle: "&calle&""& chr(13) & chr(10) & _ "N�mero/s: "&nr&""& chr(13) & chr(10)& chr(13) & chr(10) & _ "Nombre: "&nombre&""& chr(13) & chr(10) & _ "Tel�fono: "&tel&""& chr(13) & chr(10) & _ "Correo electr�nico: "&email&"" Mail.IsHTML = True On Error Resume Next Mail.Username = "avisos@alumbradosalmeria.com" Mail.Password = "aaavisos" Mail.Send If Err <> 0 Then%>



En este momento no se ha podido enviar el aviso.

Por favor, intételo más tarde o llame al telefono de atención al ciudadano: 900 366 024.

<% else %>



Su aviso se ha enviado correctamente

�Gracias por su colaboración!

<%end If end if Else%>



Los campos marcados con * son obligatorios. De los campos marcados con ** tiene que rellenar uno.

<% End If %>