|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Urgent Help, pls. |
|
From: |
feix |
|
Date: |
6/8/2001 2:06:00 AM |
|
IP: |
165.21.21.39 |
Is the below part, which is a part of my Global.asa file, correct? Thanks for your help.
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
'create ADO connection object and connect to Oracle database.
set conn = server.createObject("adodb.connection")
conn.open = "dsn=Impact;uid="&session("username")&";pwd="&session("password")&";"
SQL = "SELECT trim(registeree_id) FROM impactadm.onlinereq WHERE trim(status)='In Progress'"
Set rs_id=server.createobject("ADODB.RecordSet")
set rs_id=conn.execute(SQL)
if rs_id("trim(registeree_id)")=session("username") then
SQL_b = "UPDATE impactadm.onlinereq SET status='OPEN', registeree_id=''where trim(registeree_id)='"&session(username)&"' and trim(status)='In Progress'"
conn.execute(SQL_b)
end if
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
