I have a WebQuerySave Agent that has stopped working. It was working befre 2/18/03 and then just stopped. I have just upgraded to a new server with ND6 on it and the agent still does not work. Worked fine until 2/18 on R5.0.8 then that stopped.
It is stopping on the first line of code. Here is my entire piece of code where I found out what line it was failing on.
Sub Initialize
Dim Session As New NotesSession
Print {}
Print {
Thank you for your submission.[H1>
}
Print {
You will be notified if you win.
}
Print {}
End Sub
As long as I do not have any other LotusScript statement it works, but then I cannot send e-mails to the required people.
Any help would be appreciated. This is a virtual web server. It has 3 different hosts on it. It is just the WebQueryAgents that have stopped working. Everything else works fine. I am loading the web configurations from the Internet Servers View.
Thanks in advance
Ralph Borcherds
Subject: WebQuerySave Agent stopped working
String delimiter notwithstanding, the following works. I did not change much. You had one typo and did not have “javascript:” in front of the setTimeout.
Sub Initialize
Dim sHTML As String
sHTML = ""
sHTML = sHTML + " <BODY onLoad=""javascript:setTimeout(window.close, 1500)"">"
sHTML = sHTML + " <H1>Thank you for your submission.</H1><br><br>"
sHTML = sHTML + " <hr><br><br>You will be notified if you win.<br><br><br><hr><br><br>"
sHTML = sHTML + " <center><input type=button value=""Close Window"" "
sHTML = sHTML + "onClick=""javascript:window.close();""></center>"
Print sHTML
End Sub
However, I noticed that without the first statement: sHTML = “”, this did not work. Go figure.
Subject: RE: WebQuerySave Agent stopped working
My original code works just fine if I do not use any DIM satements for new notessession etc.
This is the problem. After someone has submited the form an e-mail has to be sent to someone in one of seven offices and the person that submitted the request gets an e-mail acknowledgement with a file attachment.