<%@ OPTION EXPLICIT%>
<%
sTo="ewan.jacks@irmg.com"
sFrom = "CRMSystem"
sSubject="CRM Error From " & sUserName
sBody = m_strUsername & "Has experienced the following error while using the CRM" & m_strErrorMsg
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send sFrom,sTo,sSubject,sBody
Set myCDONTSMail = Nothing
Dim m_strUserID, m_strPassword, m_intLoginRequest, m_strErrorMsg
IF m_intLoginRequest=1 Then 'This is a request to authenticate and log on
' Get user input from form and
m_strUserID = Trim(Request.Form("Username")
m_strPassword = Trim(Request.Form("Password"))
'check fields are not blank before passing calling and passing to function
IF Len(m_strUserID)<>0 AND Len(m_strPassword)<>0 Then
CheckPassword
ELSE 'Input fields were blank, so set message in error msg variable
m_strErrorMsg ="Please enter your account number and password to log on."
END IF
END IF
%>
ACSG CRM Home Page
ACSG Captives Database
Login
If you forgot your password or require an account please contact ...
<%
Sub CheckPassword
On Error Resume Next
Dim oMember, intPassResult
Set oMember = Server.CreateObject ("CRM.Member")
IF Err.number <> 0 Then
m_strErrorMsg = err.number & err.Description & " Error creating an instance of the Member component. Please try again."
'Notify system administrator via e-mail
'Send the e-mail
sTo="ewan.jacks@irmg.com"
sFrom = "CRMSystem"
sSubject="CRM Error From " & sUserName
sBody = m_strUsername & "Has experienced the following error while using the CRM" & m_strErrorMsg
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send sFrom,sTo,sSubject,sBody
Set myCDONTSMail = Nothing
'code to be completed
Exit Sub
End IF
intPassResult = oMember.CheckPassword(Application("DSN"),m_strUserID, m_strPassword)
IF Err.number <> 0
m_strErrorMsg = err.number & err.Description
End IF
End Sub
%>
