Søg
Avatar billede aero Nybegynder
05. juli 2003 - 15:52 Der er 82 kommentarer og
2 løsninger

Lille Fejl i script samt udvidelse

Jeg har denne side:

<!-- #INCLUDE file="common.asp" -->
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<select onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value="default.asp?valg=0">Alle emner</option>
<option value="default.asp?valg=1">Photoshop</option>
<option value="default.asp?valg=2">3D studio MAX</option>
<option value="default.asp?valg=3">LightWave</option>
<option value="default.asp?valg=4">Flash</option>
</select>



<%
ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

Valg = Request.Querystring("valg")
if (valg = "0") then
    strSQL = "Select * From Grupper Order by Id Desc"
else
    strSQL = "Select * From Grupper Where Emne = '" & ArrValg(Valg) & "' Order by Id Desc"
end if
    Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>


Jeg har et lille problem !!
Når man kommer ind på siden viser den intet, kun en tom side med en JUMPmenu !! JEg vil godt have den til at vise alle recorder fra Grupper ordre by ID !!!

Når jeg vælger de forskellige emner så vises disse men når jeg klikker på "alle emner" så sker der intet, her skal den igen vise alle recorder fra Grupper ordre by ID !!!

Jeg kunne godt tænke mig et tekstfelt bag JUMPmenuen hvor man kan skrive noget og hvor den så viser alle recorder hvor de forskellige ord man har skrevet indgår fra tabellen Grupper feltet TEKST ordre by ib !!!

Nogle der kan hjælpe med disse små ting ??
Avatar billede eagleeye Praktikant
05. juli 2003 - 15:59 #1
Hvis der ikke er valg noget så er valg i querystring sikert = "" og ikke "0"
Så prøv at lave din if sætning om så den tejkker på =""


Valg = Request.Querystring("valg")
if (valg = "") then
Avatar billede aero Nybegynder
05. juli 2003 - 16:08 #2
Okay så viser den alle indlæg nå man kommer ind men vælger jeg så nogen af de forskellige emner og vil vende tilbage til alle emner altså alle recorder så kan den ikke det, der sker somsagt intet !!??
Avatar billede nielle Nybegynder
05. juli 2003 - 16:11 #3
Valg = Request.Querystring("valg")
if (Valg = "" or Valg = "0") then
  strSQL = "SELECT * FROM Grupper ORDER BY Id Desc"
else
  strSQL = "SELECT * FROM Grupper EHERE Emne = '" & ArrValg(Valg) & "' ORDER BY Id Desc"
end if
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:11 #4
Ja ok nukan jeg se hvorfor "0" var med. Så tilføje så den både tjekker på "" og "0"

if (valg = "" OR valg = "0") then
Avatar billede nielle Nybegynder
05. juli 2003 - 16:12 #5
EHERE -> WHERE
Avatar billede nielle Nybegynder
05. juli 2003 - 16:13 #6
:^)
Avatar billede aero Nybegynder
05. juli 2003 - 16:16 #7
okay rettede den lige til det i skrev !! men den vil ikke vise alle recorder når man vælger "ALLE EMNER" hvis man lige har været inte og set evt Photoshop emnerne !!!  så bliver den bare der selvom jeg klikker på alle emner så sker der intet !!!
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:22 #8
Det er fordi når du kommer ind så er  "Alle emner" valgt i dropdown menu'en og når du vælger den med musen laver den ikke et onChange event da den er valgt.

Så enten må du lave noget kode som vælger den <option> som er valgt eller lave en ekstra <option> som den føste.:

<option value="spm372977.asp?valg=0">..vælg her..</option>
Avatar billede nielle Nybegynder
05. juli 2003 - 16:26 #9
Din onChange bliver slet ikke kaldt når du vælger "alle emner" - da den allerede er på dette punkt sker der jo ikke nogen ændring.
Avatar billede aero Nybegynder
05. juli 2003 - 16:29 #10
kanon lavede det om til dette:

<select onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value="default.asp?valg=0"></option>
<option value="default.asp?valg=1">Photoshop</option>
<option value="default.asp?valg=2">3D studio MAX</option>
<option value="default.asp?valg=3">LightWave</option>
<option value="default.asp?valg=4">Flash</option>
<option value="default.asp?valg=0">Alle Emner</option>
</select>

og nu virker det !!!  TAK !!!

Så er der lige den sidste del ang. et søge felt !!! kan I/du hjælpe med det ??
Avatar billede nielle Nybegynder
05. juli 2003 - 16:30 #11
<select onChange="self.location.href=this.options[this.selectedIndex].value;">
<option selected>Vælg et emne</option>
<option value="default.asp?valg=0">Alle emner</option>
<option value="default.asp?valg=1">Photoshop</option>
<option value="default.asp?valg=2">3D studio MAX</option>
<option value="default.asp?valg=3">LightWave</option>
<option value="default.asp?valg=4">Flash</option>
</select>
Avatar billede aero Nybegynder
05. juli 2003 - 16:36 #12
ja det virker også og tror det er lidt smartere !! ;)
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:37 #13
Et søge felt Ja da, så skal det laves lidt om med kan laves..:

Her er din kode laves lidt eller en del om alt efter behov :



<!-- #INCLUDE file="common.asp" -->
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<form action="" method="post">
<!--<select onChange="self.location.href=this.options[this.selectedIndex].value;">-->
<select name="valg" onChange="this.form.submit();">
<option value="0">..vælg her..</option>
<option value="0">Alle emner</option>
<option value="1">Photoshop</option>
<option value="2">3D studio MAX</option>
<option value="3">LightWave</option>
<option value="4">Flash</option>
</select>
<br>
<input type="text" name="ord"> Søgeord<br>
<input type="submit" name="søg" value="søg">
</form>
<%

ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

