drop down population help needed - thanks

Kingdom · Oct 20, 2003

What's on line 138?

Is it an update or an insert? If so, then you are missing a required
parameter.

If you do an update(or an insert) you have to either a) provide a
value for all fields or b) specify the fields you are providing a
value for

a) INSERT INTO Parts_Table Values ('MyPartType', 'MyPartName')
b) INSERT INTO Parts_Table(Part_Type, Part_Name)
VALUES('MyPartType','MyPartName')

It's just the very last line of the script %>

I haven't made any other changes other than the connection
sConnectionString

Tom B · Oct 20, 2003

Something's odd. The code should only be 80 lines long?

Tom B · Oct 20, 2003

Does your table look like mine?

Kingdom said:
It's just the very last line of the script %>

I haven't made any other changes other than the connection
sConnectionString

Kingdom · Oct 20, 2003

Something's odd. The code should only be 80 lines long?

inserted into Frontpage page meta tags etc.

===========================================

<%@ Language=VBScript %>
<% Option Explicit %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-
1252">
<meta http-equiv="Content-Language" content="en-us">
<title>Selectbox</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">

<style fprolloverstyle>A:hover {color: red; font-weight: bold}
</style>

<meta name="Microsoft Theme" content="tp-or12 1110">
<meta name="Microsoft Border" content="tlb, default">
</head>

<BODY>

<%
Dim sConnectionString
sConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\fpdb\kelvindb.mdb")
%>
<%

'FOR DEBUGGING
Dim field
for each field in Request.Form
Response.Write "<li>" & field & ": " & Request.Form
(field) & "</li>"
next
'END DEBUGGING
%>
<form method=Post action=SelectBoxes.asp>
<% call GetSelectBoxes%>
<br>
<input type=submit value=Go>
</form>

</BODY>
</HTML>
<%

Sub GetSelectBoxes()

Dim oCN
Dim oRS
Dim sSQL

sSQL="SELECT UniqueID, Component_Type, Price, Component_Name
FROM Parts_Table ORDER BY Component_Type, Component_Name,"
Set oCN=CreateObject("ADODB.Connection")
oCN.Open sConnectionString
Set oRS=oCN.Execute(sSQL)
if not oRS.EOF then
Dim sCurrentBox
Dim bIsFirst
bIsFirst=true

Do While not oRS.EOF
'OK, we have our recordset.
'Let's go through each "thingy" and create a box for
it.
if sCurrentBox <> oRS.Fields("Component_Type") then

'it's time for a new select box.
'but first, let's close the last box.
if bIsFirst=false then
'make sure it's not the first select box.
Response.Write "</select><br>" & vbCrLf
else
bIsFirst=false
end if

'OK, create the new box.
sCurrentBox=oRS.Fields("Component_Type")
Response.Write sCurrentBox & ": <select
name=""" & sCurrentBox & """>" & vbCrLf
end if
'Now add the individual item
Response.Write vbTab & "<option value=""" &
oRS.Fields("UniqueID") & """>" & _
trim(oRS.Fields
("Component_Name")) & _
"</option>" & vbCrLf

oRS.MoveNext
Loop

'Let's close that last one
Response.Write "</select>" & vbCrLf

end if
Set oRS=nothing
oCN.Close
Set oCN=nothing
End Sub

%>

Tom B · Oct 20, 2003

I assume that the newsreader wrapped your connection string and the sql
statement?
Also, the line....
trim(oRS.Fields("Component_Name"))

Oh, I see it....There's a comma at the end of your sql statement - it
shouldn't be there.

Kingdom · Oct 20, 2003

Yipppeeeeeeee!!!

It's alive.

Thankyou Tom this really is apreciated, now its up and running I'll gently
and slowly add to it and learn a lot more in the process (hopefully)

I'm sure you must have got fed up with my postings, thanks again.
If there is any graphics/art work you ever need just drop me a line, I'm
much better at graphics than code and I owe you one.

Oh thanks to Bob too!

I get a feeling I'll be back soon but hopefully not with another marathon.

And just before I go, the main error I had was an underscore in my UniqueID
field, can't believe I'm so blind as not to have spotted this much ealier.

Cheers

Kingdom · Oct 21, 2003

New it wouldn't be too long before I was back.

ID : Product_Type

At the moment it writes out the UniqueID and field type.

I'd like to add the box selection and the price but not having much sucess.

So I get

ID : Product_Type : Product_Name : Price

but using the code below I still only get the first two

=====================

Dim field
Dim Price
Dim Component_Name
for each field in Request.Form
Response.Write "<li>" & Request.Form(field) & ": " &_
field & Component_Name & Price &"</li>"
next

Drop down list/menu	3	May 7, 2015
drop down question	2	Nov 13, 2007
JavaScript population of ASP drop down	0	Jan 9, 2008
drop down	1	Apr 7, 2007
Cascading drop-down restructuring	12	Feb 7, 2011
Add value to third drop down list	2	Dec 6, 2009
Populate drop down list	1	Dec 8, 2009
Drop Down List, AutoPostBack	1	Feb 17, 2010

drop down population help needed - thanks

Kingdom

Tom B

Tom B

Kingdom

Tom B

Kingdom

Kingdom

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads