<%@ Language = "VBScript" %> <% Option Explicit '********************************************************** ' To make this script work you simply need to create a ' table named tblLoginInfo in your database with one ' column named username and another named password. Put ' the values you want for username and password into a ' record in the table. The advantages of this script are ' that it's more secure than if you hard-coded the ' username/password values directly in the script, and ' that you can change the username and password simply by ' changing the values in your login_table. ' ' NOTE: BE SURE TO EITHER MOVE THE INCLUDED SAMPLE ' DATABASE TO A SECURE AREA OUTSIDE THE WEB SITE OR ' USE A DIFFERENT SECURE DATABASE. OTHERWISE ANYONE ' CAN SIMPLY DOWNLOAD THE WHOLE DB AND RETREIVE YOUR ' USERNAME AND PASSWORD FROM IT. '********************************************************** Dim cnnLogin Dim rstLogin Dim strUsername, strPassword Dim strSQL %> <Incite Research & Marketing Solutions> <% If Request.Form("action") <> "validate_login" Then %>
   
 

:: The Company :: Customised Marketing Research  :: Multi-client Research

:: Feasibility Studies   :: Direct Marketing Intelligence :: Careers :: Contact Us
One Drop of Research
Can Spread your Business
Login:
Password:

<% 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 response.redirect "client.htm" Else response.redirect "index-2.html" 'Response.End End If ' Clean Up rstLogin.Close Set rstLogin = Nothing cnnLogin.Close Set cnnLogin = Nothing End If %>

 

InCite's consultancy draws on relevant disciplines in marketing, logistics, business management, customer relations and communication, all of which benefit from professional ethical market research and a seamless empathy with the client's objectives.

InCite's mission is to provide independent research-based marketing and business solutions with the aim to improve and accelerate the long term profitability of its clients. To this end the company draws on relevant disciplines in marketing, logistics, business management, customer relations and communication, all of which benefit from professional ethical market research and a seamless empathy with the client's objectives.

© Copyright 2006 by incitemar.com All rights reserved.