Valg = Request.form("valg")
ord = Request.form("ord")
if (valg = "0") then
    strSQL = "Select * From Grupper Order by Id Desc"
else
    strSQL = "Select * From Grupper Where Emne = '" & ArrValg(Valg) & "'"
    if ord <> "" then
      strSQL = strSQL & " AND KOLONNE = '" & ord & "' "
    end if
    strSQL = strSQL & " Order by Id Desc"
end if

    Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>
Avatar billede aero Nybegynder
05. juli 2003 - 16:42 #14
http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default.asp

1. Nu viser den ikke alle indlæg igen !!!

2. Prøv at skriv bil eller jensen i søge feltet og søg !! så finder den alle mulige andre som intet har med disse ting at gøre !!!
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:44 #15
I hvilken kolonne søger du og hvordan ??
Avatar billede aero Nybegynder
05. juli 2003 - 16:44 #16
KOLONNE = Navn !!!
Avatar billede aero Nybegynder
05. juli 2003 - 16:45 #17
jeg skriver bare Jensen fordi jeg ved der er sådan et navn og så viser den alle !!!
Avatar billede aero Nybegynder
05. juli 2003 - 16:46 #18
Prøv at vælg "FLASH" og derefter søg efter BIL så viser den alle indlæg selvom det kun er i 3D studio MAX der findes en med navnet BIL !!!
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:47 #19
Du skal først skrive BIL og så vælge FLASH
Avatar billede nielle Nybegynder
05. juli 2003 - 16:48 #20
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<form action="default.asp" id="FormA" method="post">
<select name="Emne" onChange="FormA.submit()">
<option value="">Vælg et emne</option>
<option value="">Alle emner</option>
<option value="WHERE Emne='Photoshop'">Photoshop</option>
<option value="WHERE Emne='3D studio MAX'">3D studio MAX</option>
<option value="WHERE Emne='LightWave'">LightWave</option>
<option value="WHERE Emne='Flash'">Flash</option>
</select>

<input type="text" name="SoegeOrd">

</form>

<%
SQL = "SELECT * FROM Grupper " & Request.Form("Emne") &  " WHERE Tekst LIKE '%" & Request.Form(SoegeOrd) & "%' ORDER BY Id DESC"
%>

<%
ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

set rs = Cn.Execute(SQL)
if rs.EOF then
  Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  Do Until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
Loop
Response.Write "</table><br>"
End if
Cn.Close
Set Cn = Nothing
%>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 16:50 #21
Forkert... En rettet version på vej!
Avatar billede aero Nybegynder
05. juli 2003 - 16:52 #22
kan det ikke laves mere dynamisk !!! folk ved jo ikke at de skal gøre det på den måde !!!

de skal have mulighed for at kunne vælge emne !!! men hvis de hellere vil søge efter "GRÆS Tutorials"  så finder den alle recorder hvor ordene Græs og turotials indgår som noget af teksten i tekst (SOM HER LIGENU ER NAVN) og så viser den alle disse lige meget om det er photoshop eller 3D Studio MAX mm !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 16:52 #23
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<form action="default.asp" id="FormA" method="post">
<select name="Emne" onChange="FormA.submit()">
<option value="">Vælg et emne</option>
<option value="">Alle emner</option>
<option value=" AND Emne='Photoshop'">Photoshop</option>
<option value=" AND Emne='3D studio MAX'">3D studio MAX</option>
<option value=" AND Emne='LightWave'">LightWave</option>
<option value=" AND Emne='Flash'">Flash</option>
</select>
<input type="text" name="SoegeOrd">
</form>

<%
SQL = "SELECT * FROM Grupper WHERE Tekst LIKE '%" & Request.Form(SoegeOrd) & "%'" & Request.Form("Emne") &  " ORDER BY Id DESC"
set rs = Cn.Execute(SQL)
if rs.EOF then
  Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  Do Until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
Loop
Response.Write "</table><br>"
End if
Cn.Close
Set Cn = Nothing
%>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 16:56 #24
Da programmet ikke kan vide hvornår brugeren er færdig med at udfylde det ekstra tekst-felt, så kan det ikke selv starte med at søge. Du er derfor nødt til at have en Søg-knap.

Hvis du ikke vil have en sådan, så mø du desværre bruge onChange som den ser ud nu.
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:57 #25
Jo brug dette så:

Den husker også hvilken kategori der valgt:



<!-- #INCLUDE file="common.asp" -->
<%
Valg = Request.form("valg")
%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<form action="" method="post">
<!--<select onChange="self.location.href=this.options[this.selectedIndex].value;">-->
<select name="valg" onChange="this.form.submit();">
<option value="0">..vælg her..</option>
<option value="0"<% if Valg="0" then Response.Write " SELECTED "%>>Alle emner</option>
<option value="1"<% if Valg="1" then Response.Write " SELECTED "%>>Photoshop</option>
<option value="2"<% if Valg="2" then Response.Write " SELECTED "%>>3D studio MAX</option>
<option value="3"<% if Valg="3" then Response.Write " SELECTED "%>>LightWave</option>
<option value="4"<% if Valg="4" then Response.Write " SELECTED "%>>Flash</option>
</select>
<br>
<input type="text" name="ord"> Søgeord<br>
<input type="submit" name="søg" value="søg">
</form>
<%

ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

