<%
'*************************************************************************
'******* XcAuction Copyright 1999 XCENT www.xcent.com **************
'*************************************************************************
UserName = Request.Form("UserName")
Password = Request.Form("Password")
ConfirmPassword = Request.Form("ConfirmPassword")
NewPassword = Request.Form("NewPassword")
ConfirmNewPassword = Request.Form("ConfirmNewPassword")
sString = ""
If Len(UserName) = 0 Then
sString = sString & "Precisa de introduzir o seu USERNAME.
"
End If
If Len(Password) = 0 Then
sString = sString & "Precisa de introduzir a sua PASSWORD.
"
End If
If Len(ConfirmPassword) = 0 Then
sString = sString & "Precisa de CONFIRMAR A SUA PASSWORD.
"
End If
If Len(NewPassword) = 0 Then
sString = sString & "Precisa de introduzir a sua NOVA PASSWORD.
"
End If
If Len(ConfirmNewPassword) = 0 Then
sString = sString & "Precisa de CONFIRMAR A SUA NOVA PASSWORD.
"
End If
If Len(Trim(sString)) > 0 Then
Response.Cookies("XcClassErrors") = sString
Response.Redirect "changepassword.asp"
Else
Call ComparePassword
End If
Call DoPageFooter
Call CloseDBConn
Sub ComparePassword
Call OpenDBConn
Call DoPageHeader
Response.Write("")
If Password = ConfirmPassword Then
If NewPassword = ConfirmNewPassword Then
Call CheckUser
Else
Response.Write("Desculpe, mas a sua Nova Password e a Confirmação da Nova Password não coincidem.
")
Response.Write("Por favor use o botão ""RETROCEDER"" do seu browser para voltar a tentar.")
End If
Else
Response.Write("Desculpe mas a sua Password e a Confirmação da Password não coincidem.
")
Response.Write("Por favor use o botão ""RETROCEDER"" do seu browser para voltar a tentar.")
End If
End Sub
Sub CheckUser
sSQL = ""
sSQL = sSQL & "SELECT COUNT(*) as Total FROM registration WHERE "
sSQL = sSQL & "username = " & SQLStr(UserName) & " AND password = " & SQLStr(Password)
Set rs = GobjConnect.Execute(sSQL)
If rs.Fields("Total") = 0 THEN
Response.Write("Desculpe mas não é um utilizador registado.
")
Response.Write("Se não está registado, clique aqui para se registar.")
Response.Write("")
Else
changeSQL = ""
changeSQL = changeSQL & "UPDATE registration "
changeSQL = changeSQL & "SET password = " & SQLStr(NewPassword) & " "
changeSQL = changeSQL & "WHERE username = " & SQLStr(UserName) & " AND password = " & SQLStr(password)
GobjConnect.Execute(changeSQL)
Response.Write("A sua Password foi alterada com sucesso.
")
Response.Write("Clique aqui para continuar.
")
End If
rs.Close
Set rs = Nothing
End Sub
%>
%>