Back To Programming / Scripting / Coding Forum

coding asp classic

  • Wurn
  • Graduate
  • Graduate
  • User avatar
  • Joined: May 19, 2005
  • Posts: 122
  • Loc: Cape Town
  • Status: Offline

Post July 29th, 2011, 2:40 am

Hey all, am i wasting my time asking a classic ASP question on here?

IF not can someone please advise me how i can write code to look at my Forms input Text box, take what the user put in and then search my MS Access db and display the results. The user will only search for FirstName or LastName

I am using Dreamweaver CS4, ASP and MS Access
I know it must be possible to do this. Thx in advance

ps. please resist from advising me to use any other programms or code. Only reason im not using ASP . NET is becuase for some reason DW CS4 will not allow me to create a Dataset using Recordset. If i use classic ASP it then gives me the Recordset option.

Here's my code:
Code: [ Select ]
<%
Dim Recordset__ID
Recordset__ID = "1"
If (Request.Form("")   <> "") Then
 Recordset__ID = Request.Form("")  
End If
%>
<%
Dim Recordset
Dim Recordset_cmd
Dim Recordset_numRows

Set Recordset_cmd = Server.CreateObject ("ADODB.Command")
Recordset_cmd.ActiveConnection = MM_Smit_STRING
Recordset_cmd.CommandText = "SELECT ?, FirstName, LastName, ext, cell FROM tel WHERE FirstName LIKE 'w%'"
Recordset_cmd.Prepared = true
Recordset_cmd.Parameters.Append Recordset_cmd.CreateParameter("param1", 200, 1, 255, Recordset__ID) ' adVarChar

Set Recordset = Recordset_cmd.Execute
Recordset_numRows = 0
%>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
Server.MapPath ("/database/smit.mdb") & ";"
set rs = conn.execute("SELECT = NULL")
if (RS.BOF and RS.EOF) then
    response.write "No records found"
    response.end
End if
%>

my Recordset fields:



       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("FirstName").Value)%></span></td>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("LastName").Value)%></span></td>
       </tr>
      <tr>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("cell").Value)%></span></td>
       <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("ext").Value)%></span></td>
  1. <%
  2. Dim Recordset__ID
  3. Recordset__ID = "1"
  4. If (Request.Form("")   <> "") Then
  5.  Recordset__ID = Request.Form("")  
  6. End If
  7. %>
  8. <%
  9. Dim Recordset
  10. Dim Recordset_cmd
  11. Dim Recordset_numRows
  13. Set Recordset_cmd = Server.CreateObject ("ADODB.Command")
  14. Recordset_cmd.ActiveConnection = MM_Smit_STRING
  15. Recordset_cmd.CommandText = "SELECT ?, FirstName, LastName, ext, cell FROM tel WHERE FirstName LIKE 'w%'"
  16. Recordset_cmd.Prepared = true
  17. Recordset_cmd.Parameters.Append Recordset_cmd.CreateParameter("param1", 200, 1, 255, Recordset__ID) ' adVarChar
  19. Set Recordset = Recordset_cmd.Execute
  20. Recordset_numRows = 0
  21. %>
  22. <%
  23. set conn = Server.CreateObject("ADODB.Connection")
  24. conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
  25. Server.MapPath ("/database/smit.mdb") & ";"
  26. set rs = conn.execute("SELECT = NULL")
  27. if (RS.BOF and RS.EOF) then
  28.     response.write "No records found"
  29.     response.end
  30. End if
  31. %>
  33. my Recordset fields:
  37.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("FirstName").Value)%></span></td>
  38.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("LastName").Value)%></span></td>
  39.        </tr>
  40.       <tr>
  41.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("cell").Value)%></span></td>
  42.        <td height="30" align="left"><span class="p"><%=(Recordset.Fields.Item("ext").Value)%></span></td>
  • Anonymous
  • Bot
  • No Avatar
  • Joined: 25 Feb 2008
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post July 29th, 2011, 2:40 am

  • ultimate11
  • Student
  • Student
  • No Avatar
  • Joined: Feb 02, 2011
  • Posts: 86
  • Status: Offline

Post August 3rd, 2011, 10:18 pm

i cant get your question but it seems you want to search from input txtbox that user entered and display the result and if you want to search either in firstname and lastname you can add a or "||" condition ... :hmm:
Code: [ Select ]
<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open (Server.MapPath("mydb.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from mytable where lastname='"&request.form("src")&"'", conn

do until rs.EOF

%>
        <td>    <%    response.write(""&rs("lastname")&"&nbsp;&nbsp;")%>    </td>
        <td>    <%    response.write(""&rs("first_name")&"&nbsp;&nbsp;")%>    </td>
        </tr>
    
<%


    rs.movenext
loop

rs.close
conn.close
%>
  1. <%
  3. set conn=Server.CreateObject("ADODB.Connection")
  4. conn.Provider="Microsoft.Jet.OLEDB.4.0"
  5. conn.Open (Server.MapPath("mydb.mdb"))
  6. set rs=Server.CreateObject("ADODB.recordset")
  7. rs.Open "Select * from mytable where lastname='"&request.form("src")&"'", conn
  9. do until rs.EOF
  11. %>
  12.         <td>    <%    response.write(""&rs("lastname")&"&nbsp;&nbsp;")%>    </td>
  13.         <td>    <%    response.write(""&rs("first_name")&"&nbsp;&nbsp;")%>    </td>
  14.         </tr>
  15.     
  16. <%
  19.     rs.movenext
  20. loop
  22. rs.close
  23. conn.close
  24. %>

Page 1 of 1

Post Information

  • Total Posts in this topic: 2 posts
  • Users browsing this forum: No registered users and 188 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
 

© 2011 Unmelted, LLC. Ozzu® is a registered trademark of Unmelted, LLC.