<%@ 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>Update Pager Info</TITLE>
</HEAD>
<BODY>
<!--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-->
<% digital = Request("digital") %>
<% voice = Request("voice") %>
<% duz = Request("duz") %>
<!--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="3986">
<PARAM NAME="_ExtentY" VALUE="635">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="DataConnection" VALUE="DataConn">
<PARAM NAME="CommandText" VALUE="ST_PAGER_UPD">
<PARAM NAME="CommandType" VALUE="1">
<PARAM NAME="ParamCount" VALUE="3">
<PARAM NAME="Param0" VALUE="@digital,[digital],12,1,20">
<PARAM NAME="Param1" VALUE="@voice,[voice],12,1,20">
<PARAM NAME="Param2" VALUE="@duz,[duz],12,1,10">
</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 = "ST_PAGER_UPD"
cmdTemp.CommandType = 4
Set cmdTemp.ActiveConnection = DataConn
Set tmpParam = cmdTemp.CreateParameter("@digital", 200, 1, 20, ""
& digital & "")
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@voice", 200, 1, 20, "" &
voice & "")
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@duz", 200, 1, 10, "" &
duz & "")
cmdTemp.Parameters.Append tmpParam
DataCommand1.Open cmdTemp, , 0, 1
%>
<!--METADATA TYPE="DesignerControl" endspan-->
<% if err then
Error_Handler
end if %>
<h2>Updated!</h2>
<% sub Error_Handler
Response.Write "Fileman Update Error:<br><ul>"
Response.Write "<li>" & err.Source & ":" &
err.Description
Response.Write "</ul>"
err.clear
Response.Write "</body></html>"
Response.End
end sub %>
<hr>
<a href="http://152.132.3.120/info/default.htm"><b>Back to
InfoServer</b></a>
</BODY>
</HTML>