If rs.EOF THEN
response.write("Inget hittades!")
End If
------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein
Frågan#1
jag har en sökfuntion, så att man kan söka i i en databas, koden nedan funkar - om något matchar dvs, men om inget matchar, skrivs inget ut!
jag vill jag ha ett felmeddelande, typ: "Inget Hittades!"
hur gör man, jag antar att det är nån sorts if-sats
<% Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
conn.Open "DSN=dsn20"
If Request.Form("List")="Ord1" Then
SQL="Select * From Tabell1 Where Fält1 Like '" & Request.Form("ruta") & "%'"
End If
If Request.Form("List")="Ord2" Then
SQL="Select * From Tabell1 Where Fält2 Like '" & Request.Form("ruta") & "%'"
End If
rs.Open SQL, conn %>
<% Do While Not rs.EOF %>
<%=rs("Fält1")%> - <%=rs("Fält2")%>
<% rs.MoveNext
Loop %>
henrik
------------------
Min hemsida kommer snart...den som väntar på något gott...!