Det är inte så konstigt.
Du get variabeln VisaCitat sitt värde utanför loopen, dvs, du förändrar aldrig dess värde.
Mvh,
------------------
Let your body decide
2 svar · 177 visningar · startad av colione
Jag hämtar Nr och text från en databas. Nummer-hämntningen går som den skall, men den skriver ut samma text på varje rad.....kan någon hjälpa mej med detta.
<%if Request.Querystring("open")="del1" then%>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\applications\citatdatabas\data\citat.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT * FROM citat ORDER BY Citat"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic
VisaCitat = RecSet("Citat")%>
Följande citat finns att radera/ändra.<p>
<ul>
<table>
<%
bgcolor="#ffffff"
Do Until RecSet.EOF
if bgcolor="#e9f0f9" then
bgcolor="#e9f0e9"
else
bgcolor="#e9f0f9"
end if
%>
<tr bgcolor="<%=bgcolor%>">
<td><font face=verdana size="1"><li>
<% =VisaCitat %><br>
<a href="default.asp?open=yes&what=deleteitnow&delID=<% =RecSet("ID") %>&Citat=<% Response.Write Server.URLEncode(""& VisaCitat &"")%>">Radera citat</a> | <a href=default.asp?open=yes&what=edititnow&delID=<% =RecSet("ID") %>>Ändra citat</a>
<br></font></td>
</tr>
<% RecSet.MoveNext
Loop
RecSet.Close %>
------------------
Platform : Thing to stand on
_________________
What do a Christmas tree and priest have in common?
Their balls are just for decoration.
__________________
Det är inte så konstigt.
Du get variabeln VisaCitat sitt värde utanför loopen, dvs, du förändrar aldrig dess värde.
Mvh,
------------------
Let your body decide
ok tack...det var så enkelt
------------------
Platform : Thing to stand on
_________________
What do a Christmas tree and priest have in common?
Their balls are just for decoration.
__________________