---
title: "Kan någon?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39302-kan-någon"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-03-08T23:14:14.000Z"
updated: "2002-03-08T23:41:05.000Z"
replies: 2
views: 161
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39302-kan-någon"
---

# Kan någon?

## #1 — Asa, 2002-03-08T23:14Z

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%\>

Permalänk: https://www.webforum.nu/p/39302

## #2 — LarsG, 2002-03-08T23:33Z

```
Uid = Request.Form("uid") 
if uid = "" then uid = "Null"
```

Permalänk: https://www.webforum.nu/p/621864

## #3 — Asa, 2002-03-08T23:41Z

Tackar! 

Var det så lätt! Hade ju testat med ifsatser men inte med Null så där som du gjort!

Permalänk: https://www.webforum.nu/p/621868

---

Tråden på webben: https://www.webforum.nu/amne/asp/39302-kan-någon