Udskriv data en gang
Jeg sidder med et script, hvor scriptet skriver alt ud via RS.MoveNext. Jeg vil gerne have RS.MoveNext væk fra mit script, så det kun skriver data ud en gang. hvordan gør jeg det?<% response.buffer = true %>
<font size = '1' face='Verdana'>
<style TYPE="text/css">
a:link { text-decoration: none ; color:#573507 }
a:visited { text-decoration: none ; color:#573507 }
a:active { text-decoration: none ; color: #573507 }
a:hover { text-decoration: underline and overline ; color: #573507 }
</style>
</head>
<body>
<br>
<%
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")
Sql = "Select * FROM stamdata"
set rs = rs.Execute(SQL)
do while not RS.EOF
Response.Write "<table cellpadding='2' cellspacing='0' >"
Response.Write "<tr>"
Response.Write "<td><strong>Medlem siden</strong></td>"
Response.Write "<td>" & rs("dato")& "</td>"
Response.Write "</tr>"
navn = rs("nick")
id = rs("id")
SET rs2 = Server.CreateObject("ADODB.Connection")
rs2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")
Sql2 = "Select * FROM users where navn = '" & navn & "'"
set rs2 = rs2.Execute(SQL2)
Response.Write "<center><a href='profil.asp?id=" & id & "&navn=" & navn & "'>Profil</a>"
Response.Write "<a href='guestbook.asp?id=" & id & "&navn=" & navn & "'>Gæstebog</a>"
Response.Write "<a href='blog.asp?id=" & id & "&navn=" & navn & "'>Dagbog</a>"
Response.Write "<a href='maal.asp?id=" & id & "&navn=" & navn & "'>Vægtskema</a></center><p>"
Response.Write "profil for " & rs("nick")& ""
RS2.Close
set RS2 = nothing
if len(rs("rigtigenavn")) > 0 then
Response.Write "<tr>"
Response.Write "<td><strong>Navn:</strong></td>"
Response.Write "<td>" & rs("rigtigenavn")& "</td>"
Response.Write "</tr>"
else
end if
if len(rs("alder")) > 0 then
Response.Write "<tr>"
Response.Write "<td><strong>Alder:</strong></td>"
Response.Write "<td>" & rs("alder")& " år</td>"
Response.Write "</tr>"
else
end if
Response.Write "<td><strong>Fødselsdag:</strong></td>"
Response.Write "<td>" & rs("fdag")& "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td><strong>Køn:</strong></td>"
Response.Write "<td>" & rs("kon")& "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td><strong>Landsdel:</strong></td>"
Response.Write "<td>" & rs("land")& "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td><strong>Beskæftigelse:</strong></td>"
Response.Write "<td>" & rs("job")& "</td>"
Response.Write "</tr>"
Response.Write "</td></tr></table>"
Response.Write "<table class='box' cellpadding='0' cellspacing='1' style='width:100%'>"
Response.Write "<tr>"
Response.Write "</td></tr></table><p>"
Response.Write "<h1>Profiltekst</h1>"
Response.Write "<table cellpadding='2' cellspacing='0' >"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "" & rs("profil")& ""
Response.Write "</td></tr></table>"
if len(rs("profil")) > 0 then
else
end if
Response.Write ""
Response.Write ""
RS.MoveNext
loop
RS.Close
set RS = nothing
%>
