Tjek om indtastet ID allerede findes

Alle menupunkterne bliver hevet ud v.hj.a. en løkke, og det er RS("priorityID"), der ikke må forekomme 2 gange:



Brugeren indtaster oplysningerne i mainpriority:

<input type="text" name="mainpriority" size="<%=Size3%>" class="input1">



Der skal så tjekkes, at den værdi, som brugeren indtaster, ikke allerede findes i databasen:

<input type="text" name="mainpriority" size="<%=Size3%>" value ="<%=RS("priorityID")%>" class="input1">

På den side hvor du gemmer prioriteten, skal du have følgende kode:

prioritet = request("priorityID")
set antal = conn.execute("select count(id) as antal from menumain where priorityID =" & prioritet)
if antal("antal") > 0 then
  'fejlbesked
else
  'gem prioriteten
end if

YO! :)

Det scriptet laver, er vel at tælle antallet af poster?

Det skulle jo helst tjekke, at hvis brugeren indtaster værdien 10, at den så ikke allerede er blevet tildelt til et andet menupunkt.

ja, det tæller antallet af poster, der har den specifikke priorityID.

Hvis antallet er større end 0, så findes prioriteten i forvejen.

http://www.include.dk/borch/admin/menus/editmain.asp

Aahhh, det er da klart! :)

Prøver lige

Jeg får en fejl:

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'priorityID ='.

/borch/admin/menus/updatemain.asp, line 17


Og her er koden:

<!-- #include virtual="/borch/includes/conn.asp" -->
<%
id = Request("ID")
vName = Request("nameofmainmenu")
vPriority = Request("mainpriority")
ToDo = Request("ToDo")

If ToDo = "updatemain" Then
    Conn.Execute("UPDATE menumain SET mainmenu='" & vName & "', priorityID=" & vPriority & " WHERE id=" & id)
    Response.Redirect("editmain.asp?status=1&editmain=" & vName & "")
ElseIf ToDo = "delete" Then
    Conn.Execute "DELETE FROM menumain WHERE ID = " & id
    Conn.Execute "DELETE FROM menusub WHERE parent = " & id
    Response.Redirect("editmain.asp?status=2&deletedmainmenu=" & vName & "")
Else
    Response.Write priorityID
    ChechPriorityID = Request("priorityID")
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & ChechPriorityID)
    If antal("antal") > 0 Then
    Response.Write "Denne ID er allerede taget" 'fejlbesked
    Else
        Conn.Execute("INSERT INTO menumain (mainmenu, priorityID) VALUES('" & vName & "', " & vPriority & ")")
    End If

    Response.Redirect("editmain.asp?status=3&newmainmenu=" & vName & "")
End If
Conn.Close
%>

Sorry:

<!-- #include virtual="/borch/includes/conn.asp" -->
<%
id = Request("ID")
vName = Request("nameofmainmenu")
vPriority = Request("mainpriority")
ToDo = Request("ToDo")

If ToDo = "updatemain" Then
    Conn.Execute("UPDATE menumain SET mainmenu='" & vName & "', priorityID=" & vPriority & " WHERE id=" & id)
    Response.Redirect("editmain.asp?status=1&editmain=" & vName & "")
ElseIf ToDo = "delete" Then
    Conn.Execute "DELETE FROM menumain WHERE ID = " & id
    Conn.Execute "DELETE FROM menusub WHERE parent = " & id
    Response.Redirect("editmain.asp?status=2&deletedmainmenu=" & vName & "")
Else
    CheckPriorityID = Request("priorityID")
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & CheckPriorityID)
    If antal("antal") > 0 Then
    Response.Write "Denne ID er allerede taget" 'fejlbesked
    Else
        Conn.Execute("INSERT INTO menumain (mainmenu, priorityID) VALUES('" & vName & "', " & vPriority & ")")
    End If

    Response.Redirect("editmain.asp?status=3&newmainmenu=" & vName & "")
End If
Conn.Close
%>

Prøv:

<!-- #include virtual="/borch/includes/conn.asp" -->
<%
id = Request("ID")
vName = Request("nameofmainmenu")
vPriority = Request("mainpriority")
ToDo = Request("ToDo")

