9 svar · 313 visningar · startad av Opelomega
Hej
Har i två dar försökt att få rätsida på detta problem. Har testat alla möjliga grejer jag och andra har kommit på men jag får fortfarade samma fel. Det är alltså den första Set Rs jag får fel på, men jag förstår inte varför.
Några försök som har gjortshttp://www.aspsidan.nu/ShowPost.asp?pId=180212&sida=1
Skulle bli väldigt tacksam för hjälp, fel meddelandet är det som följer:
error '80004005'
Unspecified error
<%@LANGUAGE = "VBSCRIPT" LCID = "1053" %>
<!--#include file="../inc/dbase.asp"-->
<!--#include file="sessioncheck.asp"-->
<%
SQL = "SELECT country FROM language Where LangID "& session("lang")& ""
Set RS = Conn.execute(SQL)
if not RS.eof then
lang = RS("country")
end if
SQL = "SELECT * From a_news Where newsLang = "&session("lang")&""
Set RS = Conn.execute(SQL)
color1 = "#ffffff"
color2 = "#ffffff"
color3 = "#ffffff"
Do while not RS.eof
n_start = RS("newsStart")
n_end = RS("newsEnd")
Header = RS("newsHeader")
if (n_start <= date and date <= n_end) then
if color1 = "#ffffff" then
color1 = "#c2dcfc"
else
color1 = "#ffffff"
end if
strShowing = strShowing & "<tr bgcolor="&color1&"><td>" & Header & "</td>"_
& "<td nowrap valign=""top"">"& n_start & " - " & n_end & "</td>"_
& "<td nowrap valign=""top""> " & DateDiff("d",date,n_end) & "</td>" _
& "<td nowrap align=""right"" valign=""top""><a href=a_news_edit.asp?newsID="&RS("NewsID")&">Redigera »</a></td>" _
& "</tr>"
end if
if (n_start > date) then
if color2 = "#ffffff" then
color2 = "#c2dcfc"
else
color2 = "#ffffff"
end if
strSoon = strSoon & "<tr bgcolor="&color2&"><td nowrap>"& Header &"</td>"_
& "<td nowrap valign=""top"">"& n_start & " - " & n_end & "</td>"_
& "<td nowrap valign=""top""> " & DateDiff("d",date,n_start) & "</td>" _
& "<td nowrap align=right valign=""top""><a href=a_news_edit.asp?newsID="&RS("NewsID")&">Redigera »</a></td>" _
& "</tr>"
end if
if (date > n_end) then
if color3 = "#ffffff" then
color3 = "#c2dcfc"
else
color3 = "#ffffff"
end if
strEnded = strEnded & "<tr bgcolor="&color3&"><td nowrap>"& Header &"</td>"_
& "<td nowrap valign=""top"">"& n_start & " - " & n_end & "</td>"_
& "<td nowrap valign=""top""> " & DateDiff("d",n_end,date) & "</td>" _
& "<td nowrap align=right valign=""top""><a href=a_news_edit.asp?newsID="&RS("NewsID")&">Redigera »</a></td>" _
& "</tr>"
end if
RS.movenext
loop
if strEnded = "" then
strEnded = "<tr bgcolor=""#FFFFFF""><td nowrap colspan=""3""><b>Inga nyheter!</b></td>"_
& "</tr>"
end if
if strSoon = "" then
strSoon = "<tr bgcolor=""#FFFFFF""><td nowrap colspan=""3""><b>Inga nyheter!</b></td>"_
& "</tr>"
end if
if strShowing = "" then
strShowing = "<tr bgcolor=""#FFFFFF""><td nowrap colspan=""3""><b>Inga nyheter!</b></td>"_
& "</tr>"
end if
%>
<html>
<head>
<title>[url]www.CaddyClean.com[/url]</title>
<link rel="STYLESHEET" type="text/css" href="../caddyclean.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" width="778"><img src="../img/grey_blue_up_admin.gif" width="778" height="33" border="0"></td>
</tr>
<tr>
<td colspan="3" width="778" nowrap height="61" ><img src="../img/logga.gif" width="179" height="62"><img src="../img/right_up.gif" width="599" height="62"></td>
</tr>
<tr>
<td width="160" valign="top"> <br>
<!--#include file="../inc/menu_admin.inc"-->
</td>
<td width="618" valign="top"> <br>
<table width="590" border="0" align="center" cellpadding="3" cellspacing="2">
<tr>
<td bgcolor="#929FA3" class="menyrub"> ADMINISTRATION</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="text">
<table border="0" width="590">
<tr>
<td><span class="textrub"><%= lang %> (allmänna nyheter)</span></td>
<td align="right"><input type="Button" value="Lägg till nyhet »" onclick="window.location='a_news_new.asp'"></td>
</tr>
</table>
<!-- *************************************** Allmänna nyheter *************************************** -->
<table width="590" border="0" cellspacing="0" cellpadding="3">
<tr>
<td colspan="4" bgcolor="#929FA3" class="menyrub">Nyheter som visas</td>
</tr>
<tr bgcolor="#96c7fc">
<td><strong>Rubrik</strong></td>
<td><strong>Datum</strong></td>
<td nowrap> <strong>Dagar kvar</strong></td>
<td></td>
</tr>
<%= strShowing %>
<tr><td colspan="4"> </td></tr>
<tr>
<td colspan="4" bgcolor="#929FA3" class="menyrub">Nyheter som kommer visas</td>
</tr>
<tr bgcolor="#96c7fc">
<td><strong>Rubrik</strong></td>
<td><strong>Datum</strong></td>
<td nowrap> <strong>Dagar tills den visas</strong></td>
<td></td>
</tr>
<%= strSoon %>
<tr><td colspan="4"> </td></tr>
<tr>
<td colspan="4" bgcolor="#929FA3" class="menyrub">Nyheter som har visats</td>
</tr>
<tr bgcolor="#96c7fc">
<td><strong>Rubrik</strong></td>
<td><strong>Datum</strong></td>
<td nowrap> <strong>Dagar sedan den visades</strong></td>
<td></td>
</tr>
<%= strEnded %>
</table>
<!-- ***************************************/ Allmänna nyheter *************************************** -->
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3"><img src="../img/grey_down.gif" width="778" height="46"></td>
</tr>
</table>
</body>
</html>
Markera gärna vilken rad felet inträffar på, och försök att inte posta en hel bibel med kod.
- - - - - -
Du saknar ett likhetstecken i din första SQL-fråga:
SQL = "SELECT country FROM language Where LangID [b]=[/b] "& session("lang")
Det är onödigt att lägga till & "" (tom sträng) sist i alla sql-frågor.
Ett tips är att också alltid söka på Google.
Kolla här vad sökningen 80004005 "set rs" gav: Google-sökning
Nånstans måste lösningen på ditt problem finnas. :D
Det var tyvärr bara ett slarvfel när jag skrev in det här i forumet.
Finns i orginalkoden.
Okej ska tänka på det andra, det vara bra att veta.
Probelm står dock fortfarade olöst tyvärr, och med samma felmeddelande som förut.
Så vitt jag förstår så är det en bug i asp?
Och lösningen är :
RESOLUTION
Make sure that the ActiveConnection property of the Command object for the first recordset is set only once throughout the page (especially if it contains multiple physical recordsets within the same recordset object) if the same connection is still being used.
Vilket jag inte förstår ett dugg av så någon får gärna förkalra vad det betyder . Artikeln finns här:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q225/0/42.asp&NoWebContent=1
Du använder ditt recordset för många gånger, helt enkelt. Som det står på sidan:
Within your MDAC code, you have multiple recordsets with the same recordset object that are created off of the same command and are also pointing to the same connection. The first recordset that is opened contains multiple recordsets within that same object. Before calling NextRecordset on that object, open another Recordset (new recordset object) and point the ActiveConnection property to the same command and connection to which at the other recordset object was pointing.
Alltså - du får ha flera recordsets, vilket jag inte gillar ur prestandasynpunkt.
SQL = "SELECT country FROM [language] Where LangID = "& session("lang")
Dock så är det enda sättet jag vet att göra-
Tack niko det fungerade alldeles utmärkt, vad har klamrarna för egentlig funktio? "Skärmar" det av?
Language är ett reserverat ord och därför måste man använda klammrar