Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Problems with listbox from Access database

Status
Not open for further replies.
apwestgarth

apwestgarth

ISP
Jan 26, 2001
45
US
I am having difficulty with the data populating my listbox.

I have a table called Locations in my Access Database which store the various locations around our site. I have a Printers table which stores all of the details of our printers on site. The printers table has a LocationID field which is a lookup field in Access which pulls the locationID from the data in the Locations field. When I pull the information through ASP, the value from the rsPrinters("LocationID") field is always 1 and not the value which is listed in the DB. Can anyone help - the code I am using is below:

<%@ Language=VBSCRIPT %>
<!--- #INCLUDE FILE=&quot;datastore.inc&quot; --->
<!--- #INCLUDE FILE=&quot;style.css&quot; --->
<%
Function QStr(sOrg)
' Input : Andy's
' Returns: 'Andy''s'

QStr=&quot;'&quot; & Replace(sORg,&quot;'&quot;,&quot;''&quot;) & &quot;'&quot;
End Function




set dbConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
dbConn.open strAssetsConnect

sSQL = &quot;Select * from Printers&quot;
set rsPrinters = dbConn.execute(sSQL)


if Request.QueryString(&quot;Submit&quot;) = &quot;y&quot; Then
Response.write &quot;<center><table width=&quot; & &quot;75%&quot; & &quot;></center>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td colspan=2 align=center>&quot;
Response.write &quot;<b>Edit Screen for Printer: &quot; & Request.Form(&quot;sltPrinter&quot;) & &quot;</b>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td colspan=2></td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Name&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtName value=&quot; & QStr(rsPrinters(&quot;Name&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Make&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtMake value=&quot; & QStr(rsPrinters(&quot;Make&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Model&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtModel value=&quot; & QStr(rsPrinters(&quot;Model&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Serial Number&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtSerialNo value=&quot; & QStr(rsPrinters(&quot;SerialNo&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Server&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtServer value=&quot; & QStr(rsPrinters(&quot;Server&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Ross Name&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtRoss value=&quot; & QStr(rsPrinters(&quot;Ross&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;IP Address&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtIPAddress value=&quot; & QStr(rsPrinters(&quot;IPAddress&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;MAC Address&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtMacAddress value=&quot; & QStr(rsPrinters(&quot;MACAddress&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Support&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtSupport value=&quot; & rsPrinters(&quot;Support&quot;) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Cost (£)&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<input type=text name=txtCost value=&quot; & QStr(rsPrinters(&quot;Cost&quot;)) & &quot;>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Location ID&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<select name=sltLocationID>&quot;
'Create recordset of locations
sSQL = &quot;Select * from Locations&quot;
set rsLocations = dbConn.execute (sSQL)
While rsLocations.EOF = False
Response.write &quot;<option value=&quot; & rsLocations(&quot;LocationID&quot;) & &quot;&quot;
'if rsPrinters(&quot;LocationID&quot;) = rsLocations(&quot;LocationID&quot;) Then
' Response.write &quot;&quot;
'End If
Response.write &quot;>&quot; & rsLocations(&quot;Location&quot;) & &quot;</option>&quot;
Response.write &quot;&quot; & rsPrinters(&quot;LocationID&quot;) & &quot; &quot;
Response.write rsLocations(&quot;LocationID&quot;)
rsLocations.MoveNext
Wend
rsLocations.close
Set rsLocations = Nothing
Response.write &quot;</select>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;</table>&quot;


Else

Response.write &quot;<table width=&quot; & &quot;75%&quot; & &quot;>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td colspan=2 align=center>&quot;
Response.write &quot;<b>Edit Printer</b>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td colspan=2></td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;<tr>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;Please select a Printer&quot;
Response.write &quot;</td>&quot;
Response.write &quot;<td>&quot;
Response.write &quot;<form name=frmEditPrinter method=post action=editPrinter.asp?submit=y>&quot;
Response.write &quot;<Select name=sltPrinter onChange=document.frmEditPrinter.submit();>&quot;
Response.write &quot;<option selected value=&quot; & &quot;%&quot; & &quot;>Please Select a Printer</option>&quot;
while rsPrinters.eof = false
Response.write &quot;<option value=&quot; & rsPrinters(&quot;Name&quot;) & &quot;>&quot; & rsPrinters(&quot;Name&quot;) & &quot;</option>&quot;
rsPrinters.MoveNext
wend
rsPrinters.close
Set rsPrinters = nothing
dbConn.close
set dbConn = nothing

Response.write &quot;</select>&quot;
Response.write &quot;</form>&quot;
Response.write &quot;</td>&quot;
Response.write &quot;</tr>&quot;
Response.write &quot;</table>&quot;
End If
%>



Thanks

Andrew

Andrew Westgarth
Web Developer
ICQ: 14419001
MSN: mail@hawaythelads.co.uk
 
Sort by date Sort by votes
is it a typo?
Response.write &quot;<option value=&quot; & rsLocations(&quot;LocationID&quot;) & &quot;&quot;

after option value=&quot; u need to add one more &quot;...


Known is handfull, Unknown is worldfull
 
Upvote 0 Downvote
Wasn't a typo - think it was a problem with one of my queries 'cos I've got it working now.

Thanks for taking the time to look atthe post.

Cheers

Andrew

Andrew Westgarth
Web Developer
ICQ: 14419001
MSN: mail@hawaythelads.co.uk
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
785
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
Parse a database field that is comma delimited and input the results into another table
Replies
0
Views
548
penguinspeaks
penguinspeaks
JScannell
  • Locked
  • Question
Border issue with Google Chrome on an Android phone
Replies
0
Views
559
JScannell
JScannell
penguinspeaks
  • Locked
  • Question
Start loop from a specified point
Replies
0
Views
481
penguinspeaks
penguinspeaks
leifoet
  • Locked
  • Question
First execute an input command and only then proceed with displaying the next record of the table
Replies
0
Views
466
leifoet
leifoet

Part and Inventory Search

Sponsor

Back
Top