Hi. Got another problem boys & girls.
This time my connection to the Access database won´t close. I´ve tried everything..but nothing. The .swf and the dllhost.exe consumes all of my CPU and I have no clue what to do.
This is my .asp file:
<%
Set DataConn = Server.CreateObject("ADODB.Connection"
DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Status.mdb"
Set cmdTemp = Server.CreateObject("ADODB.Command"
Set rstContacts = Server.CreateObject("ADODB.Recordset"
cmdTemp.CommandText = "Select Status From users"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rstContacts.Open cmdTemp, , 1, 3
rstContacts.Move CLng(Request("Record"
)
Response.write "Status=" & Server.URLEncode(rstContacts("Status"
)
rstContacts.Close
DataConn.Close
set rstContacts = Nothing
set DataConn = Nothing
%>
And that shouldn´t be any major problems.
This is my flash-call:
onClipEvent (enterFrame) {
loadVariables(" , this);
if (Status == "False"
{
this._visible = true;
} else {
this._visible = false;
}
}
This time my connection to the Access database won´t close. I´ve tried everything..but nothing. The .swf and the dllhost.exe consumes all of my CPU and I have no clue what to do.
This is my .asp file:
<%
Set DataConn = Server.CreateObject("ADODB.Connection"
DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Status.mdb"
Set cmdTemp = Server.CreateObject("ADODB.Command"
Set rstContacts = Server.CreateObject("ADODB.Recordset"
cmdTemp.CommandText = "Select Status From users"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rstContacts.Open cmdTemp, , 1, 3
rstContacts.Move CLng(Request("Record"
Response.write "Status=" & Server.URLEncode(rstContacts("Status"
rstContacts.Close
DataConn.Close
set rstContacts = Nothing
set DataConn = Nothing
%>
And that shouldn´t be any major problems.
This is my flash-call:
onClipEvent (enterFrame) {
loadVariables(" , this);
if (Status == "False"
this._visible = true;
} else {
this._visible = false;
}
}