<%
Dim usrID
usrID=CLng(Request.QueryString("ID"))
'Create some new vairbales
Dim rs 'New record sheet
'Open new connection to database
adoCon.Open cString
'Create new SQL string
strsql="SELECT * FROM tblActiveUsers WHERE ID="&usrID&" "
set rs=server.CreateObject("ADODB.Recordset")
rs.open strsql,adocon,3,3
rs.fields("InChat")=0
rs.fields("ChatRequest")=0
rs.Update
set rsl = server.createobject("ADODB.RecordSet")
rsl.open "UPDATE tblSettings SET o_ocupado = '0' where Login = '" & request("login_o") & "' ",cString
rs.close
adoCon.close
set rs = nothing
'Open new connection to database
adoCon.Open cString
set rs=server.CreateObject("ADODB.Recordset")
strsql="SELECT * FROM tblChat WHERE RoomID=" & usrID
rs.LockType = 3
rs.Open strSQL, adoCon
DO While Not RS.EOF
rs.Delete
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
adoCon.close
%>
aguarde...Aguarde ...