11 svar · 331 visningar · startad av Mav
Hej!
Är inte så super haj på asp så jag hoppas ngn kan hjälpa till.
Så här är tanken: Man loggar in med användarnamn och lösen. Man kommer då till en sida där jag vill få upp en lista på alla projekt som finns under mitt kundnr. Man ska sedan kunna klicka sig vidare för att läsa mer om resp. projekt.
Jag har kommit så långt att jag loggar in men får bara upp det första projektet, tyvärr inte alla som jag skulle vilja...
Här är koden
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid
If RS.EOF Then
Response.Redirect("../feluser.asp")
End If
If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp")
End If
%>
.....
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
.....
Har du mer kod där du skrivit ...?
.....
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
.....
För att se fler så lär en loop finnas på sidan, typ:
While Not rs.eof
response.write "<a href=""kampanjinfo.asp?ID=" & rs("ID") & """>" & rs("Kampanjid") & "</a>"
rs.MoveNext
Wend
Eftersom din kod inte verkar vara fullständig, förutsätter jag att du inte har med detta:
<% do until rs.eof %>
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
%>
Tack! Precis så jag ville ha det, skall nu krångla till det lite :)
Har ett fält i databasen som heter "trk". Jag vill även här få upp en lista på dem men bara om det står "Ja" i "trk" fältet. Alltså behövs det en "if" sats ngnstans...
Har testat denna men får inte upp ngt
<%
If trk = Ja Then
do until rs.eof %>
<a href=trkinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
End If
%>
Det fixar du enklast i din SQL-fråga:
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "' [b]AND trk = 'Ja'[/b]"
Men, om fältet trk är av typen Ja/Nej, så ska det se ut så här i stället:
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "' [b]AND trk = True[/b]"
Mvh,
Tack men det fungerar inte eftersom jag har andra saker jag ska visa som har trk = nej.
Så här ser hela koden på sidan ut, har hoppat över html delen...
Här är SQL frågan...
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid
If RS.EOF Then
Response.Redirect("../feluser.asp")
End If
If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp")
End If
%>
............
Här listar jag alla poster som finns på mitt kundnr....
<% do until rs.eof %>
<a href=infokampanj.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>, Trk: <%=rs("trk")%>
<br>
<% rs.movenext
loop
%>
............
Här vill jag då lista de som har trk = ja...
<%
If trk = Ja Then
do until rs.eof %>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
End If
%>
Ok, då förstår jag. Jag trodde du endast hade den koden du visade.
Du kör en rs.movefirst innan du börjar loopa igenom ditt recordset igen?
Vilken datatyp är fältet i tabellen? Är det text eller är det av Ja/Nej-typ?
Om det är text:
<%
do until rs.eof
If rs("trk") = "Ja" Then
%>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
Om det är Ja/nej:
<%
do until rs.eof
If CBool(rs("trk")) Then
%>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
Mvh,
Har provat precis som du skrev (textvarianten) men då listas inget trots att det finns "Ja" på flera poster i databasen. Har dubbelkollat den så att jag inte skrivit fel men allt är ok.
Vad kan det bero på att det inte listas?
Ok,
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid
If RS.EOF Then
Response.Redirect("../feluser.asp")
End If
If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp")
End If
%>
<html>
<body>
<b><%=rs("Kundnamn")%></b>
<br>
<br>
<% do until rs.eof %>
<a href=infokampanj.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>, Trk: <%=rs("trk")%>
<br>
<% rs.movenext
loop
%>
<br>
<br>
<%
do until rs.eof
If rs("trk") = "Ja" Then
%>
<a href=trkinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
</body>
</html>
@nders skrev:
Du kör en rs.movefirst innan du börjar loopa igenom ditt recordset igen?
Alltså: Du måste göra en rs.movefirst innan du kan loopa igenom ditt recordset om du ska göra det en andra gång.
Tusen tack!!!
Det fattade inte jag...