Hi Thomas,
Here is what my code looks like...I am sorry I think I worded it wrong in
the original psot, the new page which contains hyperlink to the search page,
it is still the same login page, but it just writes Search page.
<%@ Language = "VBScript" %>
<%
Option Explicit
Dim cnnLogin
Dim rstLogin
Dim strUsername, strPassword
Dim strSQL
%>
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns
="urn:schemas-microsoft-com
ffice
ffice"
xmlns="
http://www.w3.org/TR/REC-html40">
<head>
<link rel="File-List" href="login_db_files/filelist.xml">
<title>Login Page</title>
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]--><!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
</head>
<body bgcolor="#FFFFFF">
<%
If Request.Form("action") <> "validate_login" Then
%>
<form
action="
http://webhost.on.bell.ca/districtcal/database1_interface/Results/login_db.asp"
method="POST">
<input type="hidden" name="action" value="validate_login" />
<div style="border:3px solid #0000FF; width: 962; height: 545">
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><!--[if gte vml 1]><v:shapetype id="_x0000_t156"
coordsize="21600,21600" o:spt="156" adj="2809,10800"
path="m@25@0c@26@3@27@1@28@0m@21@4c@22@5@23@6@24@4e">
<v:formulas>
<v:f eqn="val #0"/>
<v:f eqn="prod @0 41 9"/>
<v:f eqn="prod @0 23 9"/>
<v:f eqn="sum 0 0 @2"/>
<v:f eqn="sum 21600 0 #0"/>
<v:f eqn="sum 21600 0 @1"/>
<v:f eqn="sum 21600 0 @3"/>
<v:f eqn="sum #1 0 10800"/>
<v:f eqn="sum 21600 0 #1"/>
<v:f eqn="prod @8 2 3"/>
<v:f eqn="prod @8 4 3"/>
<v:f eqn="prod @8 2 1"/>
<v:f eqn="sum 21600 0 @9"/>
<v:f eqn="sum 21600 0 @10"/>
<v:f eqn="sum 21600 0 @11"/>
<v:f eqn="prod #1 2 3"/>
<v:f eqn="prod #1 4 3"/>
<v:f eqn="prod #1 2 1"/>
<v:f eqn="sum 21600 0 @15"/>
<v:f eqn="sum 21600 0 @16"/>
<v:f eqn="sum 21600 0 @17"/>
<v:f eqn="if @7 @14 0"/>
<v:f eqn="if @7 @13 @15"/>
<v:f eqn="if @7 @12 @16"/>
<v:f eqn="if @7 21600 @17"/>
<v:f eqn="if @7 0 @20"/>
<v:f eqn="if @7 @9 @19"/>
<v:f eqn="if @7 @10 @18"/>
<v:f eqn="if @7 @11 21600"/>
<v:f eqn="sum @24 0 @21"/>
<v:f eqn="sum @4 0 @0"/>
<v:f eqn="max @21 @25"/>
<v:f eqn="min @24 @28"/>
<v:f eqn="prod @0 2 1"/>
<v:f eqn="sum 21600 0 @33"/>
<v:f eqn="mid @26 @27"/>
<v:f eqn="mid @24 @28"/>
<v:f eqn="mid @22 @23"/>
<v:f eqn="mid @21 @25"/>
</v:formulas>
<v
ath textpathok="t" o:connecttype="custom"
o:connectlocs="@35,@0;@38,10800;@37,@4;@36,10800"
o:connectangles="270,180,90,0"/>
<v:textpath on="t" fitshape="t" xscale="t"/>
<v:handles>
<v:h position="topLeft,#0" yrange="0,4459"/>
<v:h position="#1,bottomRight" xrange="8640,12960"/>
</v:handles>
<o:lock v:ext="edit" text="t" shapetype="t"/>
</v:shapetype><v:shape id="_x0000_s1025" type="#_x0000_t156" alt="BELL
CANADA WHOLESALE CONNECTIVITY"
style='width:600.75pt;height:52.5pt'>
<v:fill color2="blue" rotate="t" focus="100%" type="gradient"/>
<v:shadow color="#868686"/>
<v:textpath style='font-family:"Arial Black";font-size:28pt;v-text-kern:t'
trim="t" fitpath="t" string="BELL CANADA WHOLESALE HELPDESK"/>
</v:shape><![endif]--><![if !vml]><img border=0 width=804 height=72
src="login_db_files/image001.gif" alt="BELL CANADA WHOLESALE CONNECTIVITY"
v:shapes="_x0000_s1025"><![endif]></p>
<p align="center"><b>
<font color="#0000FF" face="Bradley Hand ITC" size="5">TICKETING
SYSTEM</font></b></p>
<p>
</p>
<div align="center">
<center>
<table border="0" width="362" style="border-collapse: collapse"
bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td align="right" width="72">
<font color="#0000FF" face="Arial">Login ID :</font><font color="#0000FF">
</font> </td>
<td width="280"><input type="text" name="login" size="32" /><!--[if gte
vml 1]><v:shapetype id="_x0000_t86"
coordsize="21600,21600" o:spt="86" adj="1800"
path="m,qx21600@0l21600@1qy,21600e"
filled="f">
<v:formulas>
<v:f eqn="val #0"/>
<v:f eqn="sum 21600 0 #0"/>
<v:f eqn="prod #0 9598 32768"/>
<v:f eqn="sum 21600 0 @2"/>
</v:formulas>
<v
ath arrowok="t" gradientshapeok="t" o:connecttype="custom"
o:connectlocs="0,0;0,21600;21600,10800"
textboxrect="0,@2,15274,@3"/>
<v:handles>
<v:h position="bottomRight,#0" yrange="0,10800"/>
</v:handles>
</v:shapetype><v:shape id="_x0000_s1027" type="#_x0000_t86" alt=""
style='position:absolute;
left:459.75pt;top:187.5pt;width:10.5pt;height:63.75pt;z-index:1'
fillcolor="#ffc"/><![endif]--><![if !vml]><span
style='mso-ignore:vglayout;position:absolute;z-index:1;left:612px;top:249px;
width:16px;height:87px'><img width=16 height=87
src="login_db_files/image002.gif"
v:shapes="_x0000_s1027"></span><![endif]></td>
</tr>
<tr>
<td align="right" width="72"><font color="#0000FF" face="Arial">
Password : </font></td>
<td width="280"><input type="password" name="password" size="32" /></td>
</tr>
<tr>
<td align="right" width="72"><!--[if gte vml 1]><v:rect
id="_x0000_s1026" alt="" style='position:absolute;left:8.25pt;top:295.5pt;
width:718.5pt;height:21pt;z-index:-1' fillcolor="blue" strokecolor="blue">
<v:fill rotate="t" angle="-90" focus="100%" type="gradient"/>
</v:rect><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:-1;left:10px;top:393px;width:960px;height:30px'><img
width=960 height=30 src="login_db_files/image003.gif"
v:shapes="_x0000_s1026"></span><![endif]></td>
<td width="280"> <p> </p>
<p align="center"><input type="submit" VALUE="LOG ON" /></p>
<p align="center"> </p>
<p align="center"> </p>
<p> </td>
</tr>
</table>
</center>
</div>
</div>
</form>
<%
Else
strSQL = "SELECT * FROM tblLoginInfo " _
& "WHERE username='" & Replace(Request.Form("login"), "'", "''") & "' " _
& "AND password='" & Replace(Request.Form("password"), "'", "''") & "';"
Set cnnLogin = Server.CreateObject("ADODB.Connection")
cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("login.mdb"))
Set rstLogin = cnnLogin.Execute(strSQL)
If Not rstLogin.EOF Then
%>
<p>
<font face="Georgia" size="4">
<a
href="
http://webhost.on.bell.ca/districtcal/database1_interface/Results/searchblue.asp">
Search Page</a><font color="#0000FF"> </font>
</font>
</p>
<%
Else
%>
<p>
<font size="4" face="Georgia" color="#0000FF"><strong>
Login Failed - Please verify username and password.
</strong></font>
</p>
<p>
<font face="Georgia" size="4">
<a href="login_db.asp">Try Again</a><font color="#0000FF">
</font></font>
</p>
<%
'Response.End
End If
' Clean Up
rstLogin.Close
Set rstLogin = Nothing
cnnLogin.Close
Set cnnLogin = Nothing
End If
%>
</body>
</html>
Thomas A. Rowe said:
What is stopping your from changing the link from the new page to the search page?
--
==============================================
Thomas A. Rowe
Microsoft MVP - FrontPage
==============================================
Agents Real Estate Listing Network
http://www.NReal.com
==============================================
Hi,
I have a login page, where user enter their login information (username &
password). Once it is validated, I would like it to go the main page, where
they can do the search.
The way I have it set up now, It will go to a new page, which only has a
hyperlink to a search page. I would like to eliminate this page, and take
users directly to main serach page after they login..
Any help would be greatly appreciated.
Thanks,
Shikha
