innan do while not rs.eof:
if rs.eof then response.write "din sökning gav inga träffar"
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
3 svar · 221 visningar · startad av erka
hejsan !
min kod ser ut så här
<%@ LANGUAGE=VBScript %>
<%Response.buffer = true
Dim Connect, conntemp, DSNtemp
Dim rs
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/produkter.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT * From produkter WHERE beskrivning LIKE '%" & Request.Form("sok")& "%' "
Set RS = Connect.Execute(SQLstmt)
%>
<%
If request.form("sok")="" Then
response.redirect("main.asp")
%>
<%else%>
Resultatet av din sökning
<%Do Until rs.eof %>
<%=RS("beskrivning")%>
<a href="produkter_visa.asp?id=<%=RS("id")%>"><%=RS("namn")%></a>
<%
rs.movenext
loop
rs.close
%>
<% End If%>
<% connect.close %>
Nu är det så att jag vill få fram "Din sökning genererade inga träffar" om den inte hittar något. Jag har fan prövat allt, lyckas inte..prövat om och om igen...Tacksam !
innan do while not rs.eof:
if rs.eof then response.write "din sökning gav inga träffar"
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
prexis ;)
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>