Voor een intranetapplicatie heb ik een soort forum geschreven.
Men kan rubrieken aanmaken en zich daarop abboneren. indien met de rubriek aanvinkt krijgt men een e-mail als er een nieuwe post in wordt gezet.
Nu merk ik dat bij sommige gebruikers de code anders reageert als bij anderen.
Hoe het zou moeten werken is als volgt.
De gebruiker kan 2 linkjes aanklikken, "e-mail aan" en "e-mail uit".
Indien een van deze 2 wordt aangeklikt zal de gebruikersID en het rubriekID opgeslagen worden in een SQL tabel. Afhankelijk van de keuze wordt er ook "aan" of "uit" bijgezet.
Nu zie ik dat bij sommige gebruikers de cel "mail" leeg blijft en de rubriekId en gebruikersID wel wordt gevuld.
De betreffende code is:
Ik denk dat er iets tussen regel 19 en 27 niet helemaal goed, ik kan alleen niet ontdekken wat.
Men kan rubrieken aanmaken en zich daarop abboneren. indien met de rubriek aanvinkt krijgt men een e-mail als er een nieuwe post in wordt gezet.
Nu merk ik dat bij sommige gebruikers de code anders reageert als bij anderen.
Hoe het zou moeten werken is als volgt.
De gebruiker kan 2 linkjes aanklikken, "e-mail aan" en "e-mail uit".
Indien een van deze 2 wordt aangeklikt zal de gebruikersID en het rubriekID opgeslagen worden in een SQL tabel. Afhankelijk van de keuze wordt er ook "aan" of "uit" bijgezet.
| Id | rubriekId | gebruikersID | |
| 11 | 100 | 200 | aan |
Nu zie ik dat bij sommige gebruikers de cel "mail" leeg blijft en de rubriekId en gebruikersID wel wordt gevuld.
De betreffende code is:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
| Gebruiker = Session("Name")
ShowQuery = "SELECT * FROM rubrieken ORDER BY rang"
Set objRsShow = Conn.Execute (ShowQuery)
%>
<table border = "1" align = "center" cellspacing = "0" cellpadding = "1">
<tr>
<td><b>Rubriek</b></td><td colspan="2"><b>E-mail</b></td>
</tr>
<% Do Until objRsShow.EOF
UserIdQuery = "SELECT * FROM tblUsers WHERE name = '"&Gebruiker&"'"
Set objRsUserIdQuery = Conn.Execute (UserIdQuery)
VarUserId = objRsUserIdQuery("UserId")
RubriekId = objRsShow("Id")
ControlQuery = "SELECT * FROM MailRubriek WHERE RubriekId="& RubriekID &" AND UserId="& VarUserId &""
Set objRsControlQuery = Conn.Execute (ControlQuery)
If objRsControlQuery.EOF then
Plaatje= "uit"
else
If objRsControlQuery("Mail") = "aan" then
Plaatje= "aan"
end if
If objRsControlQuery("Mail") = "uit" then
Plaatje= "uit"
end if
end if
%>
<tr>
<td><%Response.Write objRsShow("rubrieken")%></td>
<td align="center">
<%if Plaatje="aan" then
%><img src="../images/mail-aan.jpg" border="0"><%
end if
if Plaatje = "uit" then
%><img src="../images/mail-uit.jpg" border="0"><%
end if%>
</td>
<td>
<a href=SaveMailRubrieken.asp?RubriekId=<%Response.Write objRsShow("Id")%>&VarGebruiker=<%Response.Write Gebruiker%>&Mail=aan target=_self>aan</font></a>
<a href=SaveMailRubrieken.asp?RubriekId=<%Response.Write objRsShow("Id")%>&VarGebruiker=<%Response.Write Gebruiker%>&Mail=uit target=_self>uit</font></a>
</td>
<%objRsShow.MoveNext
Loop %>
</table> |
Ik denk dat er iets tussen regel 19 en 27 niet helemaal goed, ik kan alleen niet ontdekken wat.