Det blir fel eftersom newMail och/eller newGB är EOF.
Ta bort reciever resp toUser ur select-listan på dessa sökningar, och fimpa "group by". Ta bort minustecknet också, eftersom det är märkligt :)
Frågan#1
När man är ny medlem och inte har några poster så visas ett felmeddelande.....det ska stå att man inte har nåra nya gb eller pm
<%UserID = Request.Cookies("webbisnet")("UserID")
If "" & UserID = "" Then
response.write "<script language='javascript'>"
response.write "parent.location.href='/timeout.asp'"
response.write "</script>"
else
Set rs=objConn.Execute("SELECT mailRead FROM tblUsers_imail where reciever="&UserID)
Set rs1=objConn.Execute("SELECT gbRead FROM tblUsers_guestbook where toUser="&UserID)
Set newMail=objConn.Execute("SELECT reciever, -Sum(mailRead) AS mAntal FROM tblUsers_imail where reciever="& UserID &" GROUP BY reciever")
Set newGB=objConn.Execute("SELECT toUser, -Sum(gbRead) AS gbAntal FROM tblUsers_guestbook where toUser="& UserID &" GROUP BY toUser")
%>
<html>
<head>
<title></title>
<LINK TYPE="text/css" REL="StyleSheet" HREF="/include/css/style.css">
<meta http-equiv="refresh" content="30">
</head>
<body style="<%=mainBGColor%>; margin:margin-top:0px; margin-right:0px; margin-bottom:0px; margin-left:0px;">
<table border="0" width="450"><tr><td>
<%If clng(newMail("mAntal")) = 0 Then%>
<a class="menu" target="_parent" href="/mail/meddelanden.asp">Inga nya PM</a>
<%ElseIf clng(newMail("mAntal")) = 1 Then%>
<a class="menu" target="_parent" href="/mail/meddelanden.asp">
<span class="menu" title="Du har <%=newMail("mAntal")%> oläst pm">
<img border="0" src="/images/icons/email.gif"> Du har <%=newMail("mAntal")%> oläst pm</span></a>
<%ElseIf clng(newMail("mAntal")) > 1 Then%>
<a class="menu" target="_parent" href="/mail/meddelanden.asp">
<span class="menu" title="Du har <%=newMail("mAntal")%> olästa PM">
<img border="0" src="/images/icons/email.gif"> Du har <%=newMail("mAntal")%> olästa PM</span></a>
<%End If%>
|
<%If clng(newGB("gbAntal")) = 0 Then%>
<a class="menu" target="_parent" href="/guestbook/myGB.asp">Inga nya GB-inlägg</a>
<%ElseIf clng(newGB("gbAntal")) = 1 Then%>
<a class="presentation" target="_parent" href="/guestbook/myGB.asp">
<span style="size:18px; font:Arial, Helvetica, sans-serif;" title="Du har <%=newGB("gbAntal")%> oläst GB-inlägg">
<img border="0" src="/images/icons/CareerResources.gif"> Du har <%=newGB("gbAntal")%> oläst GB-inlägg</span></a>
<%ElseIf clng(newGB("gbAntal")) > 1 Then%>
<a class="presentation" target="_parent" href="/guestbook/myGB.asp">
<span style="size:18px; font:Arial, Helvetica, sans-serif;" title="Du har <%=newGB("gbAntal")%> olästa GB-inlägg">
<img border="0" src="/images/icons/CareerResources.gif"> Du har <%=newGB("gbAntal")%> olästa GB-inlägg</span></a>
<%End If
End If
%>
</td></tr></table>
</body>
</html>