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">
</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"> </TD>
<TD width="420">
</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"> </TD>
<TD width="420">
</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>
<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>
<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"> </TD>
<TD width="420"> </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>
<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>
<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>
<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>
<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>
<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>
<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>
<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">
</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
<*> 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/
