Function GetParameter(doc As notesdocument, key As String) As String
	
	Dim pos1 As Integer, pos2 As Integer
	
	pos1 = Instr(1, doc.PATH_INFO(0), "&"+key+"=")
	If pos1 = 0 Then
		GetParameter = ""
	Else
		pos2 = Instr(pos1+Len(key)+2, doc.PATH_INFO(0)+"&", "&")
		GetParameter = Mid$( doc.PATH_INFO(0), pos1 + Len(key)+2, pos2 - pos1 - Len(key)-2 )
	End If

End Function

Dim session As New NotesSession
Dim db As notesdatabase	
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = session.DocumentContext

Dim variablename As String
variablename = GetParameter( doc , "variablename" )