If hjælp

drop de mange point

lav dim soge om til soge

hvis du har dimet en, skal du dime alle

skal jeg ikke lave det søge sjov til dig kan se du sidder og bruger meget tid på det

food4u.dk> nope skal han ikke :)

hvad er fejlen???
kan godt hjælpe

jeg kan ikke helt se det gi mig lige lidt tid til at finde udaf det :o)

Det er kun hvis du har

option explicit

<%
resul = 0
%>
<!-- #include file=\"top.asp\" -->
<center>


<%
IF request.querystring(\"text\") = \"\" then
%>
Du skal huske at søge på noget.

<%
Else

dim soge
soge = request.querystring(\"text\")

set RS = Conn.Execute(\"SELECT * FROM news WHERE text LIKE \'%\" & soge & \"%\' ORDER BY ID DESC\")
RS.MoveFirst()
while not RS.EOF
%>

<% resul = CInt(resul) + 1 %>
<table border=0 cellpadding=0 cellspacing=0 width=390>
<tr><td>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr><td width=50% background=images/tabel_01.gif>
<b><% = RS.Fields(\"head\") %></b>
</td><td width=50% background=images/tabel_02.gif><p align=right>
<b><%=RS.Fields(\"user\")%></b>  <b><%=RS.Fields(\"dato\")%></b>
</p></td></tr></table></td></tr><tr><td>
<% = RS.Fields(\"text\") %>
</td></tr>
</table>
<br>
<br>

<%
    RS.MoveNext()
WEND
%>

Der blev fundet <%= CInt(resul)%> resultat(er) på ordet \"<%=soge%>\".


<%
end if
%>
</center>
<!-- #include file=\"bund.asp\" -->

cliche > jeg har altid haft problemer med dim, så det var det første jeg lige så :o)

dooh, det var jo klart med text/request(\"text\") :o)

food4u.dk :) så må du da sidde på en chiliASP server på linux :), siden det kan give dig problemer :)

kan du ikke lige likke hele asp-scriptet sådan man kan download det så kan jeg hjlæpe dig bedere;o)

hvis den ikke skriver noget ud så prøv at sætte .value på dine rs:

RS.Fields(\"head\").value

Eller bare:
RS(\"head\")

----

<table border=0 cellpadding=0 cellspacing=0 width=390>
<tr><td>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr><td width=50% background=images/tabel_01.gif>
<b><% = RS.Fields(\"head\").value %></b>
</td><td width=50% background=images/tabel_02.gif><p align=right>
<b><%=RS.Fields(\"user\").Value%></b>  <b><%=RS.Fields(\"dato\").Value%></b>
</p></td></tr></table></td></tr><tr><td>
<% = RS.Fields(\"text\").Value %>
</td></tr>
</table>

prøv dette:
<%
resul = 0
%>
<!-- #include file=\"top.asp\" -->
<center>


<%
IF request.form(\"text\") = \"\" then
response.write \"Du skal huske at søge på noget.\"

Else

dim soge
soge = request.form(\"text\")

set RS = Conn.Execute(\"SELECT * FROM news WHERE text LIKE \'%\" & soge & \"%\' ORDER BY ID DESC\")
RS.MoveFirst()
while not RS.EOF
rs.head = (\"strHead\")
rs.dato = (\"strDato\")
rs.user = (\"strUser\")
rs.text = (\"strText\")

resul = CInt(resul) + 1 %>
<table border=0 cellpadding=0 cellspacing=0 width=390>
<tr><td>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr><td width=50% background=images/tabel_01.gif>
<b><% = RS.Fields(\"head\") %></b>
</td><td width=50% background=images/tabel_02.gif><p align=right>
<b><%=RS.Fields(\"user\")%></b>  <b><%=RS.Fields(\"dato\")%></b>
</p></td></tr></table></td></tr><tr><td>
<% = RS.Fields(\"text\") %>
</td></tr>
</table>
<br>
<br>

<%
    RS.MoveNext()
WEND
%>

Der blev fundet <%= CInt(resul)%> resultat(er) på ordet \"<%=soge%>\".


<%
end if
%>
</center>

<!-- #include file=\"bund.asp\" --> 

rs.head = (\"strHead\")
rs.dato = (\"strDato\")
rs.user = (\"strUser\")
rs.text = (\"strText\")

Skal være:

rs(\"head\") = strHead
rs(\"dato\") = strDato
rs(\"user\") = strUser
rs(\"text\") = strText

set RS = Conn.Execute(\"SELECT * FROM news WHERE text LIKE \'%\" & soge & \"%\' ORDER BY ID DESC\")
RS.MoveFirst()  <-------
while not RS.EOF

Det er ikke nødvendig med den movefirst. Slet linien RS.MoveFirst. For hvis din søgning giver et tomt recordset får du en fejlen. Noget med record set deleted or BOF/EOF set.

Og du vil også automatisk stå på den første record efter søgningen.

Dette virker du skal bare ændre din database sti og navn!!!:
<%
resul = 0
%>
<!-- #include file=\"top.asp\" -->
<center>


<%
IF request.form(\"text\") = \"\" then
response.write \"Du skal huske at søge på noget.\"

Else

dim soge
soge = request.form(\"text\")


Set Conn = ServerCreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver(*.mdb)};\"
DSN = DSN & \"DQB=\"Server.MapPath (\"mappe/din-database.mdb\")
Conn.Open
strSQL=\"SELECT * FROM news WHERE text LIKE \'%\" & soge & \"%\' ORDER BY ID DESC\")
Conn.Execute

while not RS.EOF
rs(\"head\") = strHead
rs(\"user\") = strUser
rs(\"dato\") = strDato
rs(\"text\") = strText
resul = CInt(resul) + 1
response.write \"<table border=0 cellpadding=0 cellspacing=0 width=390>\"
response.write \"<tr><td>\"
response.write \"<table border=0 cellpadding=0 cellspacing=0 width=100%>\"
response.write \"<tr><td width=50% background=images/tabel_01.gif>\"
response.write \"<b>\"
response.write strHead
response.write \"</b>\"
response.write \"</td><td width=50% background=images/tabel_02.gif><p align=right>\"
response.write \"<b>\"
response.write strUser
response.write \"</b>\"
response.write \"<b>\"
response.write strDato
response.write \"</b>\"
response.write \"</p></td></tr></table></td></tr><tr><td>\"
response.write \"strText\"
response.write \"</td></tr>\"
response.write \"</table>\"
response.write \"<br>\"
response.write \"<br>\"
  RS.MoveNext()
Loop while rs.EOF
Conn.Close
Set Conn = Nothing

response.write \"Der blev fundet\"
response.write CInt(resul)
response.write \"resultat(er) på ordet\"
response.write soge
response.write \".\"


end if
%>
</center>

<!-- #include file=\"bund.asp\" -->

  RS.MoveNext() skal være:
  RS.MoveNext

så skulle det virke!!!!

rasmustest>> du forsøger at opdatere recordsettet med rs(\"felt\") = strXX du skal bytte om på dem:
strHead = rs(\"head\")
osv..

nu skulle det virke, hvis ikke synd for jeg er træt nu og gider ikke mere!!:
<%
resul = 0
%>
<!-- #include file=\"top.asp\" -->
<center>


<%
IF request.form(\"text\") = \"\" then
response.write \"Du skal huske at søge på noget.\"

Else

soge = request.form(\"text\")


Set Conn = ServerCreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver(*.mdb)};\"
DSN = DSN & \"DQB=\"Server.MapPath (\"mappe/din-database.mdb\")
Conn.Open
strSQL=\"SELECT * FROM news WHERE text LIKE \'%\" & soge & \"%\' ORDER BY ID DESC\")
Conn.Execute

while not RS.EOF
strHead = rs(\"head\")
strUser = rs(\"user\")
strDato = rs(\"dato\")
strText = rs(\"text\")
resul = CInt(resul) + 1
response.write \"<table border=0 cellpadding=0 cellspacing=0 width=390>\"
response.write \"<tr><td>\"
response.write \"<table border=0 cellpadding=0 cellspacing=0 width=100%>\"
response.write \"<tr><td width=50% background=images/tabel_01.gif>\"
response.write \"<b>\"
response.write strHead
response.write \"</b>\"
response.write \"</td><td width=50% background=images/tabel_02.gif><p align=right>\"
response.write \"<b>\"
response.write strUser
response.write \"</b>\"
response.write \"<b>\"
response.write strDato
response.write \"</b>\"
response.write \"</p></td></tr></table></td></tr><tr><td>\"
response.write \"strText\"
response.write \"</td></tr>\"
response.write \"</table>\"
response.write \"<br>\"
response.write \"<br>\"
  RS.MoveNext
Loop while rs.EOF
Conn.Close
Set Conn = Nothing

response.write \"Der blev fundet\"
response.write CInt(resul)
response.write \"resultat(er) på ordet\"
response.write soge
response.write \".\"


end if
%>
</center>

<!-- #include file=\"bund.asp\" -->