ord = Request.form("ord")

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE navn = '" & ord & "' "
end if
if not (valg = "" or valg = "0") then
  if ord = "" then strSQL = strSQL & " Where "
 
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"

  Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>
Avatar billede aero Nybegynder
05. juli 2003 - 16:58 #26
okay men jeg skal bare bruge noget der virker !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 16:58 #27
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<form action="default.asp" method="post">
<select name="Emne">
<option value="">Vælg et emne</option>
<option value="">Alle emner</option>
<option value=" AND Emne='Photoshop'">Photoshop</option>
<option value=" AND Emne='3D studio MAX'">3D studio MAX</option>
<option value=" AND Emne='LightWave'">LightWave</option>
<option value=" AND Emne='Flash'">Flash</option>
</select>
<input type="text" name="SoegeOrd">
<input type="submit" value="Søg!">
</form>

<%
SQL = "SELECT * FROM Grupper WHERE Tekst LIKE '%" & Request.Form(SoegeOrd) & "%'" & Request.Form("Emne") &  " ORDER BY Id DESC"
set rs = Cn.Execute(SQL)
if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing
%>
</body>
</html>
Avatar billede eagleeye Praktikant
05. juli 2003 - 16:59 #28
Og hvis du ikke vil havde den reloader siden når man vælger kategori men skal skrive trykke på søg kanppen retter du denne linje:

<select name="valg" onChange="this.form.submit();">

Til,, denne så er onChange submit væk:
<select name="valg">
Avatar billede nielle Nybegynder
05. juli 2003 - 17:00 #29
Request.Form(SoegeOrd) skal ændres til Request.Form("SoegeOrd")
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:00 #30
hov en fejl

RET DETTE:

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE navn = '" & ord & "' "
end if
if not (valg = "" or valg = "0") then
  if ord = "" then strSQL = strSQL & " Where "
 
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"


TIL DETTE:

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE navn = '" & ord & "' "
end if
if not (valg = "" or valg = "0") then
  if ord = "" then
    strSQL = strSQL & " Where "
  end
    strSQL = strSQL & " AND "
  end 
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"
Avatar billede aero Nybegynder
05. juli 2003 - 17:06 #31
Dette er EAGLEEYE'e eks:

http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default.asp

Den skal altis starte med alle recorder når man kommer ind på siden !!!
når man skriver noget i søgefetlet og vælger hvilken kat den skal søge i så virker det men kunne det ikke laves så man bare kan skrive noget og klikke søg og så har KAT intet med det at gøre !!! den søger KUN efter hvor orderne indgår i navn på tværs af alle KAT !!??  sådan virker de fleste søge funktion jo på google ovs !???


DETTE ER NIELLE EKS:

http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default2.asp

har tilføjet dette i coden:

</select>
<input type="text" name="SoegeOrd">
<input type="submit" name="søg" value="søg">
</form>

virker ikke får fejl ved linje 22 som er:

SQL = "SELECT * FROM Grupper WHERE Navn LIKE '%" & Request.Form(SoegeOrd) & "%'" & Request.Form("Emne") &  " ORDER BY Id DESC"
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:09 #32
Prøv med dette styk kode.:


<!-- #INCLUDE file="common.asp" -->
<%
Valg = Request.form("valg")
%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<form action="" method="post">
<select name="valg" onChange="this.form.submit();">
<option value="0">..vælg her..</option>
<option value="0"<% if Valg="0" then Response.Write " SELECTED "%>>Alle emner</option>
<option value="1"<% if Valg="1" then Response.Write " SELECTED "%>>Photoshop</option>
<option value="2"<% if Valg="2" then Response.Write " SELECTED "%>>3D studio MAX</option>
<option value="3"<% if Valg="3" then Response.Write " SELECTED "%>>LightWave</option>
<option value="4"<% if Valg="4" then Response.Write " SELECTED "%>>Flash</option>
</select>
<br>
<input type="text" name="ord"> Søgeord<br>
<input type="submit" name="søg" value="søg">
</form>
<%

ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

ord = Request.form("ord")

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE navn = '" & ord & "' "
end if
if not (valg = "" or valg = "0") then
  if ord = "" then
    strSQL = strSQL & " Where "
  else
    strSQL = strSQL & " AND "
  end if
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"

  Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 17:09 #33
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption, ThisValue) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="default.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Vælg et emne", Emne, "")
call OptionSelect("Alle emner", Emne, "")
call OptionSelect("Photoshop", Emne, " AND Emne='Photoshop'")
call OptionSelect("3D studio MAX", Emne, " AND Emne='3D studio MAX'")
call OptionSelect("LightWave", Emne, " AND Emne='LightWave'")
call OptionSelect("Flashr", Emne, " AND Emne='Flash'")
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%
SQL = "SELECT * FROM Grupper WHERE Tekst LIKE '%" & SoegeOrd & "%'" & Emne &  " ORDER BY Id DESC"
set rs = Cn.Execute(SQL)
if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing %>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 17:10 #34
Her har den "hukommelse" - det forige valg står stadigt i felterne.
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:17 #35
I stedet for den 100% på det man skriver så kan du rette denne linje:

  strSQL = strSQL & " WHERE navn = '" & ord & "' "


Så der står LIKE istedet for = sådan her:

  strSQL = strSQL & " WHERE navn LIKE '%" & ord & "%' "
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:18 #36
Så finder den alle hvor søgeored indgår og ikke kun når det er lig med.
Avatar billede aero Nybegynder
05. juli 2003 - 17:19 #37
Det gør stærkt fra jeres side !!!! LOL ;)

