Kan man posta ett tomt fält för en ny meny?? Om jag inget skriver i fältet uid så ska det bli en "huvudmeny" men det går ej å posta så! Hur gör man då?? Det går att lägga till undernamn i menyn men inte huvuidmeny! Varför?
<%Function Meny(Conn, HuvudId)
If HuvudId <> 0 Then
Set RS = Conn.Execute("Select *, (Select Count(*) From meny as SubMeny Where SubMeny.uid = Meny.id) as SubMenus From meny Where meny.uid = " & HuvudId)
Else
Set RS = Conn.Execute("Select *, (Select Count(*) From meny as SubMeny Where SubMeny.uid = Meny.id) as SubMenus From meny Where meny.uid Is Null")
End If
If Not RS.EOF Then
Set Id = RS("id")
Set Namn = RS("namn")
Set SubMenus = RS("SubMenus")
Response.Write "<table border=0 cellPadding=0 cellSpacing=0>"
Do
vID = Id
vText = Namn
vSubMenus = SubMenus
RS.MoveNext
If RS.EOF Then
Response.Write "<tr><td width=12px background=bilder/end.gif></td>"
Else
Response.Write "<tr><td width=12px background=bilder/main.gif></td>"
End If
Response.Write "<td>" & vId & " - " & vText & "</td></tr>"
If vSubMenus > 0 Then
If RS.EOF Then
Response.Write "<tr><td width=12px></td><td>"
Else
Response.Write "<tr><td width=12px background=bilder/left.gif></td><td>"
End If
Meny Conn, vId
Response.Write "</td></tr>"
End If
Loop Until RS.EOF
Response.Write "</table>"
End if
End Function
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/meny.mdb")
Meny Conn, 0%>
<table width="200" border="0">
<form method="post" action="index.asp?do=spara">
<tr>
<td height="10"><hr></td>
</tr>
<tr>
<td><font size="2">Lägg till i menyn:</font></td>
</tr>
<tr>
<td height="10"><hr></td>
</tr>
<tr>
<td>Menynamn:<br><input type name="namn" size="25"></td>
</tr>
<tr>
<td>UID:<br><input type name="uid" size="10"></td>
</tr>
<tr>
<td><input type="submit" value="Lägg till"></td>
</tr>
</form>
</table>
<%If Request.Querystring("do") = "spara" Then
Namn = Request.Form("namn")
Uid = Request.Form("uid")
Conn.Execute("Insert Into meny(namn,uid) Values('" & Namn & "'," & Uid & ")")
Response.Redirect "index.asp"
End If
Conn.Close%>