Looper totalt forkert

Jeg er måske lidt forvirret over dit script, men det der falder mig lidt i øjnene er:

set rs3 = Conn.Execute("select * From bruger where id")

where id = hvad, mangler der ikke noget her?

Forslag:

set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN = '" & Session("brugernick") & "')

BRUGERNAVN skal du så lige rette til det korrekte tabelnavn i databasen.

/Goose

hov, skulle vist være:

set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN = '" & Session("brugernick") & "'")

/Goose

Virker ikk rigtig ... kan godt se det er lidt rodet men ... tak for hjælpen ellers :D

hvad er det der går galt, får du nogen fejl eller ?

/Goose

Den looper ikk navnet

eller <%=rs2("mailAfsender")%

<%=rs2("mailAfsender")%> bliver ikk loopet kun en gang bliver den vist

jeg tror du skal have flyttet:
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN = '" & Session("brugernick") & "')

ned efter du er begyndt at loope, i øjeblikket ligger den før loopet af rs.

Prøv og flyt den ned efter:
<% else
Do until rs.eof %>


/Goose

Ja men nu viser den ingen <%=rs2("mailAfsender")%>

så kan ikk se om det virker
:(

hmm laved li rs3 om til denne

set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN")

så skete der noget men nu står der bare det samme navn hele vejen ned ???

Du har tilsyneladende lidt rod i dine loops, hvordan ser dit script ud nu ?

/Goose

<% if mode = "indbakke" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
                                         
'Opbygger recordset
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")

%>

<br>
                       
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr>
<td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="9%" height="30" background="img/bar.gif">&nbsp;</td>
<td width="38%"  background="img/bar.gif"><center><p><b>Overskrift</b></p></center></td>
<td width="28%"  background="img/bar.gif"><center><p><b>Afsender</b></p></center></td>
<td width="25%" background="img/bar.gif"><center><p><b>Skrevet d.</b></p></center></td>
</tr>
       
<% if rs.eof or rs.bof then %>

<tr>
<td valign="top"></td>
<td valign="top"><p>Du har ingen Beskeder i din Indbakke.</p></td>
</tr>

<% else
Do until rs.eof
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN")
%>


<tr>
       
<td height="30" valign="middle">     
<center><p>     
<%
'Forskelligt billede alt efter om emailen er læst/ulæst
if rs("mailread") <> True then %>
<img src="img/mail_unread.gif">
<% else %>
<img src="img/mail_read.gif">
<% end if %></p></center>
</td>

<td valign="middle"><p><b><a href="iframe.asp?vis=laesmail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></b></p></td>

<td valign="middle">

<% Do While Not rs3.EOF
set rs2 = Conn.Execute("select * From mail")
%>
           
<center><p><b><a href="iframe.asp?vis=vispersonprofil&id=<%=rs3("id")%>"><%=rs2("mailAfsender")%></a></b></p></center>
           
<%       
rs3.Movenext
Loop 
%> 

</td>   
   
<td valign="middle"><center><p><%=rs("mailDato")%></p></center></td>

<% rs.movenext
loop
end if %>

</tr>
</table>
</td>
</tr>
</table>

<center><p><b><a href="java script:history.back()">Tilbage</a></b></p></center>

<br>
                       
<%
rs.close
end if %>

hvordan ser din tabel ud i databasen der hedder: bruger

feltnavne og type ?

/Goose

ahh der er mange !

Brugernavn
Brugernick

Type: NOTAT

Prøv at bruge nedenstående, dog skal du lige rette følgende linier:

set rs3 = Conn.Execute("select * From bruger where brugernavn ='"& rs("MAILAFSENDER") &"'")

- hvor du skal rette MAILAFSENDER til det rigtige.

Derudover kan jeg godt forstå du ikke kan få >"><%=rs2("mailAfsender")%> til at virke, du åbner jo ikke rs2 nogen steder ?


<% if mode = "indbakke" then

'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
                                         
'Opbygger recordset
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")

%>

<br>
                       
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr>
<td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="9%" height="30" background="img/bar.gif">&nbsp;</td>
<td width="38%"  background="img/bar.gif"><center><p><b>Overskrift</b></p></center></td>
<td width="28%"  background="img/bar.gif"><center><p><b>Afsender</b></p></center></td>
<td width="25%" background="img/bar.gif"><center><p><b>Skrevet d.</b></p></center></td>
</tr>
       
<% if rs.eof or rs.bof then %>

<tr>
<td valign="top"></td>
<td valign="top"><p>Du har ingen Beskeder i din Indbakke.</p></td>
</tr>

<% else
Do until rs.eof
set rs3 = Conn.Execute("select * From bruger where brugernavn ='"& rs("MAILAFSENDER") &"'")
%>


<tr>
       
<td height="30" valign="middle">     
<center><p>     
<%
'Forskelligt billede alt efter om emailen er læst/ulæst
if rs("mailread") <> True then %>
<img src="img/mail_unread.gif">
<% else %>
<img src="img/mail_read.gif">
<% end if %></p></center>
</td>

<td valign="middle"><p><b><a href="iframe.asp?vis=laesmail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></b></p></td>

<td valign="middle">

<% Do While Not rs3.EOF
set rs2 = Conn.Execute("select * From mail")
%>
           
<center><p><b><a href="iframe.asp?vis=vispersonprofil&id=<%=rs3("id")%>"><%=rs3("mailAfsender")%></a></b></p></center>
           
<%       
rs3.Movenext
Loop 
%> 

</td>   
   
<td valign="middle"><center><p><%=rs("mailDato")%></p></center></td>

<% rs.movenext
loop
end if %>

</tr>
</table>
</td>
</tr>
</table>

<center><p><b><a href="java script:history.back()">Tilbage</a></b></p></center>

<br>
                       
<%
rs.close
end if %>

/Goose

Har ikke en rs("MAILAFSENDER") i min bruger tabel i databasen ?

undskyld, du åbner godt nok rs2, det overså jeg lige .. :o(

jeg skal desværre på job ...... men held og lykke

/Goose

næe, men det har du vel i tabellen: mail som rs refererrer til ?

/Goose

:P JAH

Nå men det virker ikk .... finder nok på noget andet ... tak for hjælpen ellers

Okay, jeg har ændret lidt i dit script, så prøv lige og brug den jeg har lavet herunder.
Du skal dog lige rette det jeg har skrevet med STORT til det dine aktuelle feltnavne

Bemærk at alle recordset der hedder rs henviser til tabellen "mail"
Bemærk at alle recordset der hedder rs3 henviser til tabellen "bruger"

Hvis det her heller ikke virker så er jeg nok nød til at have din database og din kode for at kunne se sammenhængen.


<% if mode = "indbakke" then

'Tjecker om brugeren er logget ind

if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
                                         
' recordset der henter alle mails til brugeren
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")
%>

<br>               
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr>
<td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="9%" height="30" background="img/bar.gif">&nbsp;</td>
<td width="38%"  background="img/bar.gif"><center><p><b>Overskrift</b></p></center></td>
<td width="28%"  background="img/bar.gif"><center><p><b>Afsender</b></p></center></td>
<td width="25%" background="img/bar.gif"><center><p><b>Skrevet d.</b></p></center></td>
</tr>
       
<%
' undersøger om der er nogen mails

if rs.eof or rs.bof then
%>

<tr>
<td valign="top"></td>
<td valign="top"><p>Du har ingen Beskeder i din Indbakke.</p></td>
</tr>

<%
' hvis der er mails, så fortsæt

else
Do while not rs.eof
%>
<tr>
<td height="30" valign="middle">     
<center><p>     
<%
'Forskelligt billede alt efter om emailen er læst/ulæst

if rs("mailread") <> True then %>
<img src="img/mail_unread.gif">
<% else %>
<img src="img/mail_read.gif">
<% end if %></p></center>
</td>

<td valign="middle"><p><b><a href="iframe.asp?vis=laesmail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></b></p></td>
<td valign="middle">

<%
' hent oplysninger om afsenderen
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN="& rs("NAVN_PÅ_BRUGER") &"")
%>
<center><p><b><a href="iframe.asp?vis=vispersonprofil&id=<%=rs3("id")%>"><%=rs3("BRUGERNAVN")%></a></b></p></center>

</td>         
<td valign="middle"><center><p><%=rs("mailDato")%></p></center></td>
<%
' luk recordset for brugeroplysninger
rs3.close
set rs3 = nothing

' hop videre til næste mail
rs.movenext
loop
%>
</tr>
</table>
</td>
</tr>
</table>

<center><p><b><a href="java script:history.back()">Tilbage</a></b></p></center>

<br>
<%
' luk recordsettet
rs.close
set rs = nothing

' luk databaseforbindelsen
conn.close
set conn = nothing

end if

%>


/Goose

- og selvfølgelig opdager man lige nogle fejl når man har sendt, brug dette istedet:

<% if mode = "indbakke" then

'Tjecker om brugeren er logget ind

if session("brugernavn") = "" then
Response.Redirect("iframe.asp?vis=login")
end if
                                         
' recordset der henter alle mails til brugeren
set rs = Conn.Execute("select * From mail where mailModtager = '" & Session("brugernick") & "' order by mailDato desc")
%>

<br>               
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid">
<tr>
<td height="54" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="9%" height="30" background="img/bar.gif">&nbsp;</td>
<td width="38%"  background="img/bar.gif"><center><p><b>Overskrift</b></p></center></td>
<td width="28%"  background="img/bar.gif"><center><p><b>Afsender</b></p></center></td>
<td width="25%" background="img/bar.gif"><center><p><b>Skrevet d.</b></p></center></td>
</tr>
       
<%
' undersøger om der er nogen mails

if rs.eof or rs.bof then
%>

<tr>
<td valign="top"></td>
<td valign="top"><p>Du har ingen Beskeder i din Indbakke.</p></td>
</tr>

<%
' hvis der er mails, så fortsæt

else
Do while not rs.eof
%>
<tr>
<td height="30" valign="middle">     
<center><p>     
<%
'Forskelligt billede alt efter om emailen er læst/ulæst

if rs("mailread") <> True then %>
<img src="img/mail_unread.gif">
<% else %>
<img src="img/mail_read.gif">
<% end if %></p></center>
</td>

<td valign="middle"><p><b><a href="iframe.asp?vis=laesmail&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%></a></b></p></td>
<td valign="middle">

<%
' hent oplysninger om afsenderen
set rs3 = Conn.Execute("select * From bruger where BRUGERNAVN='"& rs("NAVN_PÅ_BRUGER") &"'")
%>
<center><p><b><a href="iframe.asp?vis=vispersonprofil&id=<%=rs3("id")%>"><%=rs3("BRUGERNAVN")%></a></b></p></center>

</td>         
<td valign="middle"><center><p><%=rs("mailDato")%></p></center></td>
<%
' luk recordset for brugeroplysninger
rs3.close
set rs3 = nothing

' hop videre til næste mail
rs.movenext
loop

' luk recordsettet
rs.close
set rs = nothing

' luk databaseforbindelsen
conn.close
set conn = nothing

end if
%>
</tr>
</table>
</td>
</tr>
</table>

<center><p><b><a href="java script:history.back()">Tilbage</a></b></p></center>

<br>
<%
end if
%>


/Goose

svar
det virkede ikke