Søg
Avatar billede kepsus Praktikant
12. februar 2003 - 10:21 Der er 17 kommentarer og
1 løsning

skjul informationer

det her er en forsæt. af http://www.eksperten.dk/spm/315844
og alt virker fint (tak rune), men strks som det virker kommer man i tanke om en ting jeg godt kunne tænke mig.

Som man kan læse på spm 315844, så kommer den med en list vor der er felt1, 2, osv, er det mugligt at kunne "skjule"
foreks. felt3, så man skal tryk på musen før det folder sig ud. det jeg skal bruge det til er at det skal skjule indkøbsprisen (her felt 3) hvis kunden står lige bag en.
Avatar billede medions Nybegynder
12. februar 2003 - 10:26 #1
Prøv at giv mig den kode du har nu...

//>Rune
Avatar billede kepsus Praktikant
12. februar 2003 - 10:29 #2
hehe det er næsten din :-) bare asp koden ?
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
strKeyWord = Replace(Request.Form("Keyword"), "'", "''")
strKeyWord1 = Replace(Request.Form("Keyword1"), "'", "''")
strSQL = "SELECT TOP 50 * FROM kverneland WHERE"
If strKeyWord <> "" Then
strSQL = strSQL & " (felt1 LIKE '" & Request.Form("KeyWord") & "%')"
End If
If strKeyWord <> "" And strKeyWord1 <> "" Then
  strSQL = strSQL & " OR"

End If

If strKeyWord1 <> "" Then
strSQL = strSQL & " (felt2 LIKE '" & Request.Form("KeyWord1") & "%')"

End If



' Opbygger en dynamisk SQL streng
' strSQL = "SELECT ID, felt1, felt2, felt3, felt4, felt5, felt6, felt7 FROM kkk1 WHERE"
' teststrSQL = strSQL & " (felt1 LIKE '" & strKeyword & "%')"


' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kverneland2003.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p>Søgeresultat</p>"
    Response.Write "<table border=1>"
    Response.Write "<tr><th>felt1</th><th>felt2</th><th>felt3</th>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("felt1") & "</td>"
        Response.Write "<td>" & rs("felt2") & "</td>"
        Response.Write "<td>" & rs("felt3") & "</td>"
       
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body></html>
Avatar billede medions Nybegynder
12. februar 2003 - 10:35 #3
Sådan?

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<script language="JavaScript">
    function ShowLayer(id) {
        var styleCheck = document.getElementById("Layer" + id).style.display;
        //alert(styleCheck);
       
        if (styleCheck == "inline") {
            document.getElementById("Layer" + id).style.display = "none";
        }
        if (styleCheck == "none") {
            document.getElementById("Layer" + id).style.display = "inline";
        }
    }
</script>
</head><body>

<%
strKeyWord = Replace(Request.Form("Keyword"), "'", "''")
strKeyWord1 = Replace(Request.Form("Keyword1"), "'", "''")
strSQL = "SELECT TOP 50 * FROM kverneland WHERE"
If strKeyWord <> "" Then
strSQL = strSQL & " (felt1 LIKE '" & Request.Form("KeyWord") & "%')"
End If
If strKeyWord <> "" And strKeyWord1 <> "" Then
  strSQL = strSQL & " OR"

End If

If strKeyWord1 <> "" Then
strSQL = strSQL & " (felt2 LIKE '" & Request.Form("KeyWord1") & "%')"

End If



' Opbygger en dynamisk SQL streng
' strSQL = "SELECT ID, felt1, felt2, felt3, felt4, felt5, felt6, felt7 FROM kkk1 WHERE"
' teststrSQL = strSQL & " (felt1 LIKE '" & strKeyword & "%')"


' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kverneland2003.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p>Søgeresultat</p>"
    Response.Write "<table border=1>"
    Response.Write "<tr><th>felt1</th><th>felt2</th><th>felt3</th>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("felt1") & "</td>"
        Response.Write "<td>" & rs("felt2") & "</td>"
