Still have problems with dropdownlist
-
Hi all. I managed to get this code but cant tell why it doesnt show the results.Its suppose to display the dropdownlist with all the values from the database. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit '-- Variables we are using dim objConn, objRS, objRS2, strSQL '-- Define our objects Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS2 = Server.CreateObject("ADODB.Recordset") '-- Database path and Data provider objConn.ConnectionString = Server.MapPath("C:\dropdowns.mdb") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.Open '-- Sub Procedure that builds the dropdown list Sub showDropDownList(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset Set r = c.Execute(strSQL) '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf Response.Write "Choose...." '-- loop and build each database entry as a selectable option While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next value r.movenext Wend else response.write"<"Sorry, no records selected">" end if '-- close select/form tags Response.Write "
" & vbCrLf End Sub '-- Sub Procedure that builds the dropdown list Sub showDropDownList2(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset r.Open strSQL, c, 3, 3 '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf '-- loop and build each database entry as a selectable option 'filter r.Filter = ("Type = 'fruit'") Response.Write "Choose...." Response.Write "" While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next val
-
Hi all. I managed to get this code but cant tell why it doesnt show the results.Its suppose to display the dropdownlist with all the values from the database. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit '-- Variables we are using dim objConn, objRS, objRS2, strSQL '-- Define our objects Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS2 = Server.CreateObject("ADODB.Recordset") '-- Database path and Data provider objConn.ConnectionString = Server.MapPath("C:\dropdowns.mdb") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.Open '-- Sub Procedure that builds the dropdown list Sub showDropDownList(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset Set r = c.Execute(strSQL) '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf Response.Write "Choose...." '-- loop and build each database entry as a selectable option While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next value r.movenext Wend else response.write"<"Sorry, no records selected">" end if '-- close select/form tags Response.Write "
" & vbCrLf End Sub '-- Sub Procedure that builds the dropdown list Sub showDropDownList2(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset r.Open strSQL, c, 3, 3 '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf '-- loop and build each database entry as a selectable option 'filter r.Filter = ("Type = 'fruit'") Response.Write "Choose...." Response.Write "" While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next val
I m not understand wat is your problem is just write wat is the problem not all coding..
Viral YahooID : just_viral My Site : www.theseoworld.info
-
Hi all. I managed to get this code but cant tell why it doesnt show the results.Its suppose to display the dropdownlist with all the values from the database. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit '-- Variables we are using dim objConn, objRS, objRS2, strSQL '-- Define our objects Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS2 = Server.CreateObject("ADODB.Recordset") '-- Database path and Data provider objConn.ConnectionString = Server.MapPath("C:\dropdowns.mdb") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.Open '-- Sub Procedure that builds the dropdown list Sub showDropDownList(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset Set r = c.Execute(strSQL) '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf Response.Write "Choose...." '-- loop and build each database entry as a selectable option While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next value r.movenext Wend else response.write"<"Sorry, no records selected">" end if '-- close select/form tags Response.Write "
" & vbCrLf End Sub '-- Sub Procedure that builds the dropdown list Sub showDropDownList2(c, r, table) '-- SQL Statement strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC" '-- Execute our SQL statement and store the recordset r.Open strSQL, c, 3, 3 '-- If we have records to return if r.eof = false then '-- Open a form/select tag Response.Write "
" Response.Write "" & vbCrLf '-- loop and build each database entry as a selectable option 'filter r.Filter = ("Type = 'fruit'") Response.Write "Choose...." Response.Write "" While r.EOF = false Response.Write "" _ & r.Fields("Title").Value & "" & vbCrLf '-- Move recordset to the next val
:confused:
-------------------------------------------------------------------------------------------------- Hiral Shah India