Estado Libre Asociado de Puerto Rico

<% set obj = getobject("script:" & server.mappath("scriptlets\PW_commonutils.wsc")) '---cuando le den al boton de submit if request.serverVariables("REQUEST_METHOD") = "POST" then on error resume next if request.querystring("cmd")="solicitar" then '---busca el password del usuario y se lo envia por email EmailAddress=Request.Form("email") strSQL="spnewspro_SelectSubscriberPasswordByEmail '" & trim(EmailAddress) & "'" set rsTemp = obj.getrs("newsletter", strSQL) If Not rsTemp.EOF Then Password=rsTemp("Password") Else blnError=True strMessage="Lo sentimos, su email no se encuentra registrado en nuestro sistema." response.Redirect("querellas_error.asp?number=0001&description=" & strMessage) response.end End If Set rsTemp=Nothing If Trim(Password)="" Or IsNull(Password)=True Then '---si no tenia password, lo crea en este momento If Trim(Password)="" Then Password=Year(Date()) & Day(Date()) & Month(Date()) & "938" End If strSQL="spnewspro_UpdateSubscriberPassword '" & trim(EmailAddress) & "','" & Password & "'" obj.Exec "newsletter", strSQL End If '---envia el password por email if err then response.Redirect("querellas_error.asp?number=" & err.number & "?description=" & err.description) response.end end if '---envia el email strTempMessage="Su contraseña para acceder al sistema de publicaciones es: " & Password NewsProMessage=strTempMessage NewsProSubject="Contraseña - OCPR" NewsProRecipient=EmailAddress 'OJOJOJO cambiar esto al cgi de OCPR 'NewsProFromEmail=Application("NewsletterPro_AdministratorEmail_" & strSiteID) NewsProFromEmail="newsletter@ocpr.gov.pr" 'TEST DE MAIL SERVER - REMOVER SI ES NECESARIO ******************************** dim MyCDONTSMail Set MyCDONTSMail = Server.CreateObject("Dynu.Email") MyCDONTSMail.Host = "10.0.0.2" MyCDONTSMail.AddAddress EmailAddress MyCDONTSMail.From= NewsProFromEmail MyCDONTSMail.Subject="Password" MyCDONTSMail.Body=strTempMessage MyCDONTSMail.Send() set MyCDONTSMail=nothing 'END TEST MAIL SERVER ************************************************** 'Success= SendMessage(lngSiteID,NewsProFromEmail,NewsProFromEmail,NewsProRecipient, _ ' NewsProRecipient,"TEXT",NewsProSubject,NewsProMessage,False , _ ' "","") if err then response.Redirect("querellas_error.asp?number=" & err.number & "?description=" & err.description) response.end end if response.Redirect("OCPR_newsletter_contrasena.asp?email="& EmailAddress) else '---estan tratando de hacer un login Email=Request.Form("email") Password=Request.Form("password") If Trim(Email)<>"" And Trim(Password)<>"" Then strSQL="spnewspro_SelectLoginInformationForSubscriberWithoutSiteID '" & trim(Email) & "'" strSQL=strSQL & ",'" & trim(Password) & "'" set rsTemp = obj.getrs("newsletter", strSQL) If Not rsTemp.EOF Then SubscriberID=rsTemp("SubscriberID") Session("enewsletterpro_Member_Password")=Trim(Password) Session("enewsletterpro_Member_Email")=Trim(Email) Session("enewsletterpro_Member_SubscriberID")=SubscriberID Session("enewsletterpro_Member_SiteID")=rsTemp("SiteID") strSiteID=rsTemp("SiteID") lngSiteID=Clng(strSiteID) response.Redirect("OCPR_newsletter_edit.asp") response.end Else blnError=True strMessage="Su cuenta no puede ser verificada, por favor intente de nuevo." response.Redirect("querellas_error.asp?number=0002&description=" & strMessage) response.end End If Set rsTemp=Nothing Else strMessage="Su cuenta no puede ser verificada, por favor intente de nuevo." response.Redirect("querellas_error.asp?number=0002&description=" & strMessage) response.end End If end if end if %> Estado Libre Asociado de Puerto Rico - Oficina del Contralor

Escudo de la Oficina del Contralor de Puerto Rico

SISTEMA DE BÚSQUEDA

Inicio

Indice General

Imprimir


La Oficina del Contralor	Informes Publicados	Contraloría Digital	Registro de Contratos	Registro de Puestos

Artículos y Ponencias

Avisos Importantes

Cartas Circulares

Comunicados de Prensa

Conferencias y Mensajes

Curso Funcionarios Electos

Educación y Prevención

Enlaces

Estadísticas Municipales

Estados Financieros

Folletos y Afiches

Formularios

Iniciativas 1997-2010

Orientación Legal

Preguntas Frecuentes

Registro de Privatización

Imagen: Certificación LEY 229

ESTADO LIBRE ASOCIADO DE PUERTO RICO
Oficina del Contralor

Nota: La información que usted provea por este medio no será codificada (encrypted). Dada la naturaleza de la internet, esta información podría ser examinada durante su transmisión por personas ajenas a la Oficinal del Contralor de Puerto Rico.

Esta opción le permitirá editarla información de su suscripción a las publicaciones de la Oficina del Contralor de Puerto Rico. Para su seguridad, hemos definico un esquema de protección por contraseña. Para editar su cuenta, usted necesita usar la forma siguiente para que el sistema le envíe por email una contraseña. Una vez tenga su contraseña, regrese a esta opción e introduzca su email y la contraseña que recibió. Una vez ingrese, podrá hacer cambios en la información de su suscripción.

1) Obtenga su contraseña (use esta opción para que su contraseña sea enviada por email)

2) Ingrese a su cuenta

PO Box 366069, San Juan, Puerto Rico 00936-6069
Avenida Ponce de León 105 Esquina Pepe Díaz
Hato Rey, Puerto Rico 00919
Tel. (787)754-3030/Fax (787)751-6768
E-mail: ocpr.gov.pr
Internet: http://www.ocpr.gov.pr

Contraloría a sus Órdenes
Derechos Reservados © 2003 Estado Libre Asociado de Puerto Rico - Oficina del Contralor
Aviso Legal | Información de Contacto