sende uønskede medlemmer videre

Brug en array..
dim navne, arrNavne, Videre
Videre = "nej"

navne = "jens;ole;freak;osv"
arrNavne = split(navne, ";")
for i = LBound(arrNavne) to UBound(arrNavne)
  if session("UserName") = arrNavne(i) then Videre = "ja"
end if

if Videre = "ja" then response.redirect "http://www.yyyyyyyyy.dk/"

Jeg kan aldrig huske om der skal stå: UBound(arrNavne) - 1

Men her er et svar.. Håber du kan bruge det ..

Brugere = " Leo Sussi Kjeld Hilda "
If InStr(Brugere, " " & session("UserName") & " ") > 0 Then Response.Redirect ""

F.eks. ;)

Hvis du på et tidspunkt finder ud af, at du har adgang til FileSystemObject, kan du gemme navnene i en txt fil, og derefter læse den og danne strengen "navne"..

Det kunne man også :)

Ja, der er mange muligheder, men jeg ville hoppe ud af løkken i din løsning.

navne = "jens;ole;freak;osv"
arrNavne = split(navne, ";")
for i = LBound(arrNavne) to UBound(arrNavne)
  if session("UserName") = arrNavne(i) then response.redirect "http://www.yyyyyyyyy.dk/"
next

- eller med Exit For.

Alle veje fører til Rom.. eller noget i den stil :)

Jeg har adgang til FileSystemObject. Hvordan ville koden så skulle se ud?
Begge jeres svar virker så hvis jeg kan få FileSystemObject, så.....

navne.asp:
---
<%
'hans
'ole
'freak
%>
En besked til brugeren der prøver på at få adgang til navnene:
hahaha... du kan ikke se navnene ! :)
---

Scriptet der læser navne.asp:
---
<%
Option Explicit ' SKAL være den første linie i dit asp dokument!
' definer alle dine variabler!
Dim navne

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("navne.asp")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
    ' hvis linien starter med ', er det "gyldigt" og tilføjes navne
  if left(f.ReadLine, 1) = "'" then navne = navne & f.ReadLine & ";"
Loop

f.Close
set f = nothing

' her checker du om det er korrekt (skal slettes efter test):
repsonse.write "variablen 'navne' indeholder: " & navne


' indsæt din validering kode her:
%>
---

rettelse:

Linie = f.ReadLine
    ' hvis linien starter med ', er det "gyldigt" og tilføjes navne
  if left(Linie, 1) = "'" then navne = navne & Linie & ";"

..og definiring af Linie tilføjes:

Dim navne, Linie

Kan du lave det så jeg kan skrive navnet i en form? = flere points ;-)

Hvilket navn?
Hvad er det du vil? :)

Vil du skrive navnet i en form, og så skal den gemme den i filen?

yes

hmm... så skal der tænkes.. :)
..er ikke helt vant til FSO.. men det er ikke umuligt..

hmm.. her er en ide..

Pseudo kode:

der LÆSES fra navne.asp, og indholdet smide i en streng:
navne = "linie1;linie2;linie3;osv"

derefter SKRIVES der til navne.asp:
arrNavne = split(navne, ";")
skriv "<%"
for i = LBound(arrNavne) to Ubound(arrNavne)
skriv arrNavne(i)
next

skriv request.form("nyt_navn")

Jeg går i gang med det samme.. :)

ok

Et forslag. Kald din tekstfil for *.asp, så ingen kan få adgang til den og lav følgende struktur.

Leo
Sussi
Kjeld
Hilda

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("d:\sti\til\fil.asp", 1)
If InStr(File.ReadAll, vbCrlf & session("UserName") & vbCrlf) > 0 Then 'Redirect
Set File = Nothing
Set FSO = Nothing

netro> jeg bruger jo allerede en *.asp, og for at den ikke melder fejl, bruger jeg navnene som kommentarer.. f.eks.
'ole
'jens
osv..

Vi kan også bare kalde den "gyug675789jpg.dat", hvis det skal være. Den vil jo aldrig skulle afvikles.

Men hvis vi udkommenterer navne, ser det sådan ud.

If InStr(File.ReadAll, vbCrlf & "'" & session("UserName") & vbCrlf) > 0 Then 'Redirect

Det her er ikke testet, da min server brokker sig :)

<%
Option Explicit

If (Request.ServerVariables("REQUEST_METHOD") = "POST")
' læs fra fil:

Dim navne, Linie
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("navne.asp")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
Linie = f.ReadLine
    ' hvis linien starter med ', er det "gyldigt" og tilføjes navne
  if left(Linie, 1) = "'" then navne = navne & Linie & ";"
Loop

f.Close
set f = nothing

'skriv til fil:

dim arrNavne
arrNavne = split(navne, ";")
set f = fso.CreateTextFile(filespec, true)

f.WriteLine("<%")

for i = LBound(arrNavne) to Ubound(arrNavne)
  f.WriteLine(arrNavne(i))
