vælg ud fra kritierer og indsæt udskrift i database
jeg har følgende kode, hvor jeg henter alle brugere som har skrevet mindre end 40 indlæg, dem vil jeg så vælge og slette deres profilmen hvad er der galt i denne kode..
alternativt og nemmest vil jeg hente alle som har skrevet mere end de 41 og indsætte dem i en anden tabel, men hvad er nemmest, der skal jo så tjekkes for konflikt, findes den bruger med adgang til det sted allerede, flere brugere kan sagtens stå flere gange med adgang til forskellige mapper..
se her
<%@LANGUAGE="VBSCRIPT"%>
<%
Set database2 = Server.CreateObject ("ADODB.Connection")
database2.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("2000a.mdb"))
%>
<%
Set indlaeg = Server.CreateObject ("ADODB.Recordset")
indlaeg.Open "SELECT * FROM FORUM_MEMBERS order by MEMBER_ID", database2
%>
<html>
<head>
<title>Kære Dagbog</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
i = 1
While NOT indlaeg.EOF
Antaltegn = (indlaeg.Fields("M_POSTS"))
if Antaltegn > 39 then
if (indlaeg.Fields("M_NAME")) = "n/a" then
indlaeg.MoveNext
else
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("/2000a.mdb")
Conn.Open DSN
SQL="delete from FORUM_ALLOWED_MEMBERS where MEMBER_ID='"&(indlaeg.Fields("MEMBER_ID"))&"'"
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
end if
end if
indlaeg.MoveNext
Wend
%>
slut
</body>
</html>
<%
indlaeg.Close
Set indlaeg = Nothing
%>
svar inden midnat giver dobbelt op :o)
