Hej, kan någon vänlig själ hjälpa mig med att få sökfunktionen att fungera?
Jag har en databas, members, från den plockar jag ut medlemmar och nu vill jag kunna söka på första bokstaven i förnamnet plus att jag vill kunna skriva in ett namn i en input och få upp alla ev träffar på det. Jag har sökt här på forumet och fått många träffar på frågan, men jag har tydligen missat något grundläggande för jag fattar inte hur jag ska göra ändå..ett felmeddelande jag får är att end saknas efter set connect="nothing.."
Tack på förhand.
---------------------sok.asp---------------------------
<html>
<head>
<title>sok.asp</title>
</head>
<body>
<a href="search_users.asp?boks=A">A</a>
<a href="search_users.asp?boks=B">B</a>
<a href="search_users.asp?boks=C">C</a>
D
E
osv.. <br>
<form method="post" name="form" action="search_users.asp">
<input name"sokinput" size="20">
<input type="submit" name="submit" value="sok">
</form>
</body>
</html>
------------------search_users.asp----------------------
<!-- #include file="include/adovbs.inc" -->
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit utloggad!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where fnamn LIKE '"&bokstav&"%'ORDER BY datum"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
If request.form("sokinput") <> "" Then
bokstav = request.form("sokinput")
Else if request.querystring("boks") <> "" Then
bokstav = request.querystring("boks")
Else
response.redirect(fel.asp)
End if
%>
<html>
<head>
<title>search_users.asp</title>
</head>
<body>
<table>
<tr>
<td>Medlemmar</td>
</tr>
<tr>
<td>
<table>
<tr>
<td>Lägg till?</td>
<td>Namn</td>
<td>Hur</td>
<td>Status</td>
<td>Senast påloggad</td>
</tr>
<%
X = 0
DO Until RecSet.EOF OR X = 50
X=X+1
%>
<tr>
<td><a href="whois.asp?checkid=<%=RecSet("id")%>"><%=RecSet("fnamn")%></a></td>
<td><%=RecSet("enamn")%></td>
<td><font size="1" <%if recset("status") = "offline" then%> color="#FF0000" <%else%>color="#00CC00" <%end if%>"><%=RecSet("status")%></font></td>
<td><%=RecSet("datum")%></td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
\</table\>
\</td\>
</tr>
</table>
</body>
</html>
[Redigerat av Choronzon den 17 dec 2001]