En sætning var ventet

Der er et end if for meget

hjælper ikke hvis jeg fjerne en "end if"

Hvilken en af linierne er linie 33?

if Not autoriseret.EOF then
    Session("validering") = "valid"
    if funktion ="opret" then
      Response.Redirect("opret.asp?id=" & id)
    elseif funktion="opdater" then Response.Redirect("opdater.asp?id=" & id)
    else
      Response.Redirect("slet.asp?id=" & id)
    End if
End if
%>

skal du ikke lave et request til den id, eller hvor får du den fra?

prøv lige det her

if Not autoriseret.EOF then
Session("validering") = "valid"
if funktion ="opret" then
  Response.Redirect("opret.asp?id=" & id)
elseif funktion="opdater" then
  Response.Redirect("opdater.asp?id=" & id)
else
  Response.Redirect("slet.asp?id=" & id)
End if
End if
%>

så vidt ejg ved kan man nemlig ikke gøre det her i vbscript .:
if funktion ="opret" then Response.Redirect("opret.asp?id=" & id)

mccannon.>> man kan godt gøre sådan her:

if funktion ="opret" then Response.Redirect("opret.asp?id=" & id)


Men man kan ikke havde en else eller elseif på som her:
if funktion ="opret" then Response.Redirect("opret.asp?id=" & id)
else
  Response.write "XXX"
end if

Så skal det skrives sådan her:

if funktion ="opret" then
  Response.Redirect("opret.asp?id=" & id)
else
  Response.write "XXX"
end if

heh menter nok der var et eller andet med det :)

Hvad nu!?

<%
Set autoriseret = Server.CreateObject("ADODB.Recordset")
autoriseret.Open "SELECT * FROM adgang WHERE brugernavn ='" & brugernavn & "' AND adgangskode="' & adgangskode & "'", database

if Not autoriseret.EOF then
Session("validering") = "valid"
if funktion ="opret" then
  Response.Redirect("opret.asp?id=" & id)
elseif funktion="opdater" then
  Response.Redirect("opdater.asp?id=" & id)
else
  Response.Redirect("slet.asp?id=" & id)
End if
End if
%>
%>

Fejltype:
ADODB.Recordset (0x800A0E7D)
Forbindelsen kan ikke bruges til at udføre denne handling. Den er enten lukket eller ugyldig i denne sammenhæng.
/kap4/validering.asp, line 24

autoriseret.Open "SELECT * FROM adgang WHERE brugernavn =" & brugernavn

er det ikke nok?

du mangler en connection
Set Conn = Server.createobject("ADODB.Connection")
      Conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb")

mccannon << Den er inkluderet

ice << det er skrevet af fra en bog, så det skal være sådan :)

må man se den conenction kode ?

Ligger lige hele min kilde ud, et øjeblik

Selve koden: http://kim.frip.dk/eksperten/validering.txt

Forbindelse: http://kim.frip.dk/eksperten/forbindelse.txt

Og når jeg tester mit script, ser det sådan ud: http://kim.frip.dk/eksperten/shot.jpg

database.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\db\dagbog.mdb")

prøv lige at fjerne de ()

ved ikke om det hjælper

oh og når du bruger response.redirect
skal du lige huske at sætte det helt i toppen af siden

response.buffer = True

if Session("validering") = "valid" then
    if funktion = "opret" then Response.Redirect("opret.asp?id=" & id)
    elseif funktion ="opdater" then Response.Redirect("opdater.asp?id=" & id)
    Else
    Response.Redirect(slet.asp?id=" & id)
    end if
End if
ret det til .:
if Session("validering") = "valid" then
if funktion = "opret" then
  Response.Redirect("opret.asp?id=" & id)
elseif funktion ="opdater" then
  Response.Redirect("opdater.asp?id=" & id)
Else
  Response.Redirect(slet.asp?id=" & id)
end if
End if

If Request.QueryString("submit") <> "" Then

den linie mangler en  end if
og du har 2 slut asp tag til sidste

Nu siger den:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03F6)
'End' var ventet
/kap4/validering.asp, line 60

P.s. i skal nok få mere end 15 point!

Se bort fra mit indlæg :)

Tak for hjælpen!!!