<%@LANGUAGE = VBScript %>
<%
dim eXcelon, sess, result, dom
set eXcelon = CreateObject ("ODI.eXcelon")
set sess = eXcelon.GetSession("",0)
optargs = "username='" & request.form("username") & " pass = " & request.form("pass") & "' fname = '" & request.form("fname") & "' lname = '" & request.form("lname")  & "' lev = '" & request.form("lev")  & """"
set result = sess.run("DB1:Main/add_user",optargs)
response.write "<p>Calling add_user " & result.data
Next
%>