<% '**************************************************************************************************************** Function numerotoletra(result) 'función para pasar un numero del 0 al 10 a su nombre Dim resultletra resultletra="" Select Case result Case 0 resultletra="cero" Case 1 resultletra="uno" Case 2 resultletra="dos" Case 3 resultletra="tres" Case 4 resultletra="cuatro" Case 5 resultletra="cinco" Case 6 resultletra="seis" Case 7 resultletra="siete" Case 8 resultletra="ocho" Case 9 resultletra="nueve" Case else resultletra="diez" End Select numerotoletra = resultletra End Function Function IsValidEmail(strEmail) 'función 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

Enviar sugerencia - formulario online

<%if request.form<>"" then fecha=date() hora=time() comentario=trim(replace(request.form("comentario"),"'","´")) nombre=trim(replace(request.form("nombre"),"'","´")) email=trim(replace(request.form("email"),"'","´")) antibotresult=trim(replace(request.form("antirob"),"'","´")) result=CInt(Session("operando1"))+CInt(Session("operando2")) if antibotresult<>numerotoletra(result) then oops=oops&"la comprobacion de seguridad es incorrecta, vuelva a intentarlo.
" end if if antibotresult="" then oops=oops&"Rellene el campo para demostrar que usted es una persona.
" end if if comentario="" then oops=oops&"Falta su sugerencia.
" end if if nombre="" then oops=oops&"Falta su nombre.
" end if if email ="" then oops=oops&"Falta su correo.
" 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 %>



Ayúdenos a mejorar recomendándonos posibles mejoras que favorezcan a los ciudadanos.



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 = "mail.alumbradosalmeria.com" Mail.Port = 25 Mail.From = "avisos@alumbradosalmeria.com" Mail.AddAddress "avisos@alumbradosalmeria.com" Mail.Subject = "Sugerencia: "&fecha&" - "&hora&"" Mail.Body="" & _ "" & _ "Sugerencia: "&fecha&" - "&hora&"" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
" & _ "Sugerencia del día "&fecha&" - "&hora&"

" & _ "Comentario: "&comentario&"
" & _ "Nombre: "&nombre&"
" & _ "Correo electrónico: "&email&"" & _ "
" & _ "" & _ "" Mail.AltBody="Sugerencia del día "&fecha&" - "&hora&""& chr(13) & chr(10)& chr(13) & chr(10) & _ "Comentario: "&comentario&""& chr(13) & chr(10) & _ "Nombre: "&nombre&""& 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 podidio enviar su comentario.

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

<% else %>



Su comentario se ha enviado correctamente

¡Gracias por su colaboración!

<%end If end if Else%>



Ayúdenos a mejorar recomendándonos posibles mejoras que favorezcan a los ciudadanos.



Los campos marcados con * son obligatorios.

<% End If %>