If ToDo = "updatemain" Then
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority)
    If antal("antal") > 0 Then
        Response.Write "Denne ID er allerede taget" 'fejlbesked
    Else
        Conn.Execute("UPDATE menumain SET mainmenu='" & vName & "', priorityID=" & vPriority & " WHERE id=" & id)
        Response.Redirect("editmain.asp?status=1&editmain=" & vName & "")
    end if
ElseIf ToDo = "delete" Then
    Conn.Execute "DELETE FROM menumain WHERE ID = " & id
    Conn.Execute "DELETE FROM menusub WHERE parent = " & id
    Response.Redirect("editmain.asp?status=2&deletedmainmenu=" & vName & "")
Else
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority)
    If antal("antal") > 0 Then
        Response.Write "Denne ID er allerede taget" 'fejlbesked
    Else
        Conn.Execute("INSERT INTO menumain (mainmenu, priorityID) VALUES('" & vName & "', " & vPriority & ")")
    End If

    Response.Redirect("editmain.asp?status=3&newmainmenu=" & vName & "")
End If
Conn.Close
%>

En lille ting:

Din Response.Write "Denne ID er allerede taget" vil aldrig blive vist, da den redirecter til en anden side med det samme. Istedet kan du måske bruge:
Response.Redirect("editmain.asp?status=4")

hvor status=4 giver fejlmeddelelsen på editmain.asp

S'føli! Smider den lige ind.

ok, det bliver vist ved en update, men det er stadig bedre at vise fejlbeskeden på editmain.asp

Det kan vel også blive ved oprettelse, hvis jeg laver det på denne måde:

<!-- #include virtual="/borch/includes/conn.asp" -->
<%
id = Request("ID")
vName = Request("nameofmainmenu")
vPriority = Request("mainpriority")
ToDo = Request("ToDo")

If ToDo = "updatemain" Then
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority)
    If antal("antal") > 0 Then
        Response.Write "Denne ID er allerede taget" 'fejlbesked
    Else
        Conn.Execute("UPDATE menumain SET mainmenu='" & vName & "', priorityID=" & vPriority & " WHERE id=" & id)
        Response.Redirect("editmain.asp?status=1&editmain=" & vName & "")
    End If
ElseIf ToDo = "delete" Then
    Conn.Execute "DELETE FROM menumain WHERE ID = " & id
    Conn.Execute "DELETE FROM menusub WHERE parent = " & id
    Response.Redirect("editmain.asp?status=2&deletedmainmenu=" & vName & "")
Else
    SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority)
    If antal("antal") > 0 Then
        Response.Redirect("editmain.asp?status=4")
    Else
        Conn.Execute("INSERT INTO menumain (mainmenu, priorityID) VALUES('" & vName & "', " & vPriority & ")")
    End If

    Response.Redirect("editmain.asp?status=3&newmainmenu=" & vName & "")
End If
Conn.Close
%>


- og på editmain.asp udskriver fejlen, hvis status=4?

Det bør jo også tjekkes ved update, når jeg tænker efter :)

hov, jeg har sgu lavet en fejl

linien:
SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority)

skal skiftes ud med:
SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority & " and id <> " & id)

SKal skiftes begge steder. Hvis overskriften har prioriteten i forvejen, skal den selvfølgelig have lov til at gemme alligevel.

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'priorityID =10 and id <>'.

/borch/admin/menus/updatemain.asp, line 21



Linie21:
SET antal = Conn.Execute("SELECT count(id) AS antal FROM menumain WHERE priorityID =" & vPriority & " AND id <> " & id)

Den mangler den sidste id?

AND id <> " & id)

Hmm, efter nærmere omtanke, var det kun ved "update" linien skulle skiftes.

Ved "Else" skal du skifte tilbage igen. Jeg er vist ved at være lidt træt i hovedet :-)

Så er vi to :oD

Prøver igen :)

Så er den der sq! Smid et svar :)

svar

Takker igen-igen :)

God weekend, og sov godt :)

i lige måde :-)