alfa
Jeg har sådan et "alfa" script hvor jeg henter poster ud fra en database efter fornavn ..Men problemet er bare vælger man navne med T og der ikke findes nogen navne med T i databasen, kommer der en fejl.. Her vil jeg så hellere have der kommer til at stå "Der er ingen tilmeldt med dette forbogstav"
Hvordan gør jeg det ?
<%
str_alfa = request.querystring("alfa")
bo_start = true
do while len(str_alfa) > 0
if bo_start = true then
str_sql1 = " where left(chatnavn,1) = '" & left(str_alfa, 1) & "'"
bo_start = false
else
str_sql1 = str_sql1 & " or left(chatnavn,1) = '" & left(str_alfa, 1) & "'"
end if
str_alfa = right(str_alfa, len(str_alfa) - 1)
loop
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../db/mschatfest.mdb")
str_sql2 = "SELECT * FROM bruger" & str_sql1 & " ORDER BY chatnavn"
Set rs = Conn.Execute (str_sql2)
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellspacing="1" width="450" bgcolor="#000000">
<tr>
<td width="25%" bgcolor="#486F82"><font size="2" face="Verdana" color="#FFFFFF"><b>ChatNavn</b></font></td>
<td width="25%" bgcolor="#486F82"><font size="2" face="Verdana" color="#FFFFFF"><b>Alder:</b></font></td>
<td width="25%" bgcolor="#486F82"><font size="2" face="Verdana" color="#FFFFFF"><b>Bosted:</b></font></td>
</tr>
<%
while not rs.eof or rs.bof
%>
<tr>
<td width="25%" bgcolor="#6896AC"><font size="2" face="Verdana" color="#FFFFFF"><% = rs("chatnavn") %></font></td>
<td width="25%" bgcolor="#6896AC"><font size="2" face="Verdana" color="#FFFFFF"><% = rs("alder") %></font></td>
<td width="25%" bgcolor="#6896AC"><font size="2" face="Verdana" color="#FFFFFF"><% = rs("bosted") %></font></td>
</tr>
<%
rs.MoveNext
wend
%>
</table>
</center>
</div>
</td>
</tr>
</table>