next

f.WriteLine(request.form("adduser"))
f.WriteLine("%>")
f.WriteLine("Ingen adgang")

f.close
set f = nothing

dim msg
msg = "Brugernavnet '" & request.form("adduser") & "' er tilføjet."
end if
%>

<form name="adduser" action="index.asp" method="post">
<input type="text" name="adduser" value="">
<input type="submit" name="submit" value="Save">
</form>

<% if msg <> "" then response.write msg %>

doh! :)

  f.WriteLine("'" & arrNavne(i))

og:
f.WriteLine("'" & request.form("adduser"))

hmm.. jeg kan ikke lige teste det, men jeg mener at der skal stå:

navne = replace(navne, "'", "")
arrNavne = split(navne, ";")

Det virker ikke hos mig fejl 500 ?

Gå op i menuen funktioner > internetindstillinger > avanceret > fjern eller sæt kryds i "vis meddelelser om uskadelige http-fejl"

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

/test.asp, line 5

If (Request.ServerVariables("REQUEST_METHOD") = "POST")
-------------------------------------------------------^

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then

ja :)

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/test.asp, line 37

f.WriteLine("
-------------^

Hvilken linie er linie 37? er det den her?:
f.WriteLine("'" & request.form("adduser"))

hvis det er, så står der:
parentes anførelsestegn apostrof anførelsestegn

Andre ord for "anførelsestegn": citationstegn, gåseøjne.

f.WriteLine("%>")<-------37

Jeg tror ikke at den kan lige sammensætningen "%>" da det betyder "asp kode ender her".
Prøv f.WriteLine("%" & ">") i stedet.

Vent.. der er en fejl..
Og min server kører igen.. ved ikke hvorfor.. måske en af de der genstart-fix..

Så, nu virker det.. ny kode:

<%
Option Explicit
response.buffer = false

If (Request.ServerVariables("REQUEST_METHOD") = "POST") then
' læs fra fil:

Dim navne, Linie
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("navne.asp")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
Linie = f.ReadLine
    ' hvis linien starter med ', er det "gyldigt" og tilføjes navne
  if left(Linie, 1) = "'" then navne = navne & Linie & ";"
Loop

f.Close
set f = nothing

'skriv til fil:

dim arrNavne, i
navne = replace(navne, "'", "")
arrNavne = split(navne, ";")
set f = fso.CreateTextFile(filespec, true)

f.WriteLine("<%")

for i = LBound(arrNavne) to Ubound(arrNavne) - 1
  f.WriteLine("'" & arrNavne(i))
next

f.WriteLine("'" & request.form("adduser"))
f.WriteLine("%" & ">")
f.WriteLine("Ingen adgang")

f.close
set f = nothing

dim msg
msg = "Brugernavnet '" & request.form("adduser") & "' er tilføjet."
end if
%>

<form name="adduser" action="index.asp" method="post">
<input type="text" name="adduser" value="">
<input type="submit" name="submit" value="Save">
</form>

<% if msg <> "" then response.write msg %>

Ok. Den er der
Men hvor sender den navnet hen ?

Den smider den ned i din navne.asp. Kig i den.

Senere kan jeg muligvis lave det sådan, at den læser navnene, og laver en radiobutton/checkbox til hvert navn. Derefter kan du nemt administrerer hvem der skal stå i filen.

F.eks.
[ ] jens
[x] ole
[x] freak

Det virker ikke for mig. Den sender til siden index.asp og der kommer ikke noget i navne.asp selvom jeg ændrer det til <form name="adduser" action="navne.asp" method="post">

Oooook. Nu er den der. Det var bare mig der ikke var helt vågen. Jeg havde kaldt min side for test.asp

Ville du lave det med radiobotton? inden du får point?

<%
navne = "1;2;3;4;5;6;"
arrNavne = split(navne, ";")
for i = LBound(arrNavne) to UBound(arrNavne)
  if session("devUserName") = arrNavne(i) then response.redirect "http://yyyyyyyyyyyyyy.hj/"
next

%>
Hvordan får vi det her på plads?

Behøvede du ligefrem at afvise mit svar?

Både jeg og thesurfer gav dig to korrekte svar på dit spørgsmål til at starte med. At du fylder flere og flere tillægsspørgsmål på hele tiden, ændrer jo ikke på, at dit spørgsmål ret beset forlængst er besvaret. Det er ikke et brud på reglerne, da du har uddelt dine points. Jeg finder det blot knap så sympatisk.

Jeg gav dem til thesurfer fordi han lavede det største stykke arbejde. Men du har ret du gjorde også dit.

Ingen tvivl om det - mit svar var rimelig kortfattet, men jeg mente sådan set, at det var et ret præcist svar på dit spørgsmål. Men lad nu det ligge...

netro> Jeg vil meget gerne dele de 100 points med dig. Læg et svar på:
http://www.eksperten.dk/spm/441690