<%ok=false
prepago=false
if not isempty(Request("login")) then
If len(trim(Request("login")))=0 Then
msg="Please, write your user identification."
elseif len(trim(Request("clave")))=0 Then
msg="Please, write your password."
elseif len(trim(Request("newpass")))<6 Then
msg="The new password has to be 6 characters or more."
elseif len(trim(Request("newpass")))>8 Then
msg="The new password is maximum 8 characters"
elseif Request("newpass")<> Request("newpass1") Then
msg="The new password and its verification, are not equal, maybe you have a typo"
Else
'User Valdation
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "cuentas", "DATABASE=emerald;UID=YOUR_SQL_USER;PWD=YOUR_PASSWORD;DSN=YOUR_DSN"
SQLQuery = "Select timeleft from subaccounts where login='" & Request("login") & "' and password='" &_
Request("clave") & "'"
Set RSIntercards = OBJdbConnection.Execute(SQLQuery)
if RSIntercards.eof and RSIntercards.bof then
msg="Your identification was not found, please check your user id and password."
end if
End If
'Error message to the user
if len(msg)> 0 then
response.write " Sorry, we found errors: " & msg
else
'If no message, we can do the transaction.
Set RSIntercards = OBJdbConnection.Execute("update subaccounts set password='" & request("newpass") & "' where login='" & Request("login") & "'",rec)
if rec <> 1 then
Response.write "An error happend when your account was updated, please contact us at 970110 for verification."
else
'Everything OK
OK=true
end if
end if
else
%> Write your identification, old password and the
new one, you can choose any combination of numbers and
letters, remember that lower and uper case are differents
(a45tgb is different of A45Tgb or a45TGB). The minimun
lenght is 6 characters and the maximum is 8.
<%end if
if not ok then%>
<%else
'We show...%>
Your password has been changed
Thanks.
<%end if
%>
Important:
This procedure does not change the email
password, only the telephonic acess password.