
<%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 %>