Friends, Whenever i put this Code into Script Library Declaration Session & try to save i get the Following error message
Not a Sub or function name :INITIALIZE
Can any 1 help me in this regard…
%INCLUDE “lsxsd.lss”
Const n0 = “http://www.webserviceX.NET”
Class BibleWebserviceSoap_n0 As PortTypeBase
Sub NEW
Call Service.Initialize("HttpWwwWebserviceXNETBibleWebservice", _
"BibleWebservice.BibleWebserviceSoap", "http://www.webservicex.net/BibleWebservice.asmx", _
"BibleWebserviceSoap_n0")
End Sub
Function GetBibleWordsByChapterAndVerse(BookTitle As XSD_STRING, chapter As Long, _
Verse As Long) As XSD_STRING
Set GetBibleWordsByChapterAndVerse = Service.Invoke("GetBibleWordsByChapterAndVerse", BookTitle, chapter, Verse)
End Function
Function GetBibleWordsbyKeyWord(BibleWords As XSD_STRING) As XSD_STRING
Set GetBibleWordsbyKeyWord = Service.Invoke("GetBibleWordsbyKeyWord", BibleWords)
End Function
Function GetBookTitles() As XSD_STRING
Set GetBookTitles = Service.Invoke("GetBookTitles")
End Function
Function GetBibleWordsByBookTitleAndChapter(BookTitle As XSD_STRING, chapter As Long) As XSD_STRING
Set GetBibleWordsByBookTitleAndChapter = Service.Invoke("GetBibleWordsByBookTitleAndChapter", BookTitle, chapter)
End Function
End Class