| " target="_self">lägg
till |
"><%=RecSet("username")%> |
<%=RecSet("kunskap")%> |
color="#FF0000" <%else%>color="#339933" <%end if%>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"><%=RecSet("status")%> |
<%=RecSet("datum")%> |
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```
och det var själva uppspelningen.
Hur gör jag detta? tacksam för kod exempel.
Permalänk: https://www.webforum.nu/p/12801
## #2 — mikul, 2001-11-24T13:30Z
byt ut
```
Addera = "Select * From members ORDER BY datum"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
```
mot
```
Addera = "Select * From members ORDER BY username"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
```
/ Mikul
Permalänk: https://www.webforum.nu/p/295585
## #3 — Qimen, 2001-11-24T13:35Z
ja men då sortetar den väl bara ut användarnamnen, väll? jag vill ha bara dom som börjar på A.
Permalänk: https://www.webforum.nu/p/295586
## #4 — LarsG, 2001-11-24T13:59Z
Om du skickar vilken bokstav du vill söka på i querystring så kan du använda en fråga som ser ut så här
```
sql = "select * from members where username like '" & request.querystring("bokstav") & "%'"
```
Permalänk: https://www.webforum.nu/p/295587
## #5 — Qimen, 2001-11-24T14:03Z
Så att jag på varje sida gör jag en databaskoppling med det typ så här:
```
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
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=000"
Set RecSet = Server.CreateObject("ADODB.Recordset")
sql = "select * from members where username like '" & request.querystring("A") & "%'"
%>
```
eller är det helt fel?
Permalänk: https://www.webforum.nu/p/295588
## #6 — LarsG, 2001-11-24T14:14Z
Njae, jag tänkte mer att du på söksidan lade upp det så här
```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/members.mdb")&";pwd=000"
sql = "select distinct left(username,1) from members order by 1"
set rs = connect.execute(sql)
response.write "Sök medlemmar"
while not rs.eof
response.write "