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


Visa bild med checkbox...

Postades av 2002-09-30 09:49:53 - Christofer Wallér, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 365 personer

Jag har gjort en sida där man kan lägga in text, sen kan man klicka i ett antal checkboxes för att visa små ikoner på sidan, tex "billig", "dyr", "Snabb"

Jag kan lägga in detta i databasen (det blir checkboxes med bockar) men hur hämtar jag informationen till hemsidan?

<code>

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/min_demo/admin/databas/wizard.mdb")
SQL = "SELECT * FROM meat ORDER BY ID DESC"
rs.Open SQL, Connect, 1, 2

If rs("billig") = "on" Then
billigbild = "<img src=tid.gif>"
End If

iBgColor = 1
Do While Not rs.EOF
if sBgColor = "#FFFFFF" then
sBgColor = "#E7BAD7"
else
sBgColor = "#FFFFFF"
end if
%>

<table width="100%" border="0" cellpadding="1">
<tr bgcolor="<%=sBgColor%>">
<td class="brod" width="45%"><%=rs("namn")%>
<td class="brod" width="45%"><%=billigbild%>
<td class="brod" align="right" width="10%"> " target="_blank" class="brod">visa      
</td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

</code>

TacK på förhand

/Christofer


Svara

Sv: Visa bild med checkbox...

Postades av 2002-09-30 13:19:24 - Andreas Hillqvist

* Lägg koden i Loopen. <br>
* Värdet för ett boolean fältet är True(-1), False(0) Eller Null.<br>
<code>

<%
Dim Connect
Dim rs
Dim iBgColor
Dim sBgColor
Dim Colors
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/min_demo/admin/databas/wizard.mdb")

SQL = "SELECT * FROM meat ORDER BY ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Connect

Colors = Array("#FFFFFF", "#E7BAD7")
Do While Not rs.EOF
sBgColor = Colors(iBgColor)
iBgColor = (iBgColor + 1) Mod 2
%>
<table width="100%" border="0" cellpadding="1">
<tr bgcolor="<%=sBgColor%>">
<td class="brod" width="45%"><%=rs("namn")%>
<td class="brod" width="45%"><% If rs("billig") Then Respons.Write "<img src=tid.gif>" %>
<td class="brod" align="right" width="10%"> " target="_blank" class="brod">visa
</td>
</tr>
</table>
<%
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Connect.Close
Set Connect = Nothing
%>
</code>


Svara

Sv: Visa bild med checkbox...

Postades av 2002-09-30 13:52:48 - Christofer Wallér

Tack det fixade sig

Mvh Christofer


Svara

Nyligen

  • 21:28 Chicken Road Casino Game
  • 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

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 931
27 965
271 780
1 119
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