Okay...

NIELLE EKS:

http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default2.asp

Jeg kan ikke vælge de forskellige emner mm og søg funktionen virker ikke selvom TEKST = NAVN !!!


EAGLEEYE'e eks:

http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default.asp

Begynder at ligne noget nu !!! er dog en lille fejl !!! 
SØG efter bil ved alle indlæg !!!  den viser det rigtige !!!men når jeg klikker på alle emner gør den ikke tilbage kun når jeg klikker i vælg et emne kan disse to byttes !??
Avatar billede aero Nybegynder
05. juli 2003 - 17:21 #38
+ hvis jeg skriver TE BI så viser den ingen fundet men der er jo 1 med BI og 2-3 med TE !????  hvordan kan de vise alle !???
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:23 #39
Prøv med denne så, rette den lille fejl du beskriver og lavet om til at søge med LIKE:


<!-- #INCLUDE file="common.asp" -->
<%
Valg = Request.form("valg")
%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<form action="" method="post">
<select name="valg" onChange="this.form.submit();">
<option value="">..vælg her..</option>
<option value="0"<% if Valg="0" then Response.Write " SELECTED "%>>Alle emner</option>
<option value="1"<% if Valg="1" then Response.Write " SELECTED "%>>Photoshop</option>
<option value="2"<% if Valg="2" then Response.Write " SELECTED "%>>3D studio MAX</option>
<option value="3"<% if Valg="3" then Response.Write " SELECTED "%>>LightWave</option>
<option value="4"<% if Valg="4" then Response.Write " SELECTED "%>>Flash</option>
</select>
<br>
<input type="text" name="ord"> Søgeord<br>
<input type="submit" name="søg" value="søg">
</form>
<%

ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

ord = Request.form("ord")

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE navn LIKE '%" & ord & "%' "
end if
if not (valg = "" or valg = "0") then
  if ord = "" then
    strSQL = strSQL & " Where "
  else
    strSQL = strSQL & " AND "
  end if
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"

  Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>
Avatar billede aero Nybegynder
05. juli 2003 - 17:27 #40
ja okay men ....

CITAT:
Kommentar: aero
05/07-2003 16:52:00

men hvis de hellere vil søge efter "GRÆS Tutorials"  så finder den alle recorder hvor ordene Græs og turotials indgår !!!!

jeg kan ikke få recorderne frem med "te bi" der skulle den jo vise:

tester  Flash
test  LightWave
Bil  3D Studio MAX

men den viser ingen funder eller DB er tom !!!
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:34 #41
ok så prøv med dette:


<!-- #INCLUDE file="common.asp" -->
<%
Valg = Request.form("valg")
%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<form action="" method="post">
<select name="valg" onChange="this.form.submit();">
<option value="">..vælg her..</option>
<option value="0"<% if Valg="0" then Response.Write " SELECTED "%>>Alle emner</option>
<option value="1"<% if Valg="1" then Response.Write " SELECTED "%>>Photoshop</option>
<option value="2"<% if Valg="2" then Response.Write " SELECTED "%>>3D studio MAX</option>
<option value="3"<% if Valg="3" then Response.Write " SELECTED "%>>LightWave</option>
<option value="4"<% if Valg="4" then Response.Write " SELECTED "%>>Flash</option>
</select>
<br>
<input type="text" name="ord"> Søgeord<br>
<input type="submit" name="søg" value="søg">
</form>
<%

ArrValg = Split("Alle emner,Photoshop,3D Studio MAX,LightWave,Flash", ",")

ord = Request.form("ord")

strSQL = "Select * From Grupper"
if ord <> "" then
  strSQL = strSQL & " WHERE ("
  ordArr = Split(ord," ")
  for i = lbound(ordArr) to ubound(ordArr)
    strSQL = strSQL & "navn LIKE '%" & ordArr(i) & "%' "
    if i < ubound(ordArr) then strSQL = strSQL & " OR "
  next
  strSQL = strSQL & ")"
end if
if not (valg = "" or valg = "0") then
  if ord = "" then
    strSQL = strSQL & " Where "
  else
    strSQL = strSQL & " AND "
  end if
  strSQL = strSQL & " Emne = '" & ArrValg(Valg) & "'"
end if
strSQL = strSQL & " Order by Id Desc"

  Set rs = Cn.Execute(strSQL)
    if rs.EOF then
        Response.write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
    else
        Do Until rs.EOF
            strEmne = rs("Emne")
            strNavn = rs("Navn")
            Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End if
    Cn.Close
    Set Cn = Nothing
%>
</body>
</html>
Avatar billede aero Nybegynder
05. juli 2003 - 17:42 #42
EAGLEEYE

Jeg takker mange gange !!!!  ;)

Lige en lille ting jeg er ved at lave dette:
http://www.javacoder.dk:56400/ASP_3.0/nyhedscript/news.asp

hvor jeg vil bygge din code ind !!! er der noget jeg skal være opmærksom på !??? eller vil det bare virke 100 % !???

Min code på denne side !!

<!--#include file="inklude/sqldbcn.asp"-->
<!--#include file="inklude/easytags.asp"-->
<html>
<head>
<LINK  href=inklude/style.css type=text/css rel=stylesheet>
</head>
<body>
<%
intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If


Call OpenDB
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select [Forfatter],[Dato],[Tekst],[Overskrift] from news " & _
        "ORDER BY [id] DESC", connStr, 3, 4


