hvad kan jeg gøre ved denne fejl
Fejlmeldingen:Fejltype:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
/intranet/OracleConnXal1.asp, line 18
Min kode:
<table width="100%" cellspacing="1" cellpadding="0" border="0">
<% set rs = oracle("select * from hitrate_dk where dato = '" & date() & "' and navn <> 'dagstotal' order by hitrate DESC") %>
<tr>
<td bgcolor="FFFFCC" colspan="4"> <font size="2"><b><% =rs("dato") & " kl. " & left(rs("lastupdate"),5) %></b></font></td>
<td colspan="2">
<select name="dato" class="login">
<%
set datoer = oracle("select distinct(dato) from hitrate_dk order by dato DESC")
while not datoer.eof
%>
<option value="<% =datoer("dato") %>"><% =datoer("dato") %></option>
<%
datoer.movenext
wend
set datoer = nothing
%>
</select>
</td>
</tr>
<tr bgcolor="99CCFF">
<td width="14"> Navn</td>
<td width="20"> Kald</td>
<td width="40"> Reg.</td>
<td width="20"> List</td>
<td width="20"> Pot.</td>
<td width="20"> Prod.</td>
<td width="20"> Abb.</td>
<td width="20"> Hit%</td>
<td width="20"> Point idag</td>
<td width="20"> Pr. prod.</td>
<td width="20"> Tidl. Point</td>
<td width="20"> Ready %</td>
<td width="20"> Besv.<br>%</td>
<td width="26"> R.<br>Saldo</td>
</tr>
<%
while not rs.eof
hit = cint(rs("hitrate"))
readysaldo = cint(rs("readysaldo"))
besvarelse = cint(rs("besvarelse"))
readyprocent = cint(rs("readyprocent"))
' Farve for hitprocent
if hit => 100 then
hitbgcolor = "#339966"
hittextcolor = "ffffff"
end if
if hit => 85 and hit =< 99.9 then
hitbgcolor = "#ffff99"
hittextcolor = "000000"
end if
if hit =< 85 then
hitbgcolor = "#ff0000"
hittextcolor = "ffffff"
end if
' Farve for readysaldo
if readysaldo => 1 then
saldobgcolor = "#339966"
saldotextcolor = "ffffff"
end if
if readysaldo =< 0 then
saldobgcolor = "#ff0000"
saldotextcolor = "ffffff"
end if
' Farve for besvarelse
if besvarelse => 90 then
besvbgcolor = "#339966"
besvtextcolor = "ffffff"
end if
if besvarelse => 80 and besvarelse =< 89 then
besvbgcolor = "#ffff99"
besvtextcolor = "000000"
end if
if besvarelse =< 79 then
besvbgcolor = "#ff0000"
besvtextcolor = "ffffff"
end if
' Farve for ready % idag
if readyprocent => 70 then
readybgcolor = "#339966"
readytextcolor = "ffffff"
end if
if readyprocent =< 69.9 then
readybgcolor = "#ff0000"
readytextcolor = "ffffff"
end if
%>
<tr class="hitraterows">
<td width="14" bgcolor="FFCC99"> <% =rs("navn") %></td>
<% if rs("kald") <> "0" then %>
<td width="20"> <% =rs("kald") %></td>
<td width="40"> <% =rs("reg") %></td>
<td width="20"> <% =rs("listen") %></td>
<td width="20"> <% =rs("pot") %></td>
<% else %>
<td width="20"> 0</td>
<td width="40"> 0</td>
<td width="20"> <% =rs("listen") %></td>
<td width="20"> 0,0</td>
<% end if %>
<td width="20"> <% =rs("produkter") %></td>
<td width="20"> <% =rs("abon") %></td>
<td width="20" bgcolor="<% = hitbgcolor %>"> <font color="<% =hittextcolor %>"><% =formatnumber(rs("hitrate"),1) %>%</font></td>
<td width="20"> <% =rs("points") %></td>
<td width="20"> <% =rs("avgproduktpoint") %></td>
<td width="20"> <% =rs("totalpoints") %></td>
<td width="20" bgcolor="<% =readybgcolor %>"> <font color="<% =readytextcolor %>"><% =formatnumber(rs("readyprocent"),0) %>%</font></td>
<td width="20" bgcolor="<% =besvbgcolor %>"> <font color="<% =besvtextcolor %>"><% =formatnumber(rs("besvarelse"),0) %>%</font></td>
<td width="26" bgcolor="<% =saldobgcolor %>"> <font color="<% =saldotextcolor %>"><% =rs("readysaldo") %></font></td>
</tr>
<%
rs.movenext
wend
set rs = nothing
%>
</table>
includefilen: OracleConnXal1.asp:
<%
dim oracleconn, oracleobj
Function OoracleConn()
Set oracleconn = Server.CreateObject("ADODB.Connection")
oracleConn.Open "dsn=xal1;uid=web_test;pwd=web_test_psw;"
End Function
Function oracle(sRSSource)
'if oracleConnObj.State = 0 then
OoracleConn()
'end if
Set oracleObj = Server.CreateObject("ADODB.Recordset")
oracleObj.Open sRSSource, oracleconn, 1,&H0002
RSCounter = oracleObj.RecordCount
Set oracle = oracleObj
Set oracleObj = Nothing
End Function
Sub Closeoracle()
oracleConn.Close
End Sub
%>
