Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Sökning

Postades av 2002-06-13 13:29:44 - Jimmy Nilsson, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 364 personer

<code>

Vad gör jag för fel, ska göra en sökning med hjälp av en kombibox i antingen artikelkod eller beskrivning kolumnen men även om jag markerar beskrivning i kombiboxen på sidan före så söker den på artikelkod.
<%
Dim artsok, sokord, SQL, RS, RS2

artsok = Request.Form("artsok")
sokord = Request.Form("sokord")

If Request.Form("artsok") = Artikelnummer Then


SQL = "SELECT * FROM ""ARTIKELREGISTER"" WHERE ""DE_CHSHuvudprislista"" ='Y' AND ""DE_CHSArtikelkod"" LIKE '" & sokord & "%'"
Set RS = Conn.Execute(SQL)
Response.Write SQL


' Kollar om sökningen finns i databasen annars skriver den ut Response.Write
If RS.EOF Then

Response.Write "<center><div>Sökningen på <b>" & sokord & "</b> gav inga träffar.</center>"
Else
%>
<table border="0" width="700">
<%
Do Until RS.EOF

Response.Write "<tr><td bgcolor=#66CCFF><div>Artikelnummer</td><td bgcolor=#66CCFF><div>Beskrivning</td><td bgcolor=#66CCFF><div>Listpris SEK/st</td><td bgcolor=#66CCFF><div>Rabatt %</td><td bgcolor=#66CCFF><div>Netto SEK/st</td><td bgcolor=#66CCFF><div>Lev tid</td>"
Response.Write "<tr><td><div>" & RS("DE_CHSArtikelkod") & "</td><td><div>" & RS("DE_Beskrivning") & "</td><td><div>" & RS("DE_CHSListpris") & "</td><td><div>-</td><td><div>-</td><td><div>-</td>"


RS.MoveNext
Loop

End If

%>
</table>
<table border=0 width="700">
<%
Else

SQL = "SELECT * FROM ""ARTIKELREGISTER"" WHERE ""DE_CHSHuvudprislista"" ='Y' AND ""DE_Beskrivning"" LIKE '" & sokord & "%'"
Set RS2 = Conn.Execute(SQL)


' Kollar om sökningen finns i databasen annars skriver den ut Response.Write
If RS2.EOF Then

Response.Write "<center><div>Sökningen på <b>" & sokord & "</b> gav inga träffar.</center>"
Else

Do Until RS2.EOF

Response.Write "<tr><td bgcolor=#66CCFF><div>Artikelnummer</td><td bgcolor=#66CCFF><div>Beskrivning</td><td bgcolor=#66CCFF><div>Listpris SEK/st</td><td bgcolor=#66CCFF><div>Rabatt %</td><td bgcolor=#66CCFF><div>Netto SEK/st</td><td bgcolor=#66CCFF><div>Lev tid</td>"
Response.Write "<tr><td><div>" & RS2("DE_CHSArtikelkod") & "</td><td><div>" & RS2("DE_Beskrivning") & "</td><td><div>" & RS2("DE_CHSListpris") & "</td><td><div>-</td><td><div>-</td><td><div>-</td>"

RS2.MoveNext
Loop
End If
End If
%>
</code>

Tackar hjärtligast för all hjälp!


Svara

Sv: Sökning

Postades av 2002-06-13 13:36:31 - Sara Winter

Har du testat att istället för att bara skriva 'Else' lägga till villkoret, 'else if ...'?

En till sak, är Artikelnummer en variabel? Borde du kanske inte sätta fnuttar omkring den om den inte är det (jag är inte säker på att det behövs)?

If Request.Form("artsok") = "Artikelnummer" Then


Svara

Sv: Sökning

Postades av 2002-06-13 13:49:09 - Jimmy Nilsson

Det funkade med ElseIf Request.Form = "beskrivning"

Lade till "" också men det är ingen variabel med det verkar fungera, ElseIf har jag testat innan men inte med""

tackar för hjälpen


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 902
27 965
271 779
2 252
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies