DropDown Menu, der viser noget fra DB hvor pid = 0

ps, selve teksten i dropdown skal være hva menu er, men når man sætter det ind i dbén skal det være det id nr man vælger.

I eks nedenfor skal du erstatte Tabelnavn med navnet på din tabel og conn med din connectionstreng til databasen.

  Set Cbors = Server.CreateObject("ADODB.Recordset")
  CboSQL = "SELECT * from tabelnavn where (Pid=0)"
  Cbors.Open cboSQL, conn
  Response.Write "<select name=menudrop size=1>"
  Do While Not CboRs.EOF
    Response.Write "<option value='" & CboRs("id") & "'>" & CboRs("menu") & "</option>"
    End if
    CboRs.MoveNext
  Loop
 
  Response.Write "</select>"
  CboRs.Close
  Set CboRs = Nothing

får en end if fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

/admin_ny_side.asp, line 17

End if
^


linie: 17 er
    End if

sorry det er kopieringssjusk fra min side - her får du lige koden igen:

  Set Cbors = Server.CreateObject("ADODB.Recordset")
  CboSQL = "SELECT * from tabelnavn where (Pid=0)"
  Cbors.Open cboSQL, conn
  Response.Write "<select name=menudrop size=1>"
  Do While Not CboRs.EOF
    Response.Write "<option value='" & CboRs("id") & "'>" & CboRs("menu") & "</option>"
    CboRs.MoveNext
  Loop
 
  Response.Write "</select>"
  CboRs.Close
  Set CboRs = Nothing

Tak nu begynder det at se rigtig ud, er det dog muligt at ændre det til et tomt db felt istedet for 0 ?

du skal rette SQL strengen:

  CboSQL = "SELECT * from tabelnavn where (Pid=0)"

til

  CboSQL = "SELECT * from tabelnavn where ((Pid=0) or (pid=null))"

CboSQL = "SELECT * FROM tabelnavn WHERE pid=0 OR pid IS NULL"

tak ser ud til at virke :)