Validering af forms

prøv, at erstatte :
If Brugernavn = "" Or Kode1 = "" Or Kode2 = "" Then Response.Redirect "utility.asp?method=fejl"

med :
If (Brugernavn = "") Or (Kode1 = "") Or (Kode2 = "") Then Response.Redirect "utility.asp?method=fejl"

Den linje fejler intet! Det er primært den her:

If Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl"

nu er jeg ikke så meget hjemme i asp, så jeg skyder lidt i blinde, men når du sammenligner to variable, skal du bruge et sammenlignings-lighedstegn - som er forskelligt fra et tildelings-lighedstegn

altså :
a = b    er en tildeling - variablen a får den værdi, som b har
a == b    er en sammenligning og bruges eks. i forbindelse med et if ... then statement

derfor vil jeg tro, at din linie :
If Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl"

skal hedde :
If Kode1 == Kode2 then response.Redirect "utility.asp?method=fejl"

Hehe, det lyder meget flot, men fungerer stadig ikke :/

Mon EAGLE-MAN kommer til undsætning? ;)

Hvad hvis du udskriver en linie tekst i stedet for at lave en redirect?

Sker stadig intet hvis jeg gør som du siger, men det burde alligevel ikke have nogen betydning.

Hmm - for træt til lige at kigge mere på det nu ...

Fandt lige en fejl fra min side. Istedet for at den skal sige:

if kode1 = kode 2 then response.redirect "lort.asp"

Vil jeg gerne have at hvis kode1 = kode2 så skal den begynde at gemme mine dataer. Håber I forstår hvad jeg mener?

har du prøvet, at erstatte dine tildelingslighedstegn med sammenligningslighedstegn ? (begge steder)

ja, men det hjælper stadig ikke på problemet da jeg ikke ved hvad jeg skal putte bagved "then" så den gemmer dataer hvis kode1 = kode2

Lader jeg den stå tom melder den fejl

Brugernavn = Replace(Trim(Request.Form("brugernavn")), "'", "''")
  Kode1 = Replace(Trim(Request.Form("kode1")), "'", "''")
  Kode2 = Replace(Trim(Request.Form("kode2")), "'", "''")

  If Brugernavn = "" Or Kode1 = "" Or Kode2 = "" Then Response.Redirect "utility.asp?method=fejl"

If Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl" end if

   
  Set Conn = Server.CreateObject("ADODB.Connection")
  set rs = server.createObject("adodb.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath(".../db/login.mdb")
    Conn.Open DSN
    rs.open DSN

        Dim IP
        IP = Request.Servervariables("REMOTE_ADDR")

sql = "select * from login where brugernavn = '"&Brugernavn&"'"
set rs = rs.execute(sql)
if rs.eof then
strSQL = "Insert into login (brugernavn, password, dato, tid, ip) values('" &Brugernavn& "','"  &Kode1& "', '"&date()&"', '"& time&"', '" & (IP) & "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
response.write "Brugeren er oprettet"
else
response.write "Der findes allerede en bruger med det navn"
end if

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


Jeg har bygget en metode ind til at chekke om der allerede er en bruger der har det brugernavn der forsøges oprettet, er der ikke det bliver brugeren oprettet.

Men mht. kode1 og kode2 skal de 2 koder så ikke være lig hinanden for at brugeren kan oprettes, skal det ikke være en sikkerhed for at brugeren er sikker på hvilken kode han har skrevet ?
hvis det skal være det, så skal denne linie:
If Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl" end if
rettes til:
If not Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl" end if

de end iffer jeg har sat på er ikke nødvendige, men jeg bruger dem fordi jeg synes det gør scriptet mere overskueligt, hvis der fx. står:

If not Kode1 = Kode2
  then response.Redirect "utility.asp?method=fejl"
end if

i stedet for:
If not Kode1 = Kode2 then response.Redirect "utility.asp?method=fejl"

Jo, som jeg vist også har tilføjet før var det en fejl fra min side. Men mange tak for hjælpen! Vil lige teste dit svar :)

Det ser

hov... det ser ud til at virke! mange tak.. her har du dine pts :)

argh... den gider ikke ud dele pts!

sådan :D

Takker for points c",)
..Ellebæk!