Räknar antal

På vilket sätt fungerar det inte? Det bör det göra.

Den säger sätt in "
Prövade den också förut! Då hände inget!

Huh?

Hur ser felmeddelandet ut? Är du säker på att det är det här kodstycket som åsyftas?

Så här säger den:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/community/index.asp, line 191

Raderna runt e bara html!

Ok, då verkar det som att db inte är ett giltigt connectionobjekt.

ok! Men nu har jag flyttat runt så här ser det ut nu! Databas stängningen finns längre ner!

<%
Option Explicit
Dim sql,username,rsUser,rsMessages,newcount,totalcount,db,rs,usercount,se

username = Request.Cookies("username")

'If the username cookie is set, they must have logged in, so get their details from the database
if username <> "" then
%>
<!--#include file="conn.asp"-->
<%
se=request("se")
if se="" then
	se=username
end if
%>
<%
  sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
  
  sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
  Set rsMessages = Server.CreateObject("ADODB.Recordset")
  rsMessages.Open sql, conn, 3, 3
  
  newcount = 0
  totalcount = 0
  if not rsMessages.EOF then
	do until rsMessages.EOF
	totalcount = totalcount + 1
		if rsMessages("messageread") = False then
			newcount = newcount + 1
		end if
		rsMessages.Movenext
	loop
	rsMessages.Movefirst
  end if
end if
%>
<%SQL = "SELECT Count(*) From users"
Set rs = db.Execute(SQL)
%>
<%=RS.Fields(0) %>

Du har fortfarande inget connectionobjekt som heter db. På andra ställen i koden använder du conn som objektnamn.

Tänk att det kunde va så lätt! tack så mycket! Bjuder dig på detta :birp Hare gött!

hehe Ser nästan ut som mitt

dbCom.Execute(SQL)

:P

Har en fråga till! Hur gör man om man vill räkna i en tabell som ovan men i en viss kolumn??? t.ex vilka som har gjort mest inlägg i forumet! Den kolumnen heter topics!

Plockar fram den som gjort flest inlägg:

SQL = "SELECT TOP 1 username, count(*) FROM topics GROUP BY username ORDER BY 2 DESC"

Du får rätta till fältnamn och ändra så du får så många poster du vill ha.

Mvh,

Inget händer! Jag tog koden och klistrade in den! Men inget hände! Posts(Inte topics) räknar med siffror! Och ligger i tabellen users!
Skulle vilja att det stod så här:
Namn Inlägg
KeNNy 15
MooNiZ 7
?????? 4

åsså vidare!

Jag fixade det med denna kod!

<%
SQLsats = "SELECT TOP 10 * FROM users ORDER BY posts DESC"

Set Rs = Conn.Execute(SQLsats)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=70 align=left><font size=""1"">" & Rs("username") & "</td>"
Response.Write "<td width=40 align=center><font size=""1"">" & Rs("posts") & "</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop

Rs.Close
Conn.Close
Set RS = nothing
Set Conn = nothing 

%>

Suck fel på första frågan! så här är det! Lägger jag denn innaför if taggarna fungerar räkne koden! Men utanför säger den bara att den vill ha "
If taggarna visar olika saker om man är in eller utloggad

Vilka if? Visa bara den kod där du får fel.

Här:

<%'If they're not logged in, then display a login box
if username = "" then%>
<tr>
  <th width="175" height="5" background="images/backup.JPG"><font size="1">Logga in</font></th>
</tr>
<tr bgcolor="#F3F3F3">
  <form name="login" action="signin.asp" method="post">
  <input type="hidden" name="page" value="index.asp">
  <td align="center" width="175" height="117" background="images/back.JPG">
  <font size="1"><b>Användarnamn</b></font><font face="arial,helvetica" size=1><b> 
  : 
  <input type="text" name="username" size="12" style="font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;"><br>
  Lösenord :&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  <input type="password" name="password" size="10" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  Kom ihåg mig : <input type="checkbox" name="stayloggedin" value="yes"><br>
  <input type="submit" value="Logga in" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  <a href="pwd_forget.asp">Jag har glömt 
  mitt lösenord</a><br>
  -<br>
  <a href="signupform.asp">Bli medlem</a>
  </b></font>
  </td>
  </form>
</tr>
<%'If they are, show a mini profile box plus a sign out link
else%>
<tr>
  <th width="175" height="2" background="images/backup.JPG"><font size="1">Välkommen</font></th>
</tr>
<tr bgcolor="#F3F3F3">
  <td width="175" height="1" background="images/back.JPG">
  <b>
  <font face="arial,helvetica" size=1>
  <img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right"> </font>
  <font face="arial,helvetica" size=2>Välkommen</font><font face="arial,helvetica" size=1><font size=2> <%=username%></font><br><br>
  <a href="javascript:popup('profile.asp',360,400)">Visa/ÄndraProfil</a><br>
  <a href="myposts.asp">Mina inlägg</a><br>
  <a href="dagbok.asp?se=<%=username%>">Dagbok</a><br>
  <a href="gb.asp">Gästbok</a><br>
  <a href="userview.asp">Visa medlems lista</a><br>
  <a href="inbox.asp">Min Inbox (<%=newcount%> 
  nya, <%=totalcount%> totala)</a><br>
  <a href="signout.asp">Logga ut</a> </font>
  </b>
  </td>
</tr>

</table>

</font>
</font>
<font face="Arial" size=2>

<table width="426" cellpadding=4 cellspacing=1 border=0 bgcolor="#000000" align="center" height="1">
<tr>
<th width="467" height="1" background="images/backup.JPG">
<font size="1">Nyheter</font></th>
</tr>

</font>
<font face="arial,helvetica" size=2>

<font face="arial,helvetica" size=2>

<tr bgcolor="#F3F3F3">
<td align="center" width="467" height="86" background="images/back.JPG">
</font>
<font face="arial,helvetica" size=2>

<p>
  <p align="left"><font size="1">Välkommen till Firegamez Community! Det kommer 
  att komma mer funktioner med tiden! Får se om jag får den att fungera. Den 
  nyaste funktionen är ladda upp foto! Just nu jobbar vi med poäng och små 
  saker!!</font></p>
  <p align="left"><font size="1">Om ni kryssar i &quot;Kom ihåg mig&quot;, så kommer vi 
  som sagt komma ihåg dig! Då är du in loggad varje gång du kommer till 
  Firegamez! (Klicka bara i den om ni sitter vid din egna dator! Om du klickar i 
  det t.ex på en skol dator, så kommer alla in på din profil!) Så 
  hoppas ni får det bra här på Firegamez!</font></p>
  </font>
<font face="arial,helvetica" size=1>

  <p align="right">Denna sida fungerar bäst i 800x600</p>

  <p align="left">

Antal medlemar: 
Vill ligga innanför if taggarna-->[B]<%SQL = "SELECT Count(*) From users"
Set rs = conn.Execute(SQL)
%>
<%=RS.Fields(0) %>
</b><br></p>
</b><br></p>[/B]

<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if%>

Exakt vilket fel får du och vilken rad?

Menar du om jag lägger det utanför?!?!?!?!
Då får jag fram att jag ska lägga till " på denna rad:
Set rs = conn.Execute(SQL)

Denna koden fungerar också:

<% Dim SQL, Rs
SQL = "Select Count(*) As iCount From dintabell"
Set Rs = Cn.Execute(SQL)
Response.Write Rs("iCount") %>
Du måste ha ett connectionobjekt som heter Cn också..