klickbar länk och ej klickbar länk

8 svar · 601 visningar · startad av snowcat 26 jan. 2008

snowcatMedlem sedan feb. 2007220 inlägg

Frågan26 jan. 2008 09:02#1

hej
jag har fått ett problem som jag suttit med en längre tid nu, hoppas någon kan hjälpa mig.
Från en databas plockar jag upp små bilder som man kan klicka på för att läsa om resp. slott. Nu skulle jag vilja ha att han plockar upp bilderna som vanlig, men även tog med de som jag inte har skrivit något om - ännu - och då skall den bilden inte vara klickbar, den skall dock visas...

Koden för att plocka upp bilderna som jag har idag och visa dem snyggt 3 i bredd ser ut så här:

<%
With Response
    .Write "<table width=""500px;""class=""vtext"">" & vbCrLf
    lngX = 0
    Do While Not RecSet.EOF
        If lngX Mod 3=0 Then .Write "<tr>" & vbCrLf
        .Write "<td style=""text-align:center;"">"
        .Write "<a href=""slottdetaljnorge.asp?id=" & RecSet("id") & """ class=""vtext""><img oncontextmenu=""return false"" style=""width:140px;height:100px;border:1;"" class=""galleri"" src=""./slott/" & RecSet("foto") & ".jpg"" alt=""" & RecSet("alttext") & """/><br/>" & RecSet("slottsnamn") & "</a><br/><br/>"
        .Write "</td>" & vbCrLf
        If lngX Mod 3=3 Then .Write "</tr>" & vbCrLf
        lngX = lngX + 1
    RecSet.MoveNext
    Loop
    .Write "</table>" & vbCrLf
End With
%>

det måste väl bli någon typ av If ... then ... else .... kan jag tro, men jag har försökt med så många olika varianter nu att jag ger upp :(
Kan någon hjälpa mig skulle jag vara evigt tacksam!

voigtann1Medlem sedan juni 20019 519 inlägg

26 jan. 2008 09:54#2

If RecSet("FÄLTNAMN_MED_TEXT") <> "" Then
	.Write "<a href=""slottdetaljnorge.asp?id=" & RecSet("id") & """ class=""vtext""><img oncontextmenu=""return false"" style=""width:140px;height:100px;border:1;"" class=""galleri"" src=""./slott/" & RecSet("foto") & ".jpg"" alt=""" & RecSet("alttext") & """/><br/>" & RecSet("slottsnamn") & "</a><br/><br/>"
Else
	.Write "<img oncontextmenu=""return false"" style=""width:140px;height:100px;border:1;"" class=""galleri"" src=""./slott/" & RecSet("foto") & ".jpg"" alt=""" & RecSet("alttext") & """/><br/>" & RecSet("slottsnamn") & "<br/><br/>"
End If

Istället för 3e .Write i din DoWhile Not RecSet.EOF

Peter SMedlem sedan dec. 20025 483 inlägg

26 jan. 2008 09:54#3

Hur ser SQL-frågan ut?
Vad i den information som hämtas avgör om något skrivits om slottet ännu?

snowcatMedlem sedan feb. 2007220 inlägg

26 jan. 2008 10:23#4

Jättetack voigtann1 - hur kan det vara att allt ser så enkelt ut när någon annan skriver det? :)
det funkade klockrent direkt!!

en en gång jättetack!

KristerMedlem sedan okt. 200418 inlägg

31 jan. 2008 16:10#5

Öppna sida i separat fönster i spec storlek

Jag har ett galleri med småbilder och när jag klickar på dem så vill jag att de öppnar sig i ett separat fönster i spec storlek om möjligt.
Så här ser strängen jag skickar iväg ut
response.write " <a class=""ImgLayer"" href=""" & URL & "?ID=" & RS("ID") & """><img src=""" & RS("bild") & """ width=""" & Width & """ border=""1""height=""" & Height & """ >" & vbcrlf

Peter SMedlem sedan dec. 20025 483 inlägg

31 jan. 2008 16:27#6

Så href-attributet vill du alltså skrota? Då

function openImg(url, height, width)
{
 window.open(url, "thumb", "height=" + height + ",width=" + width);
}

response.write " <a class=""ImgLayer"" href=""" & URL & "?ID=" & RS("ID") & """ onclick=""openImg('" & RS("bild") & "', 150, 250); return false""><img src=""" & RS("bild") & """ width=""" & Width & """ border=""1""height=""" & Height & """ >" & vbcrlf

KristerMedlem sedan okt. 200418 inlägg

31 jan. 2008 17:00#7

slopa href?

Måste man slopa href. Nu fick jag till det att det öppnas i ett sep fönster (det fick jag innan jag läste ditt inlägg) och nu ser min kod ut så hr. Hur fixar man stoleken på den öppnade sidan nu då?
response.write " <a class=""ImgLayer"" href=""" & URL2 & "?ID=" & RS("ID") & """target=""_blank""> & <img src=""" & RS("bild") & """ width=""" & Width & """ border=""1""height=""" & Height & """ >" & vbcrlf

Peter SMedlem sedan dec. 20025 483 inlägg

31 jan. 2008 17:04#8

Testa min redigerade kod ovan.

KristerMedlem sedan okt. 200418 inlägg

31 jan. 2008 17:50#9

Tack för hjälpen