<%@ Language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // Dimac CMS ' // Copyright 2004-2008 Dimac Development AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// ' ------------------------------------------------------- ' -- Global variables ' ------------------------------------------------------- Dim Conn, Rs, SQL , ResultText ' /////////////////////////////////////////////////////// vEmailComponent = GetSettingValue("EmailComponent", "..\..\..\SiteResources\Data\") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "SELECT * From Members WHERE Email='" & Trim(Request.Form("Email").item) & "' " set Rs = Conn.Execute(SQL) IF RS.eof THEN ResultText = "Account does not exsist !!" Else vToEmail = Trim(Request.Form("Email").item) vYourName = "CMS Team" vToYourEmail = "BounceEmail@yoursite.com" vMessage = "Dear member." & vbCrLf & vbCrLf vMessage = vMessage & "You have asked us to send your password to your accont."& vbCrLf & vbCrLf vMessage = vMessage & "The password is: " & Rs("MemberPassword").value & vbCrLf & vbCrLf vMessage = vMessage & "Best Regards" & vbCrLf vMessage = vMessage & "Ourwebsite Support Team" SELECT CASE LCase( vEmailComponent ) CASE "cdonts" Set mail = Server.CreateObject ("CDONTS.NewMail") mail.BodyFormat = 1 mail.MailFormat = 0 on error resume next mail.Send vToYourEmail, vToEmail, vSubject, vMessage CASE "jmail" set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = True msg.From = vToYourEmail msg.FromName = vYourName msg.AddRecipient vToEmail msg.Subject = vSubject msg.Body = vMessage msg.Send "Localhost" END SELECT ResultText = "Your password has been emailed to you " End if ' /////////////////////////////////////////////////////// ' /////////////////////////////////////////////////////// %> <%= ResultText %>