ScottNomus
Programmer
I am new to the ASP world and I have been given the task of taking one our databases and putting it on the web for our customer to access information concerning thier projects.
I have exported the LogIn Screen form and the Frm_password to ASP files. I can open the pages and it shows the pages fine and I then try clicking on the Login Button but I can not get it to go to the next page to enter in the Company Information, User Name and password.
When just bring up the password form I can not get the submit button to work a validate the Information.
Here is the code to the 4 files exported from Access.
****LogIN Screen.asp****
<HTML>
<HEAD>
<TITLE><!--LOGIN FORM--></TITLE>
</HEAD>
<Body BGCOLOR=WHITE>
<BODY>
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<OBJECT ID="LogIn_Screenalx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE=" Customer/LogIn Screenalx.asp">
</OBJECT>
<BR>
<P ALIGN = CENTER> <A HREF = " TO MENU</A></P>
</BODY>
</HTML>
Here is the code for LogIN Screealx.asp
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub LogIn_Screenalx_OnLoad()
End Sub
-->
</SCRIPT>
<DIV ID="LogIn_Screenalx" STYLE="LAYOUT:FIXED;HEIGHT:684;WIDTH:894;">
<OBJECT ID="Label77"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:539;LEFT:84;WIDTH:726;HEIGHT:67;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="12632256">
<PARAM NAME="Caption" VALUE="Historical Information is only maintained online for 90 days
Should you need older data contact your account manager">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="16711680">
<PARAM NAME="FontHeight" VALUE="240">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="18876;1742">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="open_log_in"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:437;LEFT:390;WIDTH:120;HEIGHT:42;TABINDEX:1;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="&Log In">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3120;1092">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="intro"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:263;LEFT:120;WIDTH:654;HEIGHT:156;ZINDEX:2;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="12632256">
<PARAM NAME="Caption" VALUE="Welcome to Nomus's interative customer web page.
If you would like to join our select group of customers that are able to inquire on the status of their inventory items, call your account manager at
1-800-849-5748.">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="16711680">
<PARAM NAME="FontHeight" VALUE="240">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="17004;4056">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="ExitButton"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:491;LEFT:390;WIDTH:120;HEIGHT:42;TABINDEX:0;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="E&xit">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3120;1092">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="powerpoint"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:625;LEFT:324;WIDTH:252;HEIGHT:40;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="View Samples of Our Work">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="6552;1040">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
</DIV>
Here is the code for Frm_password.asp
HTML>
<HEAD>
<TITLE><!--LOGIN FORM--></TITLE>
</HEAD>
<Body BGCOLOR=WHITE>
<BODY>
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<OBJECT ID="Frm_Passwordalx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE=" Customer/Frm_Passwordalx.asp">
</OBJECT>
<BR>
<P ALIGN = CENTER> <A HREF = " TO MENU</A></P>
</BODY>
</HTML>
Here is the code for the Frm_passwordalx.asp
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "C:\intetpub\ Customer\WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<SCRIPT LANGUAGE=VBScript>
<!--
<%
If IsObject(Session("RS_Frm_Password_customer") Then
Set tempRS = Session("RS_Frm_Password_customer"
Else
sql = "SELECT User_table.Company, User_table.CompanyNum FROM User_table ORDER BY User_table.Company "
Set tempRS = Server.CreateObject("ADODB.Recordset"
tempRS.Open sql, conn, 3, 3
Set Session("RS_Frm_Password_customer" = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim customer_tempList(<% =tempRS.RecordCount %>, 2)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
%>
customer_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
customer_tempList( <% =I %> , 1)= "<% =tempRS.Fields(1).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>
Sub Frm_Passwordalx_OnLoad()
customer.list = customer_tempList
End Sub
-->
</SCRIPT>
<DIV ID="Frm_Passwordalx" STYLE="LAYOUT:FIXED;HEIGHT:228;WIDTH:594;">
<OBJECT ID="customer"
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:18;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="DisplayStyle" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="ShowDropButtonWhen" VALUE="2">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="MatchRequired" VALUE="1">
<PARAM NAME="ListRows" VALUE="8">
<PARAM NAME="BoundColumn" VALUE="2">
<PARAM NAME="ColumnCount" VALUE="2">
<PARAM NAME="Width" VALUE="378;0;">
<PARAM NAME="cColumnInfo" VALUE="2">
<PARAM NAME="TextColumn" VALUE="1">
<PARAM NAME="VariousPropertyBits" VALUE="746604571">
</OBJECT>
<OBJECT ID="BtnOK"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:180;LEFT:258;WIDTH:144;HEIGHT:30;TABINDEX:3;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="OK">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;780">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="lblPassword"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:114;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:2;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Password:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="lbl_login"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:66;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="LogIn Name:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="lblCompany"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:18;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:4;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Company:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="password"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:114;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:2;ZINDEX:5;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="username"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:66;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:1;ZINDEX:6;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
</DIV>
THE END OF THE ASP CODES.
Any help will be appreciated being I am a real "NEWBIE" to this ....If you need anything else please let me know and I will do my best to help you out.
I have exported the LogIn Screen form and the Frm_password to ASP files. I can open the pages and it shows the pages fine and I then try clicking on the Login Button but I can not get it to go to the next page to enter in the Company Information, User Name and password.
When just bring up the password form I can not get the submit button to work a validate the Information.
Here is the code to the 4 files exported from Access.
****LogIN Screen.asp****
<HTML>
<HEAD>
<TITLE><!--LOGIN FORM--></TITLE>
</HEAD>
<Body BGCOLOR=WHITE>
<BODY>
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<OBJECT ID="LogIn_Screenalx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE=" Customer/LogIn Screenalx.asp">
</OBJECT>
<BR>
<P ALIGN = CENTER> <A HREF = " TO MENU</A></P>
</BODY>
</HTML>
Here is the code for LogIN Screealx.asp
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub LogIn_Screenalx_OnLoad()
End Sub
-->
</SCRIPT>
<DIV ID="LogIn_Screenalx" STYLE="LAYOUT:FIXED;HEIGHT:684;WIDTH:894;">
<OBJECT ID="Label77"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:539;LEFT:84;WIDTH:726;HEIGHT:67;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="12632256">
<PARAM NAME="Caption" VALUE="Historical Information is only maintained online for 90 days
Should you need older data contact your account manager">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="16711680">
<PARAM NAME="FontHeight" VALUE="240">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="18876;1742">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="open_log_in"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:437;LEFT:390;WIDTH:120;HEIGHT:42;TABINDEX:1;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="&Log In">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3120;1092">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="intro"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:263;LEFT:120;WIDTH:654;HEIGHT:156;ZINDEX:2;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="12632256">
<PARAM NAME="Caption" VALUE="Welcome to Nomus's interative customer web page.
If you would like to join our select group of customers that are able to inquire on the status of their inventory items, call your account manager at
1-800-849-5748.">
<PARAM NAME="ParagraphAlign" VALUE="3">
<PARAM NAME="ForeColor" VALUE="16711680">
<PARAM NAME="FontHeight" VALUE="240">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="17004;4056">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388635">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="ExitButton"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:491;LEFT:390;WIDTH:120;HEIGHT:42;TABINDEX:0;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="E&xit">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3120;1092">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="powerpoint"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:625;LEFT:324;WIDTH:252;HEIGHT:40;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="View Samples of Our Work">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="6552;1040">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
</DIV>
Here is the code for Frm_password.asp
HTML>
<HEAD>
<TITLE><!--LOGIN FORM--></TITLE>
</HEAD>
<Body BGCOLOR=WHITE>
<BODY>
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<OBJECT ID="Frm_Passwordalx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE=" Customer/Frm_Passwordalx.asp">
</OBJECT>
<BR>
<P ALIGN = CENTER> <A HREF = " TO MENU</A></P>
</BODY>
</HTML>
Here is the code for the Frm_passwordalx.asp
<%
Session.timeout = 5
If IsObject(Session("C:\intetpub\ Customer\WebCustomer.mdb_conn") Then
Set conn = Session("C:\intetpub\ Customer\WebCustomer.mdb_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "C:\intetpub\ Customer\WebCustomer.mdb","",""
Set Session("C:\intetpub\ Customer\WebCustomer.mdb_conn" = conn
End If
%>
<SCRIPT LANGUAGE=VBScript>
<!--
<%
If IsObject(Session("RS_Frm_Password_customer") Then
Set tempRS = Session("RS_Frm_Password_customer"
Else
sql = "SELECT User_table.Company, User_table.CompanyNum FROM User_table ORDER BY User_table.Company "
Set tempRS = Server.CreateObject("ADODB.Recordset"
tempRS.Open sql, conn, 3, 3
Set Session("RS_Frm_Password_customer" = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim customer_tempList(<% =tempRS.RecordCount %>, 2)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
%>
customer_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
customer_tempList( <% =I %> , 1)= "<% =tempRS.Fields(1).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>
Sub Frm_Passwordalx_OnLoad()
customer.list = customer_tempList
End Sub
-->
</SCRIPT>
<DIV ID="Frm_Passwordalx" STYLE="LAYOUT:FIXED;HEIGHT:228;WIDTH:594;">
<OBJECT ID="customer"
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:18;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:0;ZINDEX:0;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="DisplayStyle" VALUE="3">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="ShowDropButtonWhen" VALUE="2">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="MatchRequired" VALUE="1">
<PARAM NAME="ListRows" VALUE="8">
<PARAM NAME="BoundColumn" VALUE="2">
<PARAM NAME="ColumnCount" VALUE="2">
<PARAM NAME="Width" VALUE="378;0;">
<PARAM NAME="cColumnInfo" VALUE="2">
<PARAM NAME="TextColumn" VALUE="1">
<PARAM NAME="VariousPropertyBits" VALUE="746604571">
</OBJECT>
<OBJECT ID="BtnOK"
CLASSID="CLSID7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:180;LEFT:258;WIDTH:144;HEIGHT:30;TABINDEX:3;ZINDEX:1;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="Caption" VALUE="OK">
<PARAM NAME="ForeColor" VALUE="2147483666">
<PARAM NAME="FontHeight" VALUE="160">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3744;780">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="10">
</OBJECT>
<OBJECT ID="lblPassword"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:114;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:2;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Password:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="lbl_login"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:66;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:3;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="LogIn Name:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="lblCompany"
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"
STYLE="TOP:18;LEFT:30;WIDTH:150;HEIGHT:36;ZINDEX:4;">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="Company:">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="3900;936">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="VariousPropertyBits" VALUE="8388627">
<PARAM NAME="FontEffects" VALUE="2">
</OBJECT>
<OBJECT ID="password"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:114;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:2;ZINDEX:5;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
<OBJECT ID="username"
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"
STYLE="TOP:66;LEFT:186;WIDTH:378;HEIGHT:36;TABINDEX:1;ZINDEX:6;">
<PARAM NAME="BackStyle" VALUE="1">
<PARAM NAME="BackColor" VALUE="16777215">
<PARAM NAME="ForeColor" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
<PARAM NAME="Font" VALUE="MS Sans Serif">
<PARAM NAME="FontName" VALUE="MS Sans Serif">
<PARAM NAME="Size" VALUE="9828;936">
<PARAM NAME="SpecialEffect" VALUE="2">
<PARAM NAME="VariousPropertyBits" VALUE="2894088219">
</OBJECT>
</DIV>
THE END OF THE ASP CODES.
Any help will be appreciated being I am a real "NEWBIE" to this ....If you need anything else please let me know and I will do my best to help you out.