Connection object

[Sean]

I have inherited the following code from an existing system login asp page in my company. I am connecting to the same database and have been told to use the same connection code from below because it works fine. Im unsure exactly which code to keep and which code to extract. A global.asa has been set up in my project so I don't need to worry about that. Can anyone help me please?
<
dim c
cn = "
if len(Request.form("submit1")) > 0 the

Set dbcn = server.CreateObject("ADODB.Connection"
set dbrs = server.CreateObject("ADODB.Recordset"

dbcn.open Application ("connectionString"

lsSQL = "SELECT * FROM Users WHERE UserName = '" & replace(Request.Form("UserName"),"'","'") & "' AND Password = '" & replace(Request.Form("Password"),"'","'") & "'
response.write lsSQ
dbrs.Open lsSQL, dbcn,

if dbrs.RecordCount > 0 the
'Succes
cn = "Welcome " & dbrs ("FirstName"
Session ("ValidUser") = "Yes
Response.Cookies("UserName") = dbrs ("UserName"

Response.Cookies("DeptID") = dbrs ("DeptID"
'Response.write Session ("UserName")& "-"& Session("DeptID"
'Response.en
Response.Redirect("Logon.asp"
els
'Failur
cn = "Error you are not a valid user!!
Session ("ValidUser") = "No
end i
end i
%>

[Adrian Forbes [ASP MVP]]

> <%

> dim cn
> cn = ""
> if len(Request.form("submit1")) > 0 then
>
> Set dbcn = server.CreateObject("ADODB.Connection")
> set dbrs = server.CreateObject("ADODB.Recordset")
>
> dbcn.open Application ("connectionString")
>

Keep the above and you can alter your lsSQL var to run different SQL

> lsSQL = "SELECT * FROM ...."
> response.write lsSQL
> dbrs.Open lsSQL, dbcn, 3
>

Now have code to process the results

Only you should clear up after yourself too

dbrs.Close
set dbrs = nothing
dbcn.close
set dbcn = nothing