SimpleASP
From Pickwiki
Jump to navigationJump to search<html><head> <title>My first ASP Test</title></head>
<body>
<h3>Test Submitting a UV Command</h3>
<form action="index.asp" name="Testfrm" method=post>
<input type=text name="uvcommand" value="SORT VOC">
<input type=submit>
</form>
<%
if request.form("uvcommand") <> "" then
Dim Sess, UVCommand, [[TheCommand]], Text
[[TheCommand]] = request.form("uvcommand")
'the below line just there so you know something is happening, you don't need it in your final product
response.write "Command : " & [[TheCommand]] & "<br>"
Set Sess = [[CreateObject]]("[[UniObjects]].[[UniOaifCtrl]]")
'change the four below arguments to whatever you need to connect to Universe at your site
Sess.[[HostName]] = "Machine or IP number"
Sess.[[UserName]] = "your uv username"
Sess.[[AccountPath]] = "the account or account path you want to log into"
Sess.Password = "your uv user password"
' Now connect
Sess.connect
'
if Sess.error then
response.write "<SCRIPT LANGUAGE='[[JavaScript1]].1'>"
response.write "alert('Cannot connect to Database..." & Sess.ERROR & "')"
response.write "</SCRIPT>"
response.write "<h1>[" & Sess.hostname & "] - Database Error</h1>"
else
response.write "UV Session is active...<br>"
' To issue a command
set UVCommand = Sess.Command
UVCommand.Text = [[TheCommand]]
UVCommand.Exec
' Now write the output of the universe command, back to the web page !! (exciting!)
Response.Write UVCommand.Response
end if
end if
%>
</body>
</html>
