Count problem

7 svar · 231 visningar · startad av Mika3l 24 nov. 2001

Mika3lMedlem sedan nov. 20018 492 inlägg

Trådstart24 nov. 2001 21:46#1

Hejsan!
Jag håller på med en liten meddelandefunktion.
Jag har en meny samt inkorgen.
Jag vill att i menyn ska det stå om man har nya meddelanden(i siffror) och i inkorgen ska det stå hur många meddelanden man har totalt.
Därför har jag kört en Count sats men inget händer.
Jag får inget felmeddelande utan det blir värdet 0 när det ska bli 2!

Inkorgen:

<!-- #Include file="check.asp" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("mess.mdb")
rakna = "SELECT Count(*) As antalmess FROM mess WHERE till = '" & Session("user") & "' "
Connection.Execute(rakna)
%>
<html>
<head>
<title>Inkorg</title>
<link rel="stylesheet" type="text/css" href="style.css">
<style>
.small{font-size: 11px}
</style>
</head>
<body>

<table align="center" width="570" cellspacing="0" cellpadding="2" class="dark">
 <tr>
  <td>
<center><strong>Inkorg</strong></center>
  </td>
 </tr>
 <tr>
  <td>
<center>&#0124; <a href="skrivmess.asp">Skriv meddelande</a> &#0124; <a href="utkorg.asp">Utkorg</a> &#0124; Antal meddelanden:<% If antalmess <> "" Then Response.Write" & antalmess & " Else Response.Write"0" End If %> &#0124;

Menyn:

<!-- #Include file="check.asp" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("mess.mdb")
rakna = "SELECT Count(*) As antalmess FROM mess WHERE till = '" & Session("user") & "' "
Connection.Execute(rakna)
%>
<html>
<head>
<title>Inkorg</title>
<link rel="stylesheet" type="text/css" href="style.css">
<style>
.small{font-size: 11px}
</style>
</head>
<body>

<table align="center" width="570" cellspacing="0" cellpadding="2" class="dark">
 <tr>
  <td>
<center><strong>Inkorg</strong></center>
  </td>
 </tr>
 <tr>
  <td>
<center>&#0124; <a href="skrivmess.asp">Skriv meddelande</a> &#0124; <a href="utkorg.asp">Utkorg</a> &#0124; Antal meddelanden:<% If antalmess <> "" Then Response.Write" & antalmess & " Else Response.Write"0" End If %> &#0124;

Jag testade med att ta bort ifsatserna men det fungerade inte då heller:-/

Tacksam för svar!

/Mika3l

LarsGMedlem sedan dec. 200012 464 inlägg

24 nov. 2001 22:00#2

rakna = "SELECT Count(*) As antalmess FROM mess WHERE till = '" & Session("user") & "' "
[b]set rs = [/b]Connection.Execute(rakna)
antalmess = rs(0)

Mika3lMedlem sedan nov. 20018 492 inlägg

25 nov. 2001 11:25#3

Jag provade med din kod LarsG men det skriver bara ut & antalmess & istället för ett nummer.

<!-- #Include file="check.asp" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("mess.mdb")
rakna = "SELECT Count(*) As antalmess FROM mess WHERE till = '" & Session("user") & "' "
Set RecSet = Connection.Execute(rakna)
antalmess = RecSet(0)
%>
<html>
<head>
<title>Inkorg</title>
<link rel="stylesheet" type="text/css" href="style.css">
<style>
.small{font-size: 11px}
</style>
</head>
<body>

<table align="center" width="570" cellspacing="0" cellpadding="2" class="dark">
 <tr>
  <td>
<center><strong>Inkorg</strong></center>
  </td>
 </tr>
 <tr>
  <td>
<center>&#0124; <a href="skrivmess.asp">Skriv meddelande</a> &#0124; <a href="utkorg.asp">Utkorg</a> &#0124; Antal meddelanden:<% If antalmess <> "" Then Response.Write" & antalmess & " Else Response.Write"0" End If %> &#0124;

(Jag fick byta ut rs till RecSet eftersom jag använder det längre ner på sidan.)

Jag får inga felmeddelanden eller så utan det står bara & antalmess &.

/Mika3l

@ndersMedlem sedan juni 200032 967 inlägg

25 nov. 2001 11:45#4

Du har ju skrivit att det är det du vill skriva ut. Så det är inte så konstigt.

<center>&#0124; <a href="skrivmess.asp">Skriv meddelande</a> &#0124; <a href="utkorg.asp">Utkorg</a> &#0124; Antal meddelanden:<% If antalmess <> "" Then [b]Response.Write antalmess[/b] Else Response.Write"0" End If %> &#0124;

Mvh,

mikulMedlem sedan aug. 20013 824 inlägg

25 nov. 2001 12:08#5

<!-- #Include file="check.asp" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("mess.mdb")
rakna = "SELECT Count(*) As antalmess FROM mess WHERE till = '" & Session("user") & "' "
Set RecSet = Connection.Execute(rakna)
antalmess = RecSet("antalmess")
%>
<html>
<head>
<title>Inkorg</title>
<link rel="stylesheet" type="text/css" href="style.css">
<style>
.small{font-size: 11px}
</style>
</head>
<body>
<table align="center" width="570" cellspacing="0" cellpadding="2" class="dark">
<tr>
<td>
<center><strong>Inkorg</strong></center>
</td>
</tr>
<tr>
<td>
<center>&#0124; <a href="skrivmess.asp">Skriv meddelande</a> &#0124; <a href="utkorg.asp">Utkorg</a> &#0124; Antal meddelanden:
<% 
If antalmess <> "" Then
Response.Write antalmess 
Else 
Response.Write"0" 
End If 
%> &#0124;

/ Mikul

@ndersMedlem sedan juni 200032 967 inlägg

25 nov. 2001 12:10#6

Vad menade du nu?

Mvh,

Mika3lMedlem sedan nov. 20018 492 inlägg

25 nov. 2001 13:24#7

Tack Mikul!
Äntligen fungerade det!
Jag trodde man var tvungen att ha & runt om.

/Mika3l

@ndersMedlem sedan juni 200032 967 inlägg

25 nov. 2001 13:39#8

Aha!

Det råkade vara två användare med snarlika namn.

En liten grej bara:

Den select-fråga du har ställt, lämnar alltid ifrån sig ett tal. Är resultatet 0 så får du 0 tillbaka.

Så rent praktiskt kan du utelämna hela den sista if-satsen som kontrollerar om antalsvariabeln har ett värde.

Mvh,