
May 4th, 2000, 01:02 AM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
  
Time spent in forums: < 1 sec
Reputation Power: 24
|
|
|
DB Query
<i><b>Originally posted by : Phil Robles (erobles@satx.rr.com)</b></i><br />This is driving me mad!<br /><br />I am trying to develop an asp script that pulls data from an access database. As currently written, I can have a beta user (me!) key in a route number and I receive a table with results. No problem. But, when I try and change the varBusRouteID to varLandmarkID and all related statements to reflect 'LandmarkID' I get errors. Here's the info -- can someone help me so that I can type in a landmark in the query page and produce results in the results page. For some reason I can't and it's driving me absolutely<br />crazy!<br /><br />Thanks!<br /><br />For any replies, please email me at erobles@satx.rr.com<br /><br />Here's the code:<br /><br />[TABLE]<br />tblroutes<br /> [Fields]<br /> BusRouteID (PRIMARY KEY)<br /> LandmarkID (PRIMARY KEY)<br /> PocketSchedule (text)<br /> Street (text)<br /> ADARoute (text)<br /><br />[TABLE]<br />tbllandmarks<br /> [Fields]<br /> ID (Auto Number)<br /> Landmarks (text)<br /><br />----------------------------<br />QUERY PAGE<br />----------------------------<br /><br /><form method="POST" action="queryresponse.asp"><br /><br /> <p>Please enter your Bus Route Number :</p><br /> <p><input type="text" name="BusRouteID" size="5"></p><br /> <p><input type="submit" value="Submit"><input type="reset" value="Reset"></p><br /><br /></form><br /><br />----------------------------<br />RESULTS PAGE<br />----------------------------<br /><%<br /><br />varBusRouteID= request.form("BusRouteID")<br />dim ORSp<br />Set oRSp=server.createobject("ADODB.recordset")<br />sqltext="SELECT * FROM tblroutes"<br />'next line is the submitted variable keyed in by the user<br />sqltext=sqltext& " WHERE BusRouteID=" & varBusRouteID & ";"<br />oRSp.open sqltext, "dsn=landsearch"<br /><br />%><br /><br /><TABLE BORDER="1" CELLPADDING="1" CELLSPACING="3" WIDTH="100%"><br /><br /><THREAD><br /><br /> <TR><br /> <TD><STRONG>Bus Route</STRONG></TD><br /> <TD><STRONG>Landmark</STRONG></TD><br /> <TD><STRONG>Schedule</STRONG></TD><br /> <TD><STRONG>Street</STRONG></TD><br /> <TD><STRONG>ADA</STRONG></TD><br /> </TR><br /><br /></TREAD><br /><br /><%<br /><br /> Do Until oRSp.EOF<br /> Response.Write "<TR>" & vbCrLf<br /> Response.Write "<TD><CENTER>" & oRSp("BusRouteID")&"</TD></CENTER>" &<br />vbCrLf<br /> Response.Write "<TD>" & oRSp("Remarks")&"</TD>" & vbCrLf<br /> Response.Write "<TD>" & oRSp("PocketSchedule")&"</TD>" & vbCrLf<br /> Response.Write "<TD>" & oRSp("Street")&"</TD>" & vbCrLf<br /> Response.Write "<TD>" & oRSp("ADARoute")&" </TD>" & vbCrLf<br /> oRSp.Movenext<br /> Loop<br /><br />%><br /><br /></TABLE><br /><br /><br />
|