View Single Post
  #4 (permalink)  
Old November 15th, 2006, 02:06 PM
Posts: n/a

Sure! And thanks for your assistance on this. Please note: the .ascx files reside on my D drive. in other pages, I've tried the full path in the register command but that doesn't work either.

Here's the page code:

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.Caching

<% @Register TagPrefix="UIDUControl" TagName="Header" Src="ScanningAppHeader.ascx" %>
<% @Register TagPrefix="UIDUControl" TagName="Footer" Src="ScanningAppFooter.ascx" %>
<% @Register TagPrefix="UIDUControl" TagName="SAFunctions" Src="ScanningAppFunctions.ascx" %>

<% @Page Inherits="SAFunctions.SAFunct" Src="SAFunct.vb" %>

'Declare all variables

Dim strUsername, strPassword, strInstance
Dim strUIDNo, strSerNo, strPartNo1, strUIDType, strUIDTypeKey
Dim strPartNo, strKeyLen, startSN, strKey, strVKey
Dim oConn, oRst, mySQL, oRstNHA, boolDisplayOnly
Dim strUIDNo1
Dim ErrorEOF, ErrorEOF2
Dim ErrorDBText, ErrorDB

Const strSysName = "ScanApp%"

'If there is an error continue on the next line - comment next line for debugging
'On Error Resume Next

'Get the passed form variables and set other variables
strUsername = Request.Form("Username")
strPassword = Request.Form("Password")
strInstance = "c4sdev"
strKey = Request.Form("UnitKey")
strUIDType = Request.Form("UIDType")
strUIDNo = Request.Form("strUIDNo")


<html xmlns="">

<meta http-equiv="Content-Language" content="en-us"/>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0"/>
<meta name="ProgId" content="FrontPage.Editor.Document"/>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"/>

<title>Delete All Associated Records</title>
<link rel="stylesheet" type="text/css" />

<script type="text/jscript" language="jscript">
function additional_delete(myform) {
    myform.action = "delete_unit_no.asp"


<UIDUControl:SAFunctions id="SAFunctions1" runat="server" ></UIDUControl:SAFunctions>


If UCase(strUIDType) = "SCANAPP" Then
   getMatrixType (strKey, strUIDType, strUIDNo, strSerNo, strUIDTypeKey)
End if

DeleteUIDTree (strUIDNo)

<form name="myForm" method="POST" action="delete_unit_no.aspx">
<table width="100%">
        <td colspan="2" align="center">
        <UIDUControl:Header id="Header1" runat="server"></UIDUControl:Header>
        <td width="10%" height="100%" bgcolor="#003399" valign="top">

        <td width="90%" align="center">
                    <tr align="center">
                        <td align="center">

                                If(Len(Err.Description) > 0) Then
                                    Response.Write ("<p>Error. Please Check Input and Try Again.</p>")
                                    Response.Write ("<p>" & Err.Description & "</p>")
                                    Response.Write ("<p><input type=""Button"" onclick=""javascript:history.go(-1);"" value=""Go Back""></p>")
                                    Response.Write ("<p><b>Record deleted from database!</b></p>")
                                    Response.Write ("<input type=""submit"" value=""Delete Another"" name=""B1"" tabindex=""3"">")
                                End If

                <input type="hidden" value="<%=strUsername%>" name="Username"/>
                <input type="hidden" value="<%=strPassword%>" name="Password"/>
                <input type="hidden" value="<%=strKey%>" name="UnitKey"/>
                <input type="hidden" value="<%=strUIDType%>" name="UIDType"/>

        <td colspan="2" align="center" >
        <UIDUControl:Footer id="Footer1" runat="server" ></UIDUControl:Footer>


Reply With Quote