I guess this one stumps even the best ....................... If I figure it
out I will let ya know. Havent ran into this before. 

-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of Mike Belcher
Sent: Monday, May 23, 2005 8:30 PM
To: [email protected]
Subject: RE: [AspNetAnyQuestionIsOk] STRANGE ISSUE
Importance: High

There is all the code. BUT>>>>>>>>>>>>>>>>>>>. I can run this exact same
page on another server and no PROMPT! And it is just this one page not any
other pages on the entire application. It seems to only happen when I
display  <asp:Panel id="PanelAddLogin" runat="server"> this panel...... and
it only happens on this machine and not another server that we have. I think
it might have to do with frontpage extensions or something.

machine that it gives prompt on is windows 2003

the other one that has no problems is windows 2000


I have been on google but there isn't anywhere that explains this issue. It
is some type of strange permissions as that is why a prompt appears. 










<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="AddLogin2.aspx.vb" Inherits="Collections.AddLogin2"%>
<%@ Register TagPrefix="COLLECTIONS" TagName="Footer" src="footer.ascx" %>
<%@ Register TagPrefix="COLLECTIONS" TagName="Menu" src="menu.ascx" %>
<%@ Register TagPrefix="COLLECTIONS" TagName="NoAccess" src="NoAccess.ascx"
%>
<%@ Register TagPrefix="COLLECTIONS" TagName="Complete" src="Complete.ascx"
%>
<HTML>
        <HEAD>
                <meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
                <meta http-equiv="imagetoolbar" content="no">
                <META HTTP-EQUIV="Pragma" CONTENT="no-cache">
                <asp:PlaceHolder id="titlePlaceHolder" runat="server" />
                <style fprolloverstyle>A:hover { COLOR: #6699ff }
        </style>
        </HEAD>
        <body link="#000080" vlink="#000080" alink="#000080"
bgcolor="#ffffff">
                <div align="center">
                        <TABLE style="BORDER-COLLAPSE: collapse"
borderColor="#111111" cellSpacing="0" cellPadding="0"
                                width="784" border="0" id="table3">
                                <TBODY>
                                        <TR>
                                                <TD width="100%"
bgcolor="#ffffff">
                                                        <COLLECTIONS:Menu
id="CollectionsMenu" runat="server"></COLLECTIONS:Menu>
                                                </TD>
                                        </TR>
                                        <TR>
                                                <TD width="100%"
bgColor="#ffffff">
                                                        <asp:Literal
id="LiteralLoginStatus" runat="server"></asp:Literal></TD>
                                        </TR>
                                        <TR>
                                                <TD width="100%">
                                                        <asp:Panel
id="PanelAddLogin" runat="server">
                                                                <TABLE
id="table12" cellSpacing="6" cellPadding="0" width="570" border="0">
                                                                        <TR>
        
<TD align="right" width="552" colSpan="2">
        
<P align="left">&nbsp;&nbsp;&nbsp;
        
</P>
        
</TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="552" colSpan="2">
        
<P align="left"><FONT face="Verdana" size="4"><B>Administrator Control Panel
- <FONT color="#000080">
        
ADD LOGIN</FONT></B></FONT></P>
        
</TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132">&nbsp;</TD>
        
<TD width="420">&nbsp;&nbsp;&nbsp;
        
</TD>
        
</TR>
                                                                        <TR>
        
<TD width="420" colSpan="2"><FONT face="Verdana">
        
<asp:Label id="LabelStatus" runat="server">Please fill out this form
completely.</asp:Label></FONT></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132">&nbsp;</TD>
        
<TD width="420">&nbsp;&nbsp;
        
</TD>
        
</TR>
                                                                        <TR>
        
<FORM id="AddLogin0" runat="server">
        
<TD align="right" width="132"><FONT face="Verdana"
color="#000080">LoginID</FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="LoginID" runat="server" MaxLength="20"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorLoginID" runat="server"
ControlToValidate="LoginID" ErrorMessage="Missing
LoginID"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132" height="25"><FONT face="Verdana"
color="#000080">Password</FONT></TD>
        
<TD width="420" height="25">
        
<asp:TextBox id="Password" runat="server"
MaxLength="20"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorPassword" runat="server"
ControlToValidate="Password" ErrorMessage="Missing
Password"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana"
color="#000080">UserType</FONT></TD>
        
<TD width="420">
        
<asp:DropDownList id="UserType" runat="server">
        
<asp:ListItem Value="Client" Selected="True">Client</asp:ListItem>
        
<asp:ListItem Value="Attorney">Attorney</asp:ListItem>
        
<asp:ListItem Value="Debtor">Debtor</asp:ListItem>
        
<asp:ListItem Value="Administrator">Administrator</asp:ListItem>
        
</asp:DropDownList></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132">&nbsp;</TD>
        
<TD width="420">&nbsp;</TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Name</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientName" runat="server" MaxLength="100"
Width="265px"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientName" runat="server"
ControlToValidate="ClientName" ErrorMessage="Missing
Name"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Street Address</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientStreetAddress" runat="server" MaxLength="150"
Width="265px"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientStreetAddress" runat="server"
ControlToValidate="ClientStreetAddress"
        
ErrorMessage="Missing Street Address"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">City</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientCity" runat="server" MaxLength="50"
Width="265px"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientCity" runat="server"
ControlToValidate="ClientCity" ErrorMessage="Missing
City"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">State</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:dropdownlist id="ClientState" runat="server">
        
<asp:ListItem Value="Alabama">Alabama</asp:ListItem>
        
<asp:ListItem Value="Alaska">Alaska</asp:ListItem>
        
<asp:ListItem Value="Arizona">Arizona</asp:ListItem>
        
<asp:ListItem Value="Arkansas">Arkansas</asp:ListItem>
        
<asp:ListItem Value="California">California</asp:ListItem>
        
<asp:ListItem Value="Colorado">Colorado</asp:ListItem>
        
<asp:ListItem Value="Connecticut">Connecticut</asp:ListItem>
        
<asp:ListItem Value="Delaware">Delaware</asp:ListItem>
        
<asp:ListItem Value="District of Columbia">District of
Columbia</asp:ListItem>
        
<asp:ListItem Value="Florida">Florida</asp:ListItem>
        
<asp:ListItem Value="Georgia">Georgia</asp:ListItem>
        
<asp:ListItem Value="Hawaii">Hawaii</asp:ListItem>
        
<asp:ListItem Value="Idaho">Idaho</asp:ListItem>
        
<asp:ListItem Value="Illinois">Illinois</asp:ListItem>
        
<asp:ListItem Value="Indiana">Indiana</asp:ListItem>
        
<asp:ListItem Value="Iowa">Iowa</asp:ListItem>
        
<asp:ListItem Value="Kansas">Kansas</asp:ListItem>
        
<asp:ListItem Value="Kentucky">Kentucky</asp:ListItem>
        
<asp:ListItem Value="Louisiana">Louisiana</asp:ListItem>
        
<asp:ListItem Value="Maine">Maine</asp:ListItem>
        
<asp:ListItem Value="Maryland">Maryland</asp:ListItem>
        
<asp:ListItem Value="Massachusetts">Massachusetts</asp:ListItem>
        
<asp:ListItem Value="Michigan">Michigan</asp:ListItem>
        
<asp:ListItem Value="Minnesota">Minnesota</asp:ListItem>
        
<asp:ListItem Value="Mississippi">Mississippi</asp:ListItem>
        
<asp:ListItem Value="Missouri">Missouri</asp:ListItem>
        
<asp:ListItem Value="Montana">Montana</asp:ListItem>
        
<asp:ListItem Value="Nebraska">Nebraska</asp:ListItem>
        
<asp:ListItem Value="Nevada">Nevada</asp:ListItem>
        
<asp:ListItem Value="New Hampshire">New Hampshire</asp:ListItem>
        
<asp:ListItem Value="New Jersey">New Jersey</asp:ListItem>
        
<asp:ListItem Value="New Mexico">New Mexico</asp:ListItem>
        
<asp:ListItem Value="New York">New York</asp:ListItem>
        
<asp:ListItem Value="North Carolina">North Carolina</asp:ListItem>
        
<asp:ListItem Value="North Dakota">North Dakota</asp:ListItem>
        
<asp:ListItem Value="Ohio">Ohio</asp:ListItem>
        
<asp:ListItem Value="Oklahoma">Oklahoma</asp:ListItem>
        
<asp:ListItem Value="Ontario">Ontario</asp:ListItem>
        
<asp:ListItem Value="Oregon">Oregon</asp:ListItem>
        
<asp:ListItem Value="Pennsylvania">Pennsylvania</asp:ListItem>
        
<asp:ListItem Value="Rhode Island">Rhode Island</asp:ListItem>
        
<asp:ListItem Value="South Carolina">South Carolina</asp:ListItem>
        
<asp:ListItem Value="South Dakota">South Dakota</asp:ListItem>
        
<asp:ListItem Value="Tennessee">Tennessee</asp:ListItem>
        
<asp:ListItem Value="Texas">Texas</asp:ListItem>
        
<asp:ListItem Value="Utah">Utah</asp:ListItem>
        
<asp:ListItem Value="Vermont">Vermont</asp:ListItem>
        
<asp:ListItem Value="Virginia">Virginia</asp:ListItem>
        
<asp:ListItem Value="Washington">Washington</asp:ListItem>
        
<asp:ListItem Value="West Virginia">West Virginia</asp:ListItem>
        
<asp:ListItem Value="Wisconsin">Wisconsin</asp:ListItem>
        
<asp:ListItem Value="Wyoming">Wyoming</asp:ListItem>
        
</asp:dropdownlist></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Zip Code</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientZipCode" runat="server"
MaxLength="20"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientZipCode" runat="server"
ControlToValidate="ClientZipCode" ErrorMessage="Missing Zip
Code"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Primary Phone</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientPrimaryPhone" runat="server"
MaxLength="20"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientPrimaryPhone" runat="server"
ControlToValidate="ClientPrimaryPhone"
        
ErrorMessage="Missing Primary Phone"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Email</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientEmail" runat="server" MaxLength="75"
Width="265px"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientEmail" runat="server"
ControlToValidate="ClientEmail" ErrorMessage="Missing
Email"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="right" width="132"><FONT face="Verdana" color="navy"><SPAN
style="COLOR: navy">Fax Number</SPAN></FONT></TD>
        
<TD width="420">
        
<asp:TextBox id="ClientFaxNumber" runat="server"
MaxLength="20"></asp:TextBox>&nbsp;
        
<asp:RequiredFieldValidator id="ValidatorClientFaxNumber" runat="server"
ControlToValidate="ClientFaxNumber"
        
ErrorMessage="Missing Fax Number"></asp:RequiredFieldValidator></TD>
        
</TR>
                                                                        <TR>
        
<TD align="center" colSpan="2">
        
<asp:Button id="ButtonAddLogin" runat="server" Text="ADD NEW
LOGIN"></asp:Button></TD>
        
</TR>
                                                                        <TR>
        
<TD align="center" colSpan="2">&nbsp;&nbsp;
        
</TD>
        
</TR>
                                                                        <TR>
        
<TD align="center" colSpan="2"><B><FONT face="Verdana"><A
href="ControlPanel.aspx">RETURN TO 
        
CONTROL PANEL</A></FONT></B></TD>
        
</TR>
        
</FORM></TABLE>
                                                        </asp:Panel>
                                                        <asp:Panel
id="PanelNoAccess" runat="server">
        
<COLLECTIONS:NoAccess id="CollectionsNoAccess"
runat="server"></COLLECTIONS:NoAccess>
                                                        </asp:Panel>
                                                        <asp:Panel
id="PanelComplete" runat="server">
        
<COLLECTIONS:Complete id="CollectionsComplete"
runat="server"></COLLECTIONS:Complete>
                                                        </asp:Panel>
                                                </TD>
                                        </TR>
                                </TBODY>
                        </TABLE>
                </div>
                </TD></TR>
                <tr>
                        <td bgcolor="#ffffff"><COLLECTIONS:footer
id="CollectionsFooter" runat="server"></COLLECTIONS:footer></td>
                </tr>
                </TBODY></TABLE>
                <DIV></DIV>
                </TD></TR></TBODY>
        </body>
</HTML>




















Imports System.Data.OleDb
Imports System.Data

Public Class AddLogin2
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

    End Sub
    Protected WithEvents titlePlaceHolder As
System.Web.UI.WebControls.PlaceHolder
    Protected WithEvents LiteralLoginStatus As
System.Web.UI.WebControls.Literal
    Protected WithEvents LabelStatus As System.Web.UI.WebControls.Label
    Protected WithEvents LoginID As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorLoginID As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Password As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorPassword As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents UserType As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ClientName As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientName As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientStreetAddress As
System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientStreetAddress As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientCity As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientCity As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientState As
System.Web.UI.WebControls.DropDownList
    Protected WithEvents ClientZipCode As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientZipCode As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientPrimaryPhone As
System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientPrimaryPhone As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientEmail As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ClientFaxNumber As
System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidatorClientFaxNumber As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ButtonAddLogin As System.Web.UI.WebControls.Button
    Protected WithEvents PanelAddLogin As System.Web.UI.WebControls.Panel
    Protected WithEvents PanelNoAccess As System.Web.UI.WebControls.Panel
    Protected WithEvents PanelComplete As System.Web.UI.WebControls.Panel
    Protected WithEvents AddLogin0 As System.Web.UI.HtmlControls.HtmlForm

    'NOTE: The following placeholder declaration is required by the Web Form
Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load



        'Response.Write("LoginID = " & Session("LoginID") & "<BR>")
        'Response.Write("Password = " & Session("Password") & "<BR>")
        'Response.Write("UserType = " & Session("UserType") & "<BR><BR>")


        'Check if user is already logged in.
        If Not Session("LoginID") = "" Then
            LiteralLoginStatus.Text = Session("LoginID") & " logged in as "
& Session("UserType") & "."

        Else
            LiteralLoginStatus.Text = "Your are currently not logged in."

        End If

        Dim strSitename
        strSitename = "Collection Management Database"
        Session("SiteName") = "Collection Management Database"


        Dim PageTitle = New
System.Web.UI.HtmlControls.HtmlGenericControl("title")
        titlePlaceHolder.Controls.Add(PageTitle)
        PageTitle.InnerHtml = strSitename



        'Setup Variables
        Dim strLoginID
        Dim strPassword
        Dim strUserType

        strLoginID = Session("LoginID")
        strPassword = Session("Password")
        strUserType = Session("UserType")

        If Not IsPostBack Then

            'Check Userlevel and show appropriate Panel
>>>>>>>>>>>>>>>>>>>>>>>
            If strUserType = "Client" Then
                'Response.Write("NO ACCESS" & "<BR>")
                PanelAddLogin.Visible = False
                PanelNoAccess.Visible = True
                PanelComplete.Visible = False


            ElseIf strUserType = "Attorney" Then
                'Response.Write("NO ACCESS" & "<BR>")
                PanelAddLogin.Visible = False
                PanelNoAccess.Visible = True
                PanelComplete.Visible = False


            ElseIf strUserType = "Debtor" Then
                'Response.Write("NO ACCESS" & "<BR>")
                PanelAddLogin.Visible = False
                PanelNoAccess.Visible = True
                PanelComplete.Visible = False

            ElseIf strUserType = "Administrator" Then
                'Response.Write("Show Administrator Panel" & "<BR>") 'Show
Admin Menu
                PanelAddLogin.Visible = True
                PanelNoAccess.Visible = False
                PanelComplete.Visible = False



            Else
                Response.Redirect("Default.aspx")

            End If
            'Check Userlevel and show appropriate Panel
>>>>>>>>>>>>>>>>>>>>>>>


        End If 'If not is post back



    End Sub





    Private Sub ButtonAddLogin_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ButtonAddLogin.Click


        If (Page.IsValid) Then


            '............. Check to see if the user already exists
            Dim strLoginIDCheck
            strLoginIDCheck = LoginID.Text

            'Open the Connection -------------------------------------
            Dim objConnCheck As OleDbConnection
            Dim objConnStringCheck As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Some.mdb")
            objConnCheck = New OleDb.OleDbConnection(objConnStringCheck)
            objConnCheck.Open()

            Dim objDataSetCheck As New DataSet

            Dim strSQLstringCheck As String
            strSQLstringCheck = "SELECT * FROM users WHERE [LoginID] = '" &
strLoginIDCheck & "'"

            Dim objDataAdapterCheck As OleDbDataAdapter
            objDataAdapterCheck = New OleDbDataAdapter(strSQLstringCheck,
objConnCheck)
            objDataAdapterCheck.Fill(objDataSetCheck, "users")

            Dim objDataReaderCheck As OleDbDataReader

            'Create a OleDBCommand ------------------------------------
            Dim objCmdOleDBCommandCheck As New
OleDbCommand(strSQLstringCheck, objConnCheck)
            'Create a OleDBCommand ---

            Dim strLoginIDDBCheck


            'Get therecord fields and assign them to variables ------
            objDataReaderCheck =
objCmdOleDBCommandCheck.ExecuteReader(System.Data.CommandBehavior.CloseConne
ction)
            While objDataReaderCheck.Read()

                'DATABASE FIELDS
                strLoginIDDBCheck = objDataReaderCheck("LoginID")

            End While

            'Close things up ------------------------------------
            objDataSetCheck.Dispose()
            objDataSetCheck = Nothing
            objDataAdapterCheck = Nothing
            objConnCheck.Close()
            objConnCheck = Nothing
            'Close things up ------------------------------------



            If strLoginIDDBCheck = "" Then 'LoginID is Avalable
                'COde to add new LoginID here

                'XXXXXXXXXXXXXXXXXX ADD NEW LOGIN TO DATABASE
XXXXXXXXXXXXXXXXXX
                Dim strLoginID 'text 25
                Dim strPassword 'text 25
                Dim strUserType 'Text 50
                Dim strDateCreated ' DateTime 8
                Dim strClientName 'text 100
                Dim strClientStreetAddress 'text 150
                Dim strClientCity ' text 50
                Dim strClientState 'text 50
                Dim strClientZipCode 'text 20
                Dim strClientPrimaryPhone 'text 20
                Dim strClientEmail 'text 75
                Dim strClientFaxNumber 'text 20

                strLoginID = LoginID.Text 'text 25
                strPassword = Password.Text 'text 25
                strUserType = UserType.SelectedValue ' Text 50
                strDateCreated = DateTime.Now().ToShortDateString() '
DateTime 8
                strClientName = ClientName.Text 'text 100
                strClientStreetAddress = ClientStreetAddress.Text 'text 150
                strClientCity = ClientCity.Text ' text 50
                strClientState = ClientState.SelectedValue 'text 50
                strClientZipCode = ClientZipCode.Text 'text 20
                strClientPrimaryPhone = ClientPrimaryPhone.Text 'text 20
                strClientEmail = ClientEmail.Text 'text 75
                strClientFaxNumber = ClientFaxNumber.Text 'text 20


                'Open the Connection -------------------------------------
                Dim objConn As OleDbConnection
                Dim objConnString As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Some.mdb
")
                objConn = New OleDb.OleDbConnection(objConnString)
                '---------------------------------------------------------

                'Build SQL String --------------------------------------
                Dim strSQLstring As String
                Dim objDataTable As DataTable

                strSQLstring = "INSERT INTO users ([LoginID], [password],
[UserType], [DateCreated], [ClientName], [ClientStreetAddress],
[ClientCity], [ClientState], [ClientZipCode], [ClientPrimaryPhone],
[ClientEmail], [ClientFaxNumber]) " & _
                                    "VALUES (@LoginID, @Password, @UserType,
