<![CDATA[
<html>
<body><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>
<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'G-4KX380T5BD');
</script>
<!-- END GOOGLE -->
<geoads></geoads>
<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE -->
<center><font size=4>Basic Report ASP Execure UniBasic Program</font>
<%
Server.ScriptTimeout=600
vID = Request.QueryString("id")
Dim objSession
set objSession = Server.CreateObject("Uniobjects.Unioaifctrl")
If objSession Is Nothing Then
Response.Write "Session was not created."
return
End If
objSession.UserName = "username"
objSession.Password = "password"
objSession.AccountPath = "account"
objSession.HostName = "hostname"
objSession.Transport = NETWORK_LANMAN
objSession.Connect
If objSession.IsActive Then
Dim ExecuteProg, vArray, vFieldArray
Set ExecuteProg = objSession.Subroutine("C21.LIST.CCCAPPLY", 2)
ExecuteProg.SetArg 0,vID
ExecuteProg.Call
vArray = split(ExecuteProg.GetArg(1),"|")
'ExecuteProg.GetArg(1) = Engl 101*SP/06|Math 102*SP/05|Biol 250*FA04
'vArray(0) = Engl 101*SP/06
'vArray(1) = Math 102*SP/05
'vArray(2) = Biol 250*FA/04
objSession.Disconnect
vTitle = Session("vName") & " Student ID " & Session("vStuID") & " Record# " & vID
Response.Write "<table border=0>"
Response.Write "<tr><td colspan=2 align='center'><font color='888888'><i>" & vTitle & "</font></i></td></tr>"
Response.Write "<td width='250'><font color='888888'><i>Field</td>"
Response.Write "<td width='250'><font color='888888'><i>Value</td></tr>"
Response.Write "<tr><td colspan=2 size='2'><hr size=2></td></tr>"
for i = 0 to uBound(vArray)
if vArray(0) = "X" then
Response.Write "<br><br>Record Not Found"
else
vFieldArray = split(vArray(i),"*")
'vFieldArray(0) = Engl 101
'vFieldArray(1) = SP/06
Response.Write "<tr><td><font color='888888'><i>" & vFieldArray(0) & "</td>"
Response.Write "<td><font color='888888'><i>" & vFieldArray(1) & "</td></tr>"
end if
next
Else
If objSession.Error <> UVE_NOERROR Then
Response.Write "<br><br>Unable to open connection:- " & objSession.Error
End If
End If
%>
</table>
</body>
<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
<div>
<script>
atOptions = {
'key' : '5046d8ab865606a85a55c357926403c9',
'format' : 'iframe',
'height' : 90,
'width' : 728,
'params' : {}
};
H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
t38193jfrdsswdsq = document.URL;
H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
if (H5jewqpdjh6yfound == -1) {
document.write('<scr' + 'ipt type="text/javascript" src="//violentenclose.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</html>
]]>