If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<div class=sidetal><b>Side " & intPage & " af " & intPageCount & space(6) & "Ialt" & space(1) & rs.RecordCount & space(1) & "Nyheder</b></div><br>"
    Response.Write "<table width=500 border=0 cellpadding=1 cellspacing=1>"
    Do While Not rs.EOF And intRecCount > 0
   
    strForfatter = rs("Forfatter")
    strOverskrift = rs("Overskrift")
    strTekst = rs("Tekst")
    strDate = rs("Dato")
    strDate = FormatDateTime(strDate,vbLongDate) & " kl. " & FormatDateTime(strDate,vbLongTime)
   
    Response.Write "<tr><td class=tblnewsover colspan=""2""><div class=overskrift>" & space(2) & strOverskrift & "</div></td>"
    Response.Write "<tr><td class=tblnews width=""50%""><font class=forfatter>" & space(1) & strForfatter & "</font><font class=skriver>"& space(1) &"skriver:</font></td>"
    Response.Write "<td class=tblnews width=""50%""><div class=date align=""right"">" & strDate & space(1) &"</div></td></tr>"
    Response.Write "<tr><td colspan=""2""><font face=verdana size=2>" & strTekst & "<br><br style=""font-size: 3px""></td></tr>"
    Response.Write "<tr><td class=tblnewsend height=""3"" colspan=""2""></td></tr>"
    Response.Write "<tr><td height=""3"" colspan=""2""></td></tr>"
   
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    Response.Write "</table>"
    else
    Response.Write "<p><font face=verdana size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>"
End If
Call CloseDB

Response.Write "<table width=500 border=0 cellpadding=1 cellspacing=1>"
Response.Write "<tr><td width=""70%"" colspan=""2"">"
Response.Write "<div class=sidetal>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<b><a href=news.asp?side=" & intNum & ">" & intNum & "</a></b> "
Next

Response.Write "</div></td><td width=""30%"">"
If Clng(intPage) > 1 Then
    Response.Write "<a class=de href=news.asp?side=" & intPage - 1 & "><b>&#8592; Tilbage</b></a> "
Else
    Response.Write ""
End If

Response.Write space(2)

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a class=de href=news.asp?side=" & intPage + 1 & "><b>Frem &#8594;</b></a></td></tr> "
    Response.Write "</table>"
Else
    Response.Write ""
End If
%>
</body>
</html>
Avatar billede eagleeye Praktikant
05. juli 2003 - 17:48 #43
Det skulle være mulig ja.

Det er en side med paging. Der er lige en ting du skal være opmærksom på hvis du har et søgeord på en paging side så skal søgeordet føres vidre fra side til side så man på hver side søger efter det samme.
Eks på at man føre søge teksten vidre med:

Response.Write "<a class=de href=news.asp?side=" & intPage + 1 & "&ord=" & ord & "><

Så der et en QueryString og ikke fra Form'en, så kan man i stdet for Request.Form("xxx") skrive  Request("xxx") så fander den både form og querystrings.
Avatar billede aero Nybegynder
05. juli 2003 - 17:53 #44
okay jeg laver lige et eks hurtigt og ser om det virker og ellers lave jeg lige et spm til det så du kan få lidt der også hvis du vil hjælpe !!!
Avatar billede aero Nybegynder
05. juli 2003 - 17:59 #45
hvad skal du have for at bygge de 2 scrips sammen !?? er lieg røget i et hul !!!  150 P !??
Avatar billede nielle Nybegynder
05. juli 2003 - 18:00 #46
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption, ThisValue) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="default.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Vælg et emne", Emne, "")
call OptionSelect("Alle emner", Emne, "")
call OptionSelect("Photoshop", Emne, "Emne='Photoshop'")
call OptionSelect("3D studio MAX", Emne, "Emne='3D studio MAX'")
call OptionSelect("LightWave", Emne, "Emne='LightWave'")
call OptionSelect("Flashe", Emne, "Emne='Flash'")
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%

SQL = "SELECT * FROM SoegeordTable WHERE"

SoegeordParts = split(Soegeord, " ")

SQL2 = ""
FirstPart = true
for each Part in SoegeordParts
  if FirstPart then
    SQL2 = SQL2 & "Tekst LIKE '%" & Part & "%'"
    FirstPart = false
  else
    SQL2 = SQL2 & " OR Tekst LIKE '%" & Part & "%'"
  end if
next

if SQL2 <> "" then
  SQL2 = " (" & SQL2 & ") AND "
end if

SQL = SQL & SQL2 & Emne &  " ORDER BY Id DESC"

set rs = Cn.Execute(SQL)

if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing %>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 18:02 #47
Ups... Retter lige til:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption, ThisValue) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="default.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Vælg et emne", Emne, "")
call OptionSelect("Alle emner", Emne, "")
call OptionSelect("Photoshop", Emne, "Emne='Photoshop'")
call OptionSelect("3D studio MAX", Emne, "Emne='3D studio MAX'")
call OptionSelect("LightWave", Emne, "Emne='LightWave'")
call OptionSelect("Flashe", Emne, "Emne='Flash'")
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%

SQL = "SELECT * FROM Grupper WHERE"

SoegeordParts = split(Soegeord, " ")

SQL2 = ""
FirstPart = true
for each Part in SoegeordParts
  if FirstPart then
    SQL2 = SQL2 & "Tekst LIKE '%" & Part & "%'"
    FirstPart = false
  else
    SQL2 = SQL2 & " OR Tekst LIKE '%" & Part & "%'"
  end if
next

if SQL2 <> "" then
  SQL2 = " (" & SQL2 & ") AND "
end if

