Hi
How to open form in web. I am using the following script, but it is not working. Can any one help me.
dbpath=GetDBPath
Print “[/”+dbpath+“/”+“KPEnrollment?OpenForm]”
Function GetDBPath
'check to see if the database is in a directory and swap the slash directions
Dim s As New NotesSession
Dim db As NotesDatabase
Set db=s.CurrentDatabase
Dim tmpPath As String
tmpPath = db.filepath
Do While Instr(tmpPath,"\") > 0
tmpPath = Left$(tmpPath, Instr(tmpPath,"\")-1) + "/" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath,"\"))
Loop
'check and see if there are any embedded spaces and replace them with +
Do While Instr(tmpPath," ") > 0
tmpPath = Left$(tmpPath, Instr(tmpPath," ")-1) + "+" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath," "))
Loop
GetDBPath = tmpPath
End Function