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


Vad är det jag inte ser? [Löst]

Postades av 2002-11-18 14:13:10 - andreas adler, i forum asp - allmänt, Tråden har 15 Kommentarer och lästs av 578 personer

<code>
If RS("id")=BildId Then
strBildId = " checked"
Else
StrBildId = ""
End If
</code>

I det här fallet är bildID 31 men den vill inte skriva ut även fast RS("id") också är 31. Det märkliga är att om jag byter ut strBildId mot siffrorna 31 så fattar den och sriver ut "Checked".

Vad är det jag missar?



/Andreas


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 14:27:31 - Anna-Karin Söderberg


Vad är RS("ID") i databasen är det tal eller text?
Du kan prova med att göra om det till tal med cInt(RS("ID")) annars.

/Anna-Karin


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:09:02 - andreas adler

Funkade inte det heller. Men det jag inte förstår är att den fattar om jag skiver 31 men inte när jag skriver strBildId. Har skrvit ut strBild så jag vet att det är 31 i den.


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:13:10 - Patrik Andersson

det verkar som om du flummar runt lite med dina variabelnnamn
strBild, strBildID, bildID....

Kolla så att de stämmer


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:26:35 - andreas adler

Skrev fel bara...står strBildId överallt i koden =)


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:31:04 - Andreas Hillqvist

Du får tänka efter. Det du gör ärr att du tömmer din variabewl efter första kontrollen. Försök istället med:
<code>
If RS("id")=strBildId Then
Response.Write " checked"
End If
</code>


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:49:05 - andreas adler

Ingen skillnad tyvärr. Fattar inte vad som är fel.


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-18 15:52:06 - Andreas Hillqvist

Skicka med mer av din kod. Du kanske fokuserar på fel stycke.


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 10:10:13 - andreas adler

OK...här kommer lite till:

<code>
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")

objRS.Open "SELECT * FROM gfx ORDER BY filename DESC",_
strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText




If objRS.EOF Then
Response.Write "<br><b>Ingen bilder i databasen. </b><br><br>"


Else

Response.Write "<br><b>Bilder i databasen:</b><br>Klicka på bilden för verklig storlek<br><br><br>"


While Not objRS.EOF

If objRS("Id")=BildId Then
strBildId = " checked"
End If


</code>

Jag har provat att skriva ut värdet i strBildId och det funkar. Den är inte tom mao.

Hoppas det bringar ljus i mörkret =)


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 10:13:22 - Andreas Hillqvist

Var får du BildId ifrån? Vad är koden som skrivs ut i loopen? Som det är nu kommer den ju bara att skriva ut "checked" någonstans.


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 10:20:50 - andreas adler

<code>
strBildId = Request.Form("gfxId")
</code>

Sen kommer

<code>
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")

objRS.Open "SELECT * FROM gfx ORDER BY filename DESC",_
strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText




If objRS.EOF Then
Response.Write "<br><b>Ingen bilder i databasen. </b><br><br>"


Else

Response.Write "<br><b>Bilder i databasen:</b><br>Klicka på bilden för verklig storlek<br><br><br>"


While Not objRS.EOF

If objRS("Id")=BildId Then
strBildId = " checked"
End If
</code>

Och sen skrivs den ut:

<code>
Response.Write "<td width=120 align=left><font face=verdana size=1><b> Välj denna bild<input type=radio value='"&objRS("id")&"' name='gfxId'" & strBildId & "></td>"
</code>


Det märkliga i hela historien är att när jag skriver ut strBildId så är värdet 31. Byter jag ut strBildId mot just 31 i "If objRS("Id")=BildId Then" så fungerar det klockrent.


/andreas


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 10:29:21 - Peter Jonsson

Du måste casta om bildId till en int.

if objRS("id")=cint(bildID) then

osv.

Det borde funka!


Ett annat sätt:
strBildId = Request.Form("gfxId") - 0

Då behöver du inte ändra if-satsen.

//Sune


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 10:30:04 - Andreas Hillqvist

Testa med:
<code>
strBildId = CLng(Request.Form("gfxId"))


Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")

objRS.Open "SELECT * FROM gfx ORDER BY filename DESC",_
strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

If objRS.EOF Then
Response.Write "<br>Ingen bilder i databasen. <br><br>"
Else
Response.Write "<br>Bilder i databasen:<br>Klicka på bilden för verklig storlek<br><br><br>"

Do Until objRS.EOF
If objRS("Id") = strBildId Then
Response.Write "<td width=120 align=left><font face=verdana size=1> Välj denna bild<input type=radio value='" & objRS("id") & "' name='gfxId' checked></td>"
objRS.MoveNext
Exit Do
Else
Response.Write "<td width=120 align=left><font face=verdana size=1> Välj denna bild<input type=radio value='" & objRS("id") & "' name='gfxId'></td>"
End If
objRS.MoveNext
Loop

Do Until objRS.EOF
Response.Write "<td width=120 align=left><font face=verdana size=1> Välj denna bild<input type=radio value='" & objRS("id") & "' name='gfxId'></td>"
objRS.MoveNext
Loop
End If
</code>


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 11:14:13 - andreas adler

sataaan! Funkar inte heller. Inget av dem. Måste vara "If objRS("id")=strBildId Then" som är knasig. Men varför varför varför fungerar det när jag skriver dit samma värde som strBildId har? Jag går och lägger mig!


(Är väldigt tacksam för er hjälp, är inte arg på er =))


Kommer ni på något annat får ni JÄTTE gärna posta det.



/Andreas


Svara

Sv: Vad är det jag inte ser?

Postades av 2002-11-19 11:21:27 - andreas adler

Nämen jösses!!! Körde en liten blandning av era 2 förslag och då funkade det. LYCKA!

Tack för all hjälp!



/Andreas


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 920
27 965
271 780
9 298
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