Hi everybody,
In my webapplication, i am giving the chance to the user to change his password in names.nsf,
for this initially i am trying to check the username and password exists in names db. But My script always showing positive message(ie ur recrod is here).
I am giving the script below pls check and give suggestions.
Sub Initialize
On Error Resume Next
Dim s As New notessession
Dim db As notesdatabase
Set db=s.currentdatabase
Dim db1 As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim doc1 As notesdocument
Dim keys(1 To 2 ) As String
Set db=s.currentdatabase
Set db1=New notesdatabase("10.1.1.92", "epaynames.nsf")
Set doc=s.documentcontext
Set view=db1.getview("People")
keys(1)="Talasila , Gopichand" 'Cstr(doc.ENAME(0))
keys(2)=Cstr(doc.oldpass(0))
Set doc1=view.getdocumentbykey(key,True)
If doc Is Nothing Then
Print "<h1>"+"Please Check Your Old Password"+"</h1>"
Print "<br><h4><a href=http://10.1.1.92/EPaySlip.nsf/Update+Pass?OpenForm>Try Again</a>"
Else
Print "<h1>"+"Ur record is here"+"</h1>"
End If
End Sub
I was hard coded for the username, but password field is not(for the password field i was used @password function), but i am getting the positive message only, if giving error password also.
Once this scripts success, then i can do remaining work, so pls send the suggestions.
Hope soon
Sri