%>

  <td><span onclick="ShowLayer(1);">Klik her</span><div style="display:none;" id="layer1"> <%= rs("felt3") %></div></td>
<%
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body></html>

//>Rune
Avatar billede kepsus Praktikant
12. februar 2003 - 10:46 #4
ikke helt prøv at se
felt1 felt2 felt3
KK010011 SPACING TUBE 46 Klik her
46
KK010031 SPACING TUBE 0 Klik her
0
KK010036 TUBE 50 Klik her

feltet 3 kommer med og der sker ikke noget ved at trykke ?
Avatar billede kepsus Praktikant
12. februar 2003 - 10:50 #5
min fejl beklager
Avatar billede kepsus Praktikant
12. februar 2003 - 10:51 #6
er det svært at lave sådant et + de kan trykke på så det folder si ud
Avatar billede kepsus Praktikant
12. februar 2003 - 10:52 #7
og hvis der er flere poster så kan de kun se prisen på den første
Avatar billede kepsus Praktikant
12. februar 2003 - 15:36 #8
er det ok, at jeg lige venter en dag eller to med at give point, hvis der nu er andre, der har ider
Avatar billede medions Nybegynder
12. februar 2003 - 17:13 #9
ALtså sådan her?

http://www.medions.dk/bransholm/

//>Rune
Avatar billede kepsus Praktikant
13. februar 2003 - 07:49 #10
prøver lige kl 11.30
Avatar billede kepsus Praktikant
17. februar 2003 - 15:14 #11
hejsa har desvære ikke haft tid yil ay kigge beklager (når det føst midt på ugen), men det ligner det jeg vil ha,  jeg et tillægs spørgsmål :-)
jeg vil gerne havde at brugeren skal kunne lavet et såkaldt joker tegn eks. *
og så vil den se sådan ud
strSQL = strSQL & " (felt1 LIKE '%" & Request.Form("KeyWord") & "%')"
og ellers skal den se sådan ud
strSQL = strSQL & " (felt1 LIKE '" & Request.Form("KeyWord") & "%')"

er det nemt ????,

lægger lige 50 point til, okay !
Avatar billede medions Nybegynder
17. februar 2003 - 15:17 #12
Forstår ik' rigtig hvad du vil!

//>Rune
Avatar billede kepsus Praktikant
17. februar 2003 - 15:35 #13
hvis de nu ikke kan hele vare nr eller kun noget af det.
hvis et varenr hedder 17206205100 og han taster *6205, så kommer alt det frem der indeholder 6205, men det skal helst kun været når han taster *, for det tager selvf, lidt længere tid, at søge sådan
Avatar billede kepsus Praktikant
18. februar 2003 - 14:25 #14
ved du, hvad jeg mener nu rune ??
Avatar billede medions Nybegynder
18. februar 2003 - 21:32 #15
Ja, det tror jeg da...

If Left(Request.Form("KeyWord"),1) = "*" Then
  strSQL = strSQL & " (felt1 LIKE '%" & Request.Form("KeyWord") & "')"
ElseIf Right(Request.Form("KeyWord"),1) = "*" Then
  strSQL = strSQL & " (felt1 LIKE '%" & Request.Form("KeyWord") & "')"
Else
  strSQL = strSQL & " (felt1 LIKE '%" & Request.Form("KeyWord") & "*')"
End If

//>Rune
Avatar billede kepsus Praktikant
18. marts 2003 - 13:12 #16
undskyld, den lange ventetid, men firmaet jeg arbejder for er flytte, og det har taget det meste af min, beklager, men kigger på det nu
Avatar billede kepsus Praktikant
17. maj 2003 - 08:14 #17
det virkede
Avatar billede medions Nybegynder
18. maj 2003 - 16:55 #18
Fair nok...
Thx 4 Poinz

//>Rune
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
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
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
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 går 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »