Thanks for responding; I do appreciate your assistance.
Here is the code (entire page but it isn't too large). I am still receiving the same error "Variable is undefined: 'CheckPassword' "
<% @language="vbscript" %>
<% option explicit %>
<%
'
'************************************
'Description - Validate and update password.
'Inputs â Username, old password, new password.
'Permanent Test Files - none
'Outputs â none
'Interfaces with other applications or programs - None
'Environments â Windows Server 2003, ASP.Net, VBScript
'
'Change Log:
'Change Date â
'Change Doc # -
'Version 1.1
'Programmer Name â
'Description -
%>
<%
'Declare all variables
Dim strUsername, strPassword, strSysName, strInstance
Dim strAccessKey, strnewPassword, strConfirmPassword, strOldPassword, newPassword
Dim oConn, oRst, mySQL
'If there is an error continue on the next line - comment next line for debugging
'On Error Resume Next
'Get the passed form variables and set other variables
strUsername = Request.Form("Username")
strPassword = Request.Form("Password")
strSysName = Request.Form("strSysName")
strAccessKey = "ScanApp%"
strNewPassword = Request.Form("NewPassword")
strOldPassword = Request.Form("OldPassword")
strConfirmPassword = Request.Form("ConfirmPassword")
%>
<html>
<script>
Function CheckPassword(ByVal newPassword As String) As Boolean
'Set strPassword = to whatever your password field is.
Dim strPassword As String = newPassword.Text
Dim ex As Regex = New
Regex("^(?=.*[\d])(?=\w*[a-z])(?=.*[!@#$&*]).{8,15}")
If ex.Match(strPassword).Success = False Then
Throw New Exception("Please provide a valid password that contains at
least one letter, one number, one of these special characters !@#$&* and
is between 8 and 15 characters.")
End If
End Function
</script>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Password Reset</title>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<%
'verify that new password and reentered new password are same.
'Create the connection object
Set oConn = Server.CreateObject("ADODB.Connection")
'Set the connection string and open the connection
oConn.ConnectionString = "Provider=MSDAORA.1;User ID=" & strUsername & ";Password=" & strPassword & ";Data
Source=" & strInstance
oConn.Open
'Create the recordset using the SQL statement
Set oRst = Server.CreateObject("ADODB.Recordset")
If strNewPassword = strConfirmPassword THEN
'verify that password meets criteria
CheckPassword strNewPassword
'UID Database table SQL Code after making sure a record exists
mySQL = "SELECT count(*) as strCount"
mySQL = mySQL & " FROM test_table"
mySQL = mySQL & " WHERE USERID = '" & strUsername & "'AND"
mySQL = mySQL & " PASSWORD = '" & strOldPassword & "'AND"
mySQL = mySQL & " ROLES like '" & strAccessKey & "' "
'Create the record using the SQL statement
Set oRst = oConn.Execute(mySQL)
If Len(Err.Description) > 0 Then
Err.Description = "Data not valid. Please re-enter."
Set oConn = Nothing
End If
IF (oRst.Fields("strCount").value > "0") THEN
mySQL = "UPDATE test_table"
mySQL = mySQL & " SET Password = '" & strNewPassword & "' "
mySQL = mySQL & " WHERE USERID = '" & strUsername & "'AND"
mySQL = mySQL & " PASSWORD = '" & strOldPassword & "'AND"
mySQL = mySQL & " ROLES like '" & strAccessKey & "' "
'Update the record using the SQL statement
oConn.Execute(mySQL)
If Len(Err.Description) > 0 Then
Err.Description = "Former password error. Please re-enter."
Set oConn = Nothing
ELSE
Err.Description = "Password Reset!"
End If
ELSE
Err.Description = "Data not valid. Please re-enter."
Set oConn = Nothing
END IF
Response.Write "<br>mySQL : " + mySQL
On Error Resume Next
'Close the connection
oConn.Close()
Set oConn = Nothing
ELSE
Err.Description = "New passwords not validated. Please re-enter."
END IF
%>
<table width="100%">
<tr>
<td colspan="2" align="center">
</td>
</tr>
<tr>
<td width="10%" height="100%" bgcolor="#003399" valign="top">
</td>
<td width="90%" align="center">
<form name="myForm" method="POST" action="perform_delete_All.asp">
<%
Response.Write "<p>" & Err.Description & "</p>"
Response.Write "<p><a href=""javascript
:history.back(1)"">Back</a></p>"
%>
<table>
<tr align="center">
<td align="center">
<input type="button" value="Main Menu" name="MainMenu" onClick="main_menu(document
.myForm)"><br>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<tr>
<td colspan="2" align="center" >
</td>
</tr>
</body>
</html>
Array question
