Microsoft VBScript runtime error '800a0007'
Denne fejl er opstået uden der er rodet med koden, systemet har kørt i flere måneder uden problemer eller rettelser.Microsoft VBScript runtime error '800a0007'
Out of memory: 'Conn.Execute'
/include/inc_chance.asp, line 19
En googling af fejlen har ikke givet mig nogen nærmere løsning - er der nogle af jer hjerner der har et forslag.
Her er inc_chance.asp fra linie 16 til og med linie 41
-------------------------------------------------
Private Function GetNewChance()
sql = "SELECT * FROM sidste_chance WHERE aktiv = 1 ORDER BY RAND() LIMIT 1"
Set Rs = Conn.Execute(sql)
Session("lastshowenid") = rs("id")
set tempRs = Conn.Execute("SELECT * FROM sh_dk WHERE id = " & rs("husid") & "")
if tempRs.EOF or tempRs.BOF then
else
if tempRs("visninger") > int(0) then
Conn.Execute("UPDATE sh_dk SET visninger = visninger-1 WHERE id = " & temprs("id") & "")
Response.Write "<b>Sidste Chance i uge: " & rs("uger") & "<br>"
Response.Write "<img style=""cursor: hand;"" onclick=""location.href='sh_dk.asp?id=" & rs("husid") & "&chance=" & rs("id") & "'"" src=""images/houses/" & rs("husid") & "/big_1.jpg"" width=""200"" height=""125""><br>"
Response.Write "Lej huset til: " & rs("pris") & "kr,-"
else
GetNewChance()
end if
end if
Set tempRs = Nothing
Set rs = Nothing
End function
-------------------------------------------------
Forslag modtages med kyshånd :)
