Search engine

WhiteTiger · Jul 19, 2001

Hello again!...lol

I need some script to help get me started on making a searchable database through ASP...I dont know how to make one...it has to access a database, search and sort by either project number or project name. ----------------------------------------
The Learning process is just a way to get rid of all the stupids in your head.

Now where's that cute little kitten? :-X

shaddow · Jul 19, 2001

U need one page for displaying what u want to search

somehtmlfile.htm

<form action="search.asp" method="post">
Name:<input name="name" id="name"><br>
Number:<input name="nr" id="nr"><br>
<input type="submit" value="Search Values">
</form>

and one page for displaying the search response
search.asp
<%
name=Request.Form("name&quot

if name="" then
'put your error for name field
response.end
end if
nr=Request.Form("nr&quot

if not isnumeric(nr) then
'put your error for nr field
response.end
end if
nr=int(nr)
SQL="select Name, nr from MyDataBase where name like '%"&name&"%' and nr="&nr
'exec the SQL querry and then write the response...
%>

the "%" is for all characters in SQL statment

If u want more please let me know
________

George

gsc1ugs · Jul 19, 2001

Or this, dont know who i got it off....

<%
dim dsn,conn,rs,sql,x
dim flag,color,useraction,element
useraction=request.querystring("action&quot

select case useraction
case "search"
x = 0
sql = "select * from webdata where event = '" &Request.Form ("lname&quot

& "'"
set conn = server.createObject("adodb.connection&quot

set rs = server.createObject("adodb.recordset&quot

conn.open gsConnect

for each element in request.form

if request.form(element)<>"" then

select case element
case "tel"
sql=sql & " and tel = '" & Request.form(element) & "'"
case "lname"
sql=sql & " and lname like '" & Request.form(element) & "%'"
case "fname"
sql=sql & " and fname like '" & Request.form(element) & "%'"
case "init"
sql=sql & " and init like '" & Request.form(element) & "%'"
case "mobile"
sql=sql & " and mobile like '" & Request.form(element) & "%'"
case "dept"
sql=sql & " and dept like '" & Request.form(element) & "%'"

end select
end if
next
sql=sql & " order by id"
'response.write sql'***debug
rs.open sql,conn
if rs.eof and rs.bof then
response.write "No Record Found"
else
response.write "<table width=550 border=0><th align=left>Last Name</th><th align=left>First Name</TH>"
response.write "<th align=left>Tel</TH><th align=left>Mobile</TH><th align=left>Initials</TH><th align=left>Dept</TH>"
do while not rs.eof
if flag=0 then
flag=1
color="#A5C3C3"
else
flag=0
color="#FFFFC0"
end if

response.write "<TR bgcolor="& color & "><TD>"
response.write RS("id&quot

& "</td><td>" & RS("event&quot

& "</td><td>"
response.write RS("position&quot

& "</td><td>" & RS("id&quot

& "</td><td>" & RS("position&quot

& "</td><td>"
response.write RS("position&quot

& "</tr></td>"
rs.movenext
x=x+1
loop

response.write "<tr><td colspan=7>Total Records : " & x & "</table>"
end if
end select
%>
<script>function rusure() {

if (confirm("Are you sure you want to delete?&quot

) {
return true;
} else {

return false;
}
}
</script>

<head>

<style>
a:hover{color:red}
</style>
<title>Telephone Directory</title>
</head>

<body link="#000080" vlink="#000080" alink="#000080">

<div align="center">
<center>

<table border="0" width="450" cellspacing="0" cellpadding="3" style="border:1px groove #B52100; border-collapse:collapse" bordercolor="#111111">
<tr><td colspan="2" align="center">
<p align="center"><img border="0" src="IMAGES/main.png"></tr>
<form action="search.asp?action=search" method="post">
<tr><td colspan="2" align="center" bgcolor="#B52100"><font face="Verdana" color="#FFFFFF" size="1"> Clicking on
<b> search</b> without choosing any category will retrieve all records</font></tr>
<tr><td bgcolor="#C0C0C0">
<font face="Verdana" size="2" color="#B52100">
Search by Last name

A-Z)</font></td><td bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100"><input type="text" name="lname" size="25" maxlength="25"></font></tr>
<tr><td bgcolor="#C0C0C0">
<font face="Verdana" size="2" color="#B52100">
Search by First name

A-Z)</font></td><td bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100"><input type="text" name="fname" size="25" maxlength="25"></font></tr>
<tr><td bgcolor="#C0C0C0">
<font face="Verdana" size="2" color="#B52100">
Search by Phone No .:</font></td><td bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100"><input type="text" name="tel" size="10" maxlength="5"></font></tr>
<tr><td bgcolor="#C0C0C0">
<font face="Verdana" size="2" color="#B52100">
Search by Initials</font></td><td bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100"><input type="text" name="init" size="5" maxlength="5"></font></tr>
<tr><td bgcolor="#C0C0C0">
<font face="Verdana" size="2" color="#B52100">
Search by Department</font></td><td bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100"><input type="text" name="dept" size="25" maxlength="25"></font></tr>

<tr><td align="center" bgcolor="#C0C0C0">
<table border="0" width="100%">
<tr>
<td width="33%"></td>
<td width="33%" style="border: 2px outset #B52100; " align="center">
<p align="center"><font face="Verdana" size="2"><a href="search.asp" style="text-decoration:none">
<font color="#B52100">Clear</font></a></font></td>
<td width="34%"></td>
</tr>
</table>
<td align="center" bgcolor="#C0C0C0">
<font face="Verdana" color="#B52100">
<input type="submit" value="Search" style="border:2px ridge #B52100; background-color: #C0C0C0; "></font></tr>
</table>
</center>
</div>
<p align="center">
</a></p>
</body>

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!

Search engine

WhiteTiger

Programmer

shaddow

Programmer

gsc1ugs

Programmer

Similar threads

Part and Inventory Search

Sponsor