<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html;
charset=iso-8859-1">
<TITLE>Tool Box</TITLE>
</HEAD>
<BODY bgcolor="FFFFFF" text="#000000">
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT ID="Include1" WIDTH=151 HEIGHT=24
CLASSID="CLSID:F602E725-A281-11CF-A5B7-0080C73AAC7E">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="3969">
<PARAM NAME="_ExtentY" VALUE="635">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="Source" VALUE="adovbs.inc">
</OBJECT>
-->
<!--#INCLUDE FILE="adovbs.inc"-->
<!--METADATA TYPE="DesignerControl" endspan-->
<% codes = Request("access") +
";" + Request("verify") %>
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT ID="DataCommand1" WIDTH=151 HEIGHT=24
CLASSID="CLSID:7FAEED80-9D58-11CF-8F68-00AA006D27C2">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="3969">
<PARAM NAME="_ExtentY" VALUE="635">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="DataConnection" VALUE="DataConn">
<PARAM NAME="CommandText" VALUE="SELECT NEW_PERSON_ID, NAME, NICK_NAME,
DIGITAL_PAGER, VOICE_PAGER FROM NEW_PERSON WHERE NEW_PERSON_ID = PIECE(AVCODE('"
& codes & "'),'^',1)">
</OBJECT>
-->
<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
DataConn.Open Session("DataConn_ConnectionString"),
Session("DataConn_RuntimeUserName"),
Session("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set DataCommand1 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT NEW_PERSON_ID, NAME, NICK_NAME, DIGITAL_PAGER,
VOICE_PAGER FROM NEW_PERSON WHERE NEW_PERSON_ID = PIECE(AVCODE('" & codes &
"'),'^',1)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
DataCommand1.Open cmdTemp, , 0, 1
%>
<!--METADATA TYPE="DesignerControl" endspan-->
<% On Error Resume Next %>
<% If 0 = DataCommand1("NEW_PERSON_ID") then %>
<h4>Sorry. Not a valid Access or Verify code, or your Verify Code has
expired</h4>
<p>
<a
href="avcode.asp"><b>Return</b></a>
<% Else %>
<% duz = DataCommand1("NEW_PERSON_ID") %>
<h1>Hello <%= DataCommand1("NICK_NAME") %></h1><p>
<h4>You may update your VISTA (DHCP) Digital and Voice Pager
Numbers:</h4><p>
<form action="update.asp?duz=<%=
DataCommand1("NEW_PERSON_ID") %>" method="POST">
<p><strong>Digital Pager:</strong> <input
type="text"
size="20" name="digital" value="<%=
DataCommand1("DIGITAL_PAGER") %>"><strong> (e.g. (nnn) nnn-nnnn
or NONE)</strong></p>
<p><strong>Voice Pager:</strong> <input type="text"
size="20" name="voice" value="<%=
DataCommand1("VOICE_PAGER") %>"><strong> (e.g. nn-nnn or
NONE)</strong></p>
<p><input type="submit" name="B1"
value="Submit"></p>
</form>
<% End If %>
<hr>
<a href="http://152.132.3.120/info/default.htm"><b>Back to
InfoServer</b></a>
</BODY>
</HTML>