When i use both jscript and VBScript in one afl
Got compilation error
Please help me
Both code are very important
//XXXXXXXXXXXXXXXXXMulti fuction useXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
EnableScript("jscript");
<%
function _Parse( json_string )
{
return JSON.parse( json_string );
}
%>
function ParseJSON( json_string )
{
script = GetScriptObject();
return script._Parse( json_string );
}
//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
JSONObj = ParseJSON( "{ \"firstName\": \"John1\", \"lastName\": \"Smith1\" }" );
Title = "First name is " + JSONObj.firstName + ", Last name is " + JSONObj.lastName;
//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
EnableScript("VBScript");
<%
Public Sub ServiceCall(Method, Url, StrJSON)
Dim WebRequest
set WebRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
on error resume next
WebRequest.SetTimeouts 300, 300, 300, 300
WebRequest.open Method, Url, False
WebRequest.setRequestHeader "Content-Type", "application/json"
WebRequest.setRequestHeader "accept", "application/json"
If Method = "POST" OR Method = "PUT" Then
WebRequest.send strJSON
else
WebRequest.send
End if
responseText = WebRequest.responseText
responseStatus = WebRequest.status
set WebRequest = nothing
End Sub
%>
function SendOrder(Method, Url, StrJSON)
{
vbScriptObject = GetScriptObject();
return vbScriptObject.ServiceCall(Method, Url, StrJSON);
}