Problem with URL-string in LS

HCL Domino Domino Forum
1

HiI use this when a open URL from a view and it’s work perfect besides when the URL-string is as exemples INTERNET.COM

All info in the URL-string after ? are removed when it´s open?

Any suggestion why?

CODE:

Sub OpenURL (ws As NotesUIWorkspace)

Dim maildb As New NotesDatabase ("","")

Dim Server As String

Dim URL As String



maildb.openmail 

Server = maildb.server

maildb.close



If server = "" Then

	If Msgbox ("No server!" + Chr (10) + Chr (10) + "Choose /'YES/' if you have another Internet connection."_

	, MB_YESNO + MB_ICONEXCLAMATION, "Intranet - News") = IDYES Then

		URL = doc.URLLink (0)

		ws.UrlOpen URL		

	End If

Else	

	URL = doc.URLLink (0)

	ws.UrlOpen URL	

End If

End Sub

Kind regards

David