@DateCreated, @ClientName, @ClientStreetAddress, @ClientCity, @ClientState,
@ClientZipCode, @ClientPrimaryPhone, @ClientEmail, @ClientFaxNumber)"

                Dim sqlcmd As OleDbCommand = New OleDbCommand(strSQLstring,
objConn)

                sqlcmd.Parameters.Add("@LoginID", OleDbType.VarChar,
25).Value = LoginID.Text
                sqlcmd.Parameters.Add("@Password", OleDbType.VarChar,
25).Value = Password.Text
                sqlcmd.Parameters.Add("@UserType", OleDbType.VarChar,
50).Value = UserType.SelectedValue
                sqlcmd.Parameters.Add("@DateCreated", OleDbType.VarChar,
150).Value = DateTime.Now().ToShortDateString()
                sqlcmd.Parameters.Add("@ClientName", OleDbType.VarChar,
100).Value = ClientName.Text
                sqlcmd.Parameters.Add("@ClientStreetAddress",
OleDbType.VarChar, 150).Value = ClientStreetAddress.Text
                sqlcmd.Parameters.Add("@ClientCity", OleDbType.VarChar,
50).Value = ClientCity.Text
                sqlcmd.Parameters.Add("@ClientState", OleDbType.VarChar,
50).Value = ClientState.SelectedValue
                sqlcmd.Parameters.Add("@ClientZipCode", OleDbType.VarChar,
20).Value = ClientZipCode.Text
                sqlcmd.Parameters.Add("@ClientPrimaryPhone",
OleDbType.VarChar, 20).Value = ClientPrimaryPhone.Text
                sqlcmd.Parameters.Add("@ClientEmail", OleDbType.VarChar,
75).Value = ClientEmail.Text
                sqlcmd.Parameters.Add("@ClientFaxNumber", OleDbType.VarChar,
20).Value = ClientFaxNumber.Text

                'sqlcmd.Parameters.Add("@DateCreated", OleDbType.DBDate,
150).Value = DateTime.Now().ToShortDateString()

                'Response.Write("SQL STRING:" & "<BR>")
                'Response.Write(strSQLstring & "<BR>")

                Try
                    objConn.Open()
                    sqlcmd.ExecuteNonQuery()
                    'Trace.Write("strSQL", strSQLstring)
                Catch exc1 As Exception
                    'Trace.Write("bad thing", "very bad", exc1)

                Finally
                    objConn.Dispose()

                End Try

                PanelAddLogin.Visible = False
                PanelNoAccess.Visible = False
                PanelComplete.Visible = True




            Else 'LoginID is Avalable LoginID is in USE
                LabelStatus.Text = "The Login already exists please choose
another one."
                PanelAddLogin.Visible = True
                PanelNoAccess.Visible = False
                PanelComplete.Visible = False

            End If 'End Check LoginID Exists
            '............. Check to see if the user already exists




        Else '(Page.IsValid) not..............
            LabelStatus.Text = "There is a problem with one or more fields."
            PanelAddLogin.Visible = True
            PanelNoAccess.Visible = False
            PanelComplete.Visible = False


        End If 'END (Page.IsValid)



    End Sub








End Class




 
Yahoo! Groups Links



 






 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 


Reply via email to