Søg
Avatar billede duno Nybegynder
11. maj 2007 - 14:13 Der er 5 kommentarer og
1 løsning

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 profil

men 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)
Avatar billede duno Nybegynder
11. maj 2007 - 14:13 #1
hmm rigtigt svar naturligvis :o)
Avatar billede ellebaek Nybegynder
11. maj 2007 - 17:50 #2
Sker der ingen ting når du kører den kode du viser eller?

Umiddelbart er der noget i vejen med den måde du hopper videre på...
Du springer den næste over hvis brugernavnet er "n/a",  (med 2xmovenext) det skulle gerne kunne fikse det  med denne kode...

i = 1
While NOT indlaeg.EOF
Antaltegn = (indlaeg.Fields("M_POSTS"))
if Antaltegn > 39 then
if not (indlaeg.Fields("M_NAME")) = "n/a" then

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>
Avatar billede ellebaek Nybegynder
11. maj 2007 - 17:51 #3
Reducerer lige lidt mere i koden :-)


i = 1
While NOT indlaeg.EOF
Antaltegn = CInt(indlaeg.Fields("M_POSTS"))
if Antaltegn > 39 AND not (indlaeg.Fields("M_NAME")) = "n/a" then

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
indlaeg.MoveNext
Wend
Avatar billede duno Nybegynder
12. maj 2007 - 00:01 #4
SUPER ARBEJDE ellebaek

send svar :o)
Avatar billede ellebaek Nybegynder
13. maj 2007 - 01:12 #5
Jeg smider et svar her :-)

Glad for at jeg kunne hjælpe..

Mvh. Jens
Avatar billede duno Nybegynder
13. maj 2007 - 12:07 #6
som lovet fordobler jeg :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:40 Nye toldregler = nye svindelmuligheder Af nu_igen i Andet software
09/0715:37 Et wifi net til en kolonihave uden wifi Af Andershoegh i Andet hardware
09/0714:29 IIS Kan ikke Redirecte til anden side Af bsn i Webservere
09/0714:19 ESET Af hkprofil i Backup- & Antivirus
09/0712:16 diskpart - slet harddisk Af Uvanga i Windows
White papers
Flere white papers »