2 søge kriterier
Jeg har følgende kode, hvor man kan søge efter et navn, og se om det er i databasen, er navnet der, udskrives navnet + ekstra oplysninger.Min plan er så følgende
Jeg vil kunne søge på navnet, som jeg kan nu, men jeg vil også kunne søge på betydningen af den person (eks Chef, sekretær osv osv) alle oplysningerne er lagt ind i databasen...
det skal så via en radioknap være muligt at vælge hvilken vej søgningen skal gå
Navn = Betydning/Stilling
Betydning/Stilling = Navn
er i med??
her er koden...
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="forbindelse.asp" -->
<%
tid = Request.QueryString("tid")
If Request.QueryString("Submit") = "" Then
If tid = "" Then
tid = "DESC"
ElseIf tid = "DESC" Then
tid = "ASC"
Else
tid = "DESC"
End If
End If
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "''"
Else
soegestreng = "'%" & soeg & "%'"
End If
Set indlaeg = Server.CreateObject ("ADODB.Recordset")
indlaeg.Open "SELECT * FROM navne WHERE navn LIKE " & soegestreng & " ORDER BY navn " , database
%>
<html>
<head>
<title>navne</title>
<style type="text/css">
<!--
.back { background-attachment: fixed; background-image: url(grafik/bigback.gif); background-repeat: no-repeat; background-position: left top}
-->
</style>
</head>
<body bgcolor="#F3E5FA" text="#744b96" link="#744b96" vlink="#744b96" alink="#744b96" class="back" background="grafik/forlenger.gif">
<form name="form1" method="get" action="navn.asp">
<table width="95%" border="0" cellspacing="0" cellpadding="20" align="center">
<tr>
<td>
<div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2"><br>
<img src="grafik/billede.gif" width="427" height="64"></font></b></div>
<br>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<div align="center"><font face="Arial" size="2"> Søg navn:
<input type="text" name="soeg" value="<% = soeg%>" size="20">
<input type="submit" name="Submit" value="Søg">
<br>
</font></div>
</td>
</tr>
</table>
<div align="center"><br>
<%
if indlaeg.EOF then
Response.Write "<h4>Navnet Kunne ikke findes! prøv at skrive navnet igen, eller se for stavefejl </h4>"
end if
%> <%
While NOT indlaeg.EOF
%> </div>
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#F2E6FA" bgcolor="<% = indlaeg.Fields("kon")%>">
<tr>
<td height="21">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">
<div align="left"><font face="Arial" size="2" color="#FFFFFF"><b><% = indlaeg.Fields("navn")%></b></font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><font face="Arial" size="2" color="#FFFFFF"><% = indlaeg.Fields("betyd")%></font></td>
</tr>
</table>
<%
indlaeg.MoveNext
Wend
%> <br>
</td>
</tr>
</table>
<input type="hidden" name="tid" value="<% = tid%>">
</form>
</body>
</html>
