Tjenare!
Jag har en databas som jag vill lista ID och namn ifrån.
Det första ID't är 20 och sen går det neråt så antalet poster ställer inte som ni säkert förstår. Det är 20 mer!
Jag vill skriva ut hur många pester som finns exakt, alltså ID minus 20. Jag har prövat:
<%
Dim antal
antal = cint(RS("ID")) - 20
%>
<%="antal"%>
men den vill inte fungera.
Jag får felmess:
error '80020009'
/visa_anvandare.asp, line 53
och på rad 53 finns: antal = cint(RS("ID")) - 20
Vad är felet?
Jesper TMedlem sedan nov. 20017 144 inlägg Testa detta
<%
Dim antal
antal = cint("0"& RS("ID")) - 20
%>
<%=antal%>
Det är fortfarande samma fel:
error '80020009'
/visa_anvandare.asp, line 53
LarsGMedlem sedan dec. 200012 464 inlägg Får du ingen ytterligare feltext?
Vad händer på raderna ovanför?
Det är allt jag får..
<% Set Connect = Server.CreateObject("Adodb.Connection")
Connect.Open strCon
%>
<% SQL = "SELECT ID, user, reggad, bor FROM anv ORDER BY id"
Set RS = Connect.Execute(SQL) %>
<%
Do until RS.EOF
nummer = nummer + 1
If nummer Mod 2 = 0 then
color = "#627788"
Else
color = "#6D8496"
End If
%>
<table width="800" border="0" bgcolor="<%=color%>">
<tr>
<td width="18"><b><%=RS("ID")%></b></td>
<td width="122"><%=RS("user")%></td>
<td width="165" nowrap><%=RS("reggad")%></td>
<td width="477"><%=RS("bor")%></td>
</tr>
</table>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% RS.movenext
loop
%>
<%
Dim antal
antal = cint("0"& RS("ID")) - 20
%>
<%=antal%>
Det är koden...
@ndersMedlem sedan juni 200032 969 inlägg Om du försöker komma åt värdet efter loopen så är ditt recordset EOF. Lägg koden före/i loopen istället.
Men är det inte bättre att räkna ordentligt?
UlfTMedlem sedan maj 20018 027 inlägg
@nders skrev:
Men är det inte bättre att räkna ordentligt?
Precis. Som "select count(*)..."
hur ska det stå om man ska räknar ordentligt??
Engine^Medlem sedan dec. 20003 887 inlägg Istället för att du har
Dim antal
antal = cint("0"& RS("ID")) - 20
%>
<%=antal%>
Så byter du det till
SQL = "SELECT COUNT(*) FROM anv"
Set RS = Connect.Execute(SQL)
Response.Write RS(0)
RS.Close
Set RS = Nothing
%>