Hi! All,
I have register user to our domino directory through web. Actually what I did, I have create a form with fields
First Name
Last Name
Email Address
Password.
when user enter this information i use to register in to names.nsf using lotus script using agent.
my code is
Dim se As New NotesSession
Dim namesdb As NotesDatabase
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim db As NotesDatabase
Set db=se.CurrentDatabase
Set namesdb = New NotesDatabase("", "names.nsf")
Set doc=se.DocumentContext
Dim mainFormDoc As NotesDocument
Set mainFormDoc = New NotesDocument(namesdb)
LName=“”
mailid = doc.emailid(0)
For i = 1 To Len(mailid)
txt = Mid(mailid,i,1)
If txt="@" Then
txt= "_"
End If
If LName="" Then
LName = txt
Else
LName = LName & txt
End If
Next
Call mainFormDoc .ReplaceItemValue("Form","Person")
Call mainFormDoc .ReplaceItemValue("Type","Person")
Call mainFormDoc .ReplaceItemValue("LastName",Trim(LName))
Call mainFormDoc .ReplaceItemValue("Department", "User")
Call mainFormDoc .ReplaceItemValue("FullName",Trim(LName))
Call mainFormDoc .ReplaceItemValue("HTTPPassword",doc.Password(0))
Call mainFormDoc .ReplaceItemValue("InternetAddress",Trim(doc.emailID(0)))
Call mainFormDoc .ReplaceItemValue("mailServer",doc.servers(0))
Call mainFormDoc.ComputeWithForm( False, False )
Call mainFormDoc.Save(True,True)
After register this user i tried to login this to system using
Print “”
Print "location.href = ""http://"&doc.servers(0) & "/Names.nsf?login&username="&Trim(LName)&"&password="+doc.password(0)"""
Print "</SCRIPT>"
Its working fine. As you see i am using LName as user id. Now if i use internet address to login it will not allow me to login to the system. but after some time around 5-15 minutes. I am able to login using internet address too…
how could i resolve this problem…Actually i want to login using internet address immediately after registering.
Please help me. its an urgent…
Thanks in advance
With Regards
Vikas K Sinha