SQL = SQL & SQL2 & Emne &  " ORDER BY Id DESC"

set rs = Cn.Execute(SQL)

if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing %>
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 18:04 #48
Arrgh. Hvorfor ser man dem først bagefter. Rettes endnu engang til:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption, ThisValue) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="default.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Vælg et emne", Emne, "")
call OptionSelect("Alle emner", Emne, "")
call OptionSelect("Photoshop", Emne, " Emne='Photoshop'")
call OptionSelect("3D studio MAX", Emne, " Emne='3D studio MAX'")
call OptionSelect("LightWave", Emne, " Emne='LightWave'")
call OptionSelect("Flashe", Emne, " Emne='Flash'")
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%

SQL = "SELECT * FROM Grupper WHERE"

SoegeordParts = split(Soegeord, " ")

SQL2 = ""
FirstPart = true
for each Part in SoegeordParts
  if FirstPart then
    SQL2 = SQL2 & "Tekst LIKE '%" & Part & "%'"
    FirstPart = false
  else
    SQL2 = SQL2 & " OR Tekst LIKE '%" & Part & "%'"
  end if
next

if SQL2 <> "" then
  SQL2 = " (" & SQL2 & ") AND "
end if

SQL = SQL & SQL2 & Emne &  " ORDER BY Id DESC"

set rs = Cn.Execute(SQL)

if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing %>
</body>
</html>
Avatar billede c Nybegynder
05. juli 2003 - 18:16 #49
http://www.eksperten.dk/spm/372658

+
Følgende skal ændres:
<form name="kat">
<select onChange="self.location.href=this.options[this.selectedIndex].value+'&tekst='+document.kat.tekst.value;">
<option value="default.asp?valg=0">Alle emner</option>
<option value="default.asp?valg=1">Photoshop</option>
<option value="default.asp?valg=2">3D studio MAX</option>
<option value="default.asp?valg=3">LightWave</option>
<option value="default.asp?valg=3">Flash</option>
</select>

<input type="text" name="find" size="20" />
</form>

samt:
if (valg = "0") then
    strSQL = "Select * From Grupper WHERE (Tekst LIKE '%" & request("tekst") & "%') Order by Id Desc"
else
    strSQL = "Select * From Grupper Where Emne = '" & ArrValg(Valg) & "' AND (Tekst LIKE '%" & request("tekst") & "%') Order by Id Desc"
end if

Jeg er ikke helt sikker på at det jeg har ændret i javascriptet virker (i andre må lige hjælpe mig...) men resten bør virke.

mvh
Christian
Avatar billede eagleeye Praktikant
05. juli 2003 - 18:24 #50
På hvilken måde skal de to scripts bygges samme??

Skal du havde paging på det script fra dette spørgsmål eller skal du også havde et søge felt + kategori select ind på den side med paging?
Avatar billede aero Nybegynder
05. juli 2003 - 18:32 #51
jeg skal bruge NYHEDSSCRIPTET som det er med ved sider at SIDE 1 af X bla bla bla !!!  vil jeg jerne have KAT som søger på KAT. og DATE

Site News
ADMIN News
2 mdr gammelt
1 mdr gammelt
14 dage
7 dage
Dagens Nyheder

og et søge felt ved siden af hvor jeg kan søge som nu bare i TEKST feltet !!!
Så jeg skal kun have nogle ting fra dette SPM ført over på det med padding !!!
Avatar billede aero Nybegynder
05. juli 2003 - 18:33 #52
noget du vil så opretter jeg lige et spm til 150 P hvis det er OK !!?
Avatar billede eagleeye Praktikant
05. juli 2003 - 18:50 #53
Ja, jeg kan prøve..

Har du en kolonne som afgøre eksvis status på din nyhed når du skriver Site News / ADMIN News.

Når man vælger ny kategori Site/admin news eller Dato, eller skriver noget kommer den til at starte fra side 1 i paging.
Avatar billede nielle Nybegynder
05. juli 2003 - 18:54 #54
Man skal altid, altid, altid teste! Her er et fungerende eksempel:

(En demo kan ses på: http://www.acomma.com/udvikling2/sqldemo.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="sqldemo.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Vælg et emne", Emne)
call OptionSelect("Alle emner", Emne)
call OptionSelect("Photoshop", Emne)
call OptionSelect("3D studio MAX", Emne)
call OptionSelect("LightWave", Emne)
call OptionSelect("Flash", Emne)
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%

' Start på SQL strengen.

SQL = "SELECT * FROM Grupper "

SoegeordParts = split(Soegeord, " ")

' Udregn WHERE delen.

if Emne <> "" then
  SQL2 = "Emne='" & Emne & "'"
end if

SQL3 = ""
FirstPart = true
for each Part in SoegeordParts
  if FirstPart then
    SQL3 = SQL3 & "Tekst LIKE '%" & Part & "%'"
    FirstPart = false
  else
    SQL3 = SQL3 & " OR Tekst LIKE '%" & Part & "%'"
  end if
next

if SQL3 <> "" then
  SQL3 = "(" & SQL3 & ")"
end if

' Læg WHERE delen til SQL strengen

if SQL2<>"" or SQL3<>"" then
  SQL = SQL & " WHERE "
  if SQL2<>"" and SQL3<>"" then
    SQL = SQL & SQL2 & " AND " & SQL3
  else
    SQL = SQL & SQL2 & SQL3  ' Hurtig genvej: En af dem er tomme.
  end if
end if

SQL = SQL & " ORDER BY Id DESC"  ' Gør SQL strengen færdig.
set rs = Cn.Execute(SQL)

if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing %>
</body>
</html>
Avatar billede aero Nybegynder
05. juli 2003 - 18:55 #55
ja jeg laver en KOLONNE som hedder Kat hvor jeg skriver Site eller ADMIN News og hvir man ikke søger på disse i jumpmenuen så søger den så på dagene i DATO og den skal kun vise de indlæg der er i det man har søgt på og vise ditte fra side 1 !! og der hvor der står "antal recorder 12" skal ændres til det antal af recorder hvor det søgtet findes i !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:00 #56
Somme tider bliber jeg sgu så træt! HER:

(En demo kan ses på: http://www.acomma.com/udvikling2/sqldemo.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>

<%
Emne = Request.Form("Emne")
SoegeOrd = Request.Form("SoegeOrd") %>

<%
sub OptionSelect(ThisOption, SelectedOption) %>
<option<% if ThisOption = SelectedOption then %> selected<% end if %>><% =ThisOption %></option>
<%
end sub %>

<form action="sqldemo.asp" method="post">
<select name="Emne">
<%
call OptionSelect("Alle emner", Emne)
call OptionSelect("Photoshop", Emne)
call OptionSelect("3D studio MAX", Emne)
call OptionSelect("LightWave", Emne)
call OptionSelect("Flash", Emne)
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>

<%

' Start på SQL strengen.

SQL = "SELECT * FROM Grupper "

SoegeordParts = split(Soegeord, " ")

' Udregn WHERE delen.

if Emne <> "Alle emner" then
  SQL2 = "Emne='" & Emne & "'"
else
  SQL2 = ""
end if

SQL3 = ""
FirstPart = true
for each Part in SoegeordParts
  if FirstPart then
    SQL3 = SQL3 & "Tekst LIKE '%" & Part & "%'"
    FirstPart = false
  else
    SQL3 = SQL3 & " OR Tekst LIKE '%" & Part & "%'"
  end if
next

if SQL3 <> "" then
  SQL3 = "(" & SQL3 & ")"
end if

' Læg WHERE delen til SQL strengen

if SQL2<>"" or SQL3<>"" then
  SQL = SQL & " WHERE "
  if SQL2<>"" and SQL3<>"" then
    SQL = SQL & SQL2 & " AND " & SQL3
  else
    SQL = SQL & SQL2 & SQL3  ' Hurtig genvej: En af dem er tomme.
  end if
end if

SQL = SQL & " ORDER BY Id DESC"  ' Gør SQL strengen færdig.

set rs = Cn.Execute(SQL)

if rs.EOF then
  Response.Write "<font face=""Arial"" size=""2"">Databasen er tom.</font>"
else
  do until rs.EOF
    strEmne = rs("Emne")
    strNavn = rs("Navn")
    Response.Write "<a href='test.asp?gruppeid=" & rs("Id") & "'>" & strNavn & "</a>&nbsp;&nbsp;&nbsp;"& strEmne &"<br>"
    rs.MoveNext
  loop
  Response.Write "</table><br>"
end if
Cn.Close
set Cn = nothing
</body>
</html>
Avatar billede nielle Nybegynder
05. juli 2003 - 19:02 #57
Som du kan se så bliver det noget mere komplekst med det der ekstra søgefelt. ;^)
Avatar billede aero Nybegynder
05. juli 2003 - 19:06 #58
NIELLE

takker men som du kan se kan jeg ikke vælge i KAT'en !!

http://www.javacoder.dk:56400/ASP_3.0/vælgemne/default2.asp
Avatar billede eagleeye Praktikant
05. juli 2003 - 19:06 #59
Nogen gange skal man læse hvad der forgår i spørgsmålet ;)


Så den skal enten søge på Nyheds Type eller Dato ?
Ikke nogen mulighed for at kompinere de to?
Avatar billede nielle Nybegynder
05. juli 2003 - 19:10 #60
aero -> Det ovenstående script er jo "default2.asp" mens dine kat-links er til "test.asp". Hvis den giver en "Siden blev ikke fundet" fundet fejl, så må der jo være fejl der. Det kan jeg vel ikke rigtigt gøre for?!
Avatar billede aero Nybegynder
05. juli 2003 - 19:12 #61
Altså i JUMPMENUEN skal man kunne vælge flg emner

Site News
ADMIN News
2 mdr gammelt
1 mdr gammelt
14 dage
7 dage
Dagens Nyheder

SITE/ADMIN News skal den finde i tabelfeltet "Kat" hvis der ikke vælges SITE/ADMIN News så er det feltet "Dato" den skal kigge i da det er 2 - 1 mdr 14 - 7 dage gammelt eller Dagens Nyheder altså DAGEN IDAG og det er jo noget den kan finde ud af gennem Dato feltet !!!

Der ud over skal der være den søge funktion som du lavede som søger i feltet TEKST !!!!

og SITE PADDING skal kunne virke og vise side 1 af 1 hvis der er under 5 recorder indenfor det valgte og den skal kunne vise at der findes x antal recorder inden for det vælgte !!!

JUMPMENUEN og SØGE FELTET skal være på linje og lige bag teksten:

side X af X  der er X antal recorder

http://www.javacoder.dk:56400/ASP_3.0/nyhedscript/news.asp
Avatar billede aero Nybegynder
05. juli 2003 - 19:13 #62
NIELLE

Nej jeg mener at man ikke kan vælge i JUMPMENUEN prøv at vælg Photoshop !!!

den viser stadigvæk alle recorder !!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:14 #63
aero -> Og så er din default2.asp iøvrigt en gammel version og ikke min nyeste (19:00:42)
Avatar billede nielle Nybegynder
05. juli 2003 - 19:15 #64
Jeg ser altså *kun* Photoshop-links med din default2.asp:

opoiio  Photoshop
hjhfdsjhf  Photoshop
Spil  Photoshop
Avatar billede aero Nybegynder
05. juli 2003 - 19:19 #65
jeg har opdateret !??
Avatar billede nielle Nybegynder
05. juli 2003 - 19:24 #66
Prøv lige at skrive SQL sætningen ud som en del af siden. Jeg får "Databasen er tom" 1. gang jeg er inde på siden.

Men ellers ser det ud til at fungere som det skal. Altså herfra.
Avatar billede nielle Nybegynder
05. juli 2003 - 19:26 #67
Rettelse:

' Udregn WHERE delen.

if Emne <> "Alle emner" and Emne <> "" then  ' <--- Ret til denne version
  SQL2 = "Emne='" & Emne & "'"
else
  SQL2 = ""
end if
Avatar billede aero Nybegynder
05. juli 2003 - 19:32 #68
NIELLER

prøv at vælg et emne !!!  prøv at søg efter Bil !!!

Emne ved din virker ikke når jeg kigger på den og der findes 1 med Bil som navn !!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:36 #69
Hvis jeg søger på "Alle emner" og "Bil" så får jeg:

Bil  3D Studio MAX

Det samme får jeg hvis jeg søger på "3D Studio MAX" og "Bil".

Søger jeg derimod på nogen anden kategori kombineret med "Bil" så får jeg:

"Databasen er tom."

- er det ikke sådan det skal være?
Avatar billede aero Nybegynder
05. juli 2003 - 19:40 #70
okay du har ret men man kan ikke vælge emner !!!
Avatar billede aero Nybegynder
05. juli 2003 - 19:41 #71
EAGLEEYE

jeg opretter lige et spm når du har noget !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:42 #72
Hvad mener du med "man kan ikke vælge emner"?
Avatar billede aero Nybegynder
05. juli 2003 - 19:45 #73
Vi er enige om at den viser alle recorder i db når man kommer ind på siden !!!

Men hvis jeg nu KUN vil se dem der er med Photoshop så klikker jeg i jumpmenuen på Photoshop og der sker INTET !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:48 #74
Så gentager jeg; Jeg får følgende tre hits:

opoiio  Photoshop
hjhfdsjhf  Photoshop
Spil  Photoshop
Avatar billede aero Nybegynder
05. juli 2003 - 19:53 #75
ja det gør jeg jo også nu men viste IKKE jeg skulle klikke søg for at det virker jeg regnede bare med at jeg kunne klikke på det emne jeg skulle bruge !!

Men ok ;) TAK

Venter lige med at accepter EAGLEEYE og NIELLE til jeg lige at set 2. halvdel af spm som EAGLEEYE er igang med !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 19:58 #76
Det skyldes at vi har fjernet onChange (som jo allige vel ikke virkede sammen med det første element i listen. Hvis du gerne vil have den igen så er det:

<form action="sqldemo.asp" id="FormA" method="post">
<select name="Emne" onChange="FormA.submit">
<%
call OptionSelect("Alle emner", Emne)
call OptionSelect("Photoshop", Emne)
call OptionSelect("3D studio MAX", Emne)
call OptionSelect("LightWave", Emne)
call OptionSelect("Flash", Emne)
%>
</select>
<input type="text" name="SoegeOrd" value="<% =SoegeOrd %>">
<input type="submit" value="Søg!">
</form>
Avatar billede nielle Nybegynder
05. juli 2003 - 20:00 #77
Troede i øvrigt at du ville oprette et andet spørgsmål til den nye ting eagleeye var igang med?
Avatar billede aero Nybegynder
05. juli 2003 - 20:03 #78
Ville jeg også men vil lige vente til han har noget !!!  men kan da også oprette et nu !! altså han ved jeg ikke snyder nogle og han er CO-admin så han kan jo overfører P på andre måder tror jeg !!!
Avatar billede nielle Nybegynder
05. juli 2003 - 20:15 #79
Tja nu er jeg jo ikke co-admin selv, men er systemet ikke sådan at man lukker et spørgsmål når man har fået svar på det?
Avatar billede eagleeye Praktikant
05. juli 2003 - 20:19 #80
Ja normalt lukker man og opretter et nyt spørgsmål, og jeg giver dig ikke koden i dette spørgsmål afligevel ;)
Avatar billede aero Nybegynder
05. juli 2003 - 20:21 #81
Nå okay beklager så vil jeg da lige lukke så dette er færdigt !!!

EAGLEEYE
Hvis jeg opretter et SPM vil du så give mig code eller !??
Avatar billede eagleeye Praktikant
05. juli 2003 - 20:27 #82
Jeps ;)
Avatar billede aero Nybegynder
05. juli 2003 - 20:28 #83
Nå okay TAK :D

Jeg opretter lige et spm med en REF hertil og kalder spm "2 ril 1 script"
Avatar billede nielle Nybegynder
05. juli 2003 - 20:44 #84
Takker for points - og det kan da også godt være at jeg vil give en hånd med på det andet spørgsmål. Hvis altså eagleeye ikke når at blive færdigt med det inden (jeg har alligevel ikke tid i dag) ;^)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:00 Film Server Af dcedata1977 i Andet software
I dag 12:56 Mistænkelige mails! Af ErikHg i E-mail
I går 14:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
I går 13:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
White papers
Flere white papers »