Avatar billede bbs Nybegynder
04. november 2000 - 13:19 Der er 14 kommentarer og
1 løsning

HMM!

Hej EkZperter!

Kig lige på
www.stivert.dk/yes/soegemaski/search2.asp

Der står den der fejl! Hvordan retter jeg den?

Skriv venligst hele koden! (Altså også det jeg har lavet)

------------------------------------Kode Begynd-------------------


<title>Webotal.dk - Danmarks Nye Internet P O R T A L</title>
<div align=\"center\">
  <style type=\"text/css\">
BODY {
    margin: 0px;
    background-color: #C6C6C6;
    font-family: verdana;
    font-size: 4pt;
    color: #000000; }
TD {    font-size: 7pt; }
A {    color: white; }
A:Hover {color: blue; }
INPUT, TEXTAREA {
        font-family: verdana;
        color: #303030;
        padding: 0px;
        }
</style>
</div>
<p align=\"center\">
  <script language=\"JavaScript\" src=\"menu.js\">
</script>
  <script language=\"JavaScript\" src=\"menucontext.js\"></script>
  <script language=\"JavaScript\">
showToolbar();
</script>
  <script language=\"JavaScript\">
function UpdateIt(){
if (document.all){
document.all[\"MainTable\"].style.top = document.body.scrollTop;
setTimeout(\"UpdateIt()\", 200);
}
}
UpdateIt();
</script>
<p align=\"center\">&nbsp;
<p align=\"center\">&nbsp;
<div align=\"center\">
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"537\">
    <tr>
      <td width=\"237\" height=\"91\"><img src=\"vobis-left.gif\"></td>
      <td width=\"138\" height=\"91\" background=\"vobis-middle.gif\"><img src=\"pixel.gif\" height=\"5\" width=\"0\">
        <br>
        <form action=\"search.asp\" method=\"get\" target=\"main\">
          <input type=\"TEXT\" name=\"f_keyword\" size=\"10\">
          <input type=\"submit\" value=\"Søg\" name=\"submit\">
        </form>
      </td>
      <td width=\"161\" height=\"91\"><img src=\"vobis-right.gif\"></td>
    </tr>
    <tr>
      <td colspan=\"3\" align=\"center\" height=\"21\">©2000 Webotal.dk</td>
    </tr>
  </table>
</div>
<p align=\"center\">&nbsp;


------------------------------Kode Slut-------------
Avatar billede krogstrup Nybegynder
04. november 2000 - 13:22 #1
Indsæt denne linie helt øverst i dit dokument:

<% response.buffer = true %>
Avatar billede tdaugaard Nybegynder
04. november 2000 - 13:23 #2
<% Response.Buffer = True %>

i toppen af dit ASP .. der er jo ikke noget ASP her ...

Det er pga. du f.eks. .Redirect\'er EFTER der er skrevet HTML til browseren.
Avatar billede tdaugaard Nybegynder
04. november 2000 - 13:24 #3
Det er da godt vi er enige :)
Avatar billede bbs Nybegynder
04. november 2000 - 13:24 #4
Jeg forstår ikke...
Dette skal være en søgemaskine...
Den er fuldt ud i asp!
Jeg ville lave lidt design ved den, og nu virker den ikke!
Som sagt, så skriv venligst HELE den færdige kode!
Avatar billede tdaugaard Nybegynder
04. november 2000 - 13:27 #5
bbs, du har jo ikke skrevet nogen ASP kode i din kode her!!
Men hvis du absolut vil have det, så:

<% Response.Buffer = True %>
<title>Webotal.dk - Danmarks Nye Internet P O R T A L</title>
<div align=\"center\">
  <style type=\"text/css\">
BODY {
    margin: 0px;
    background-color: #C6C6C6;
    font-family: verdana;
    font-size: 4pt;
    color: #000000; }
TD {    font-size: 7pt; }
A {    color: white; }
A:Hover {color: blue; }
INPUT, TEXTAREA {
        font-family: verdana;
        color: #303030;
        padding: 0px;
        }
</style>
</div>
<p align=\"center\">
  <script language=\"JavaScript\" src=\"menu.js\">
</script>
  <script language=\"JavaScript\" src=\"menucontext.js\"></script>
  <script language=\"JavaScript\">
showToolbar();
</script>
  <script language=\"JavaScript\">
function UpdateIt(){
if (document.all){
document.all[\"MainTable\"].style.top = document.body.scrollTop;
setTimeout(\"UpdateIt()\", 200);
}
}
UpdateIt();
</script>
<p align=\"center\">&nbsp;
<p align=\"center\">&nbsp;
<div align=\"center\">
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"537\">
    <tr>
      <td width=\"237\" height=\"91\"><img src=\"vobis-left.gif\"></td>
      <td width=\"138\" height=\"91\" background=\"vobis-middle.gif\"><img src=\"pixel.gif\" height=\"5\" width=\"0\">
        <br>
        <form action=\"search.asp\" method=\"get\" target=\"main\">
          <input type=\"TEXT\" name=\"f_keyword\" size=\"10\">
          <input type=\"submit\" value=\"Søg\" name=\"submit\">
        </form>
      </td>
      <td width=\"161\" height=\"91\"><img src=\"vobis-right.gif\"></td>
    </tr>
    <tr>
      <td colspan=\"3\" align=\"center\" height=\"21\">©2000 Webotal.dk</td>
    </tr>
  </table>
</div>
<p align=\"center\">&nbsp;
Avatar billede bbs Nybegynder
04. november 2000 - 13:31 #6
Jeg kiggede lige hurtigt på den gamle fil, og jeg kan sq ikke forstå hvordan jeg \"fandt på\" den kode ovenfor. Her er den \"rigtige\"

-----------------------------------------------------Kode Begynd-------------------------------------

<% Response.Buffer = True %>

<%
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    Response.Clear
    Response.Redirect(\"search.asp\")

Else
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")

End If

strSQL = \"SELECT id, titel, url, beskrivelse, kategori, sogeord, kontaktperson, kontaktmail FROM siderne WHERE\"
strSQL = strSQL & \" (titel LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (url LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (sogeord LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"brugere.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Response.Write \"<p>Søgeresultat:</p>\"
    Response.Write \"<table border=1>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td><center><a href=\'http://\" & rs(\"url\") & \"\' target=\'_blank\'>\" & rs(\"titel\") & \"</a><br>\" & rs(\"beskrivelse\") & \"</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    Loop
    Response.Write \"</table>\"
Else

    Response.Write \"<p>Søgeresultet: <br><br>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>


--------------------------------------------Kode Slut----------------------------------------

Jeg vil stadig have det der design på. Hvis du / i også kan klare det, kommer der 30 extra points med!
Avatar billede tdaugaard Nybegynder
04. november 2000 - 13:35 #7
<%
Response.Buffer = True

strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    Response.Clear
    Response.Redirect(\"search.asp\")

Else
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")

End If

strSQL = \"SELECT id, titel, url, beskrivelse, kategori, sogeord, kontaktperson, kontaktmail FROM siderne WHERE\"
strSQL = strSQL & \" (titel LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (url LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (sogeord LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"brugere.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Response.Write \"<p>Søgeresultat:</p>\"
    Response.Write \"<table border=1>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td><center><a href=\'http://\" & rs(\"url\") & \"\' target=\'_blank\'>\" & rs(\"titel\") & \"</a><br>\" & rs(\"beskrivelse\") & \"</td>\"
        Response.Write \"</tr>\"
        rs.MoveNext
    Loop
    Response.Write \"</table>\"
Else

    Response.Write \"<p>Søgeresultet: <br><br>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>

Prøv med den!
Avatar billede ortrak Nybegynder
04. november 2000 - 13:35 #8
hmm. Lad mig gætte på, at du inkluderer ovenstående kode i en anden asp-side??

I så fald skal <% Response.Buffer = True %>
fjernes og i stedet sættes i toppen af den asp-side som inkluderer din kode.


/ortrak


Avatar billede bbs Nybegynder
04. november 2000 - 13:42 #9
Ortak >> Skriv venligst hele koden, hvis du er intereseret i points...
Avatar billede tdaugaard Nybegynder
04. november 2000 - 13:51 #10
bbs, LÆS hvad han skriver!

\"Lad mig gætte på, at du inkluderer ovenstående kode i en anden asp-side??\"

så har han jo ikke en jordisk chance for at skrive koden ..
Avatar billede ortrak Nybegynder
04. november 2000 - 13:57 #11
nemmerlig, tdaugaard.
Jeg har bedre ting at bruge min tid til end fejl 40 relaterede problemer.

/ortrak
Avatar billede tdaugaard Nybegynder
04. november 2000 - 14:02 #12
Yup .. selvom det plejer at være de slemmeste, så er der altså ikke altid, tid til dem ;)
Avatar billede bbs Nybegynder
05. december 2000 - 16:59 #13
meget hjælp fik jeg ikke, men tak alligevel...
Avatar billede bbs Nybegynder
05. januar 2001 - 15:26 #14
!
Avatar billede ortrak Nybegynder
11. januar 2001 - 16:12 #15
taber
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester