Frågan 15 sep. 2007 20:03 #1 småbilder ska ligga jämte varandra, när man klickar på dem så ska en större bild öppnas nedanför, får inte denna kod att funka...med denna kod jag har nu visas en liten bild och en stor under och så bara repeteras det så
<script language="JavaScript">
<!--
function changeImage(field, switchto, w, h)
{
document.bigpic.src = switchto;
document.bigpic.width = w;
document.bigpic.height = h;
}
-->
</script>
<%
Set viewRS=objConn.Execute("SELECT * FROM tblUsers t INNER JOIN tblUsers_Galleri g ON t.userID = g.agare WHERE agare ="& varUID &" and kategori='"& request.form("galleriKategori") &"' ORDER BY g.bildID DESC")
with response
If not viewRS.EOF Then
.Write "<table width=""800"" border=""0"">" & vbCrLf
.Write "<tr>" & vbCrLf
Do until viewRS.eof
'If x mod 3=0 and x>1 Then .Write "</tr><tr>" & vbCrLf
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" onclick=""changeImage(this.name,'/images/gallery/"& viewRS("bild") &"', 500, 375)"" name=""mini0"" style=""cursor:pointer"" border=""1"" width=""96"" height=""72"">"
.Write "<p><hr>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" name=""bigpic"" border=""1"" width=""500"" height=""375""><br><br><br> "
viewRS.MoveNext: Loop
hur ska jag skriva det på bästa sätt, har testat olika sätt utan resultat
P Peter S Medlem sedan dec. 2002 5 483 inlägg x = 0
Do until viewRS.eof
If x mod 3=0 and x <> 0 Then .Write "</tr><tr>" & vbCrLf
.Write "<td>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" onclick=""changeImage(this.name,'/images/gallery/"& viewRS("bild") &"', 500, 375)"" name=""mini0"" style=""cursor:pointer"" border=""1"" width=""96"" height=""72"">"
.Write "<br>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" name=""bigpic"" border=""1"" width=""500"" height=""375"">"
.Write "</td>"
x = x + 1
viewRS.MoveNext: Loop
det blev inte så bra
<%
Set viewRS=objConn.Execute("SELECT * FROM tblUsers t INNER JOIN tblUsers_Galleri g ON t.userID = g.agare WHERE agare ="& varUID &" and kategori='"& request.form("galleriKategori") &"' ORDER BY g.bildID DESC")
with response
If not viewRS.EOF Then
.Write "<table width=""800"" border=""0"">" & vbCrLf
.Write "<tr>" & vbCrLf
'Do
'If x mod 3=0 and x>1 Then .Write "</tr><tr>" & vbCrLf
'.Write "<td align=""left"" valign=""middle"" width=""60"">" & vbCrLf
'.Write "<a href=""JavaScript: Pic("& viewRS("bildID") &","& varUID &");"">" & vbCrLf
'.Write "<img border=""0"" width=""60"" height=""60"" src=""/images/gallery/"& viewRS("bild") &" ""></a>" & vbCrLf
'.Write "</td>" & vbCrLf
'.Write "<td align=""left"" valign=""top"" width=""350"">" & vbCrLf
'.Write "<strong class=""maroon""><b> "& viewRS("rubrik") &" </b> "& left(replace(replace(viewRS("inlagd"),"-",""),":",":"),14) &"</strong>"
'.Write "<br />" & vbCrLf
Do until viewRS.eof
If x mod 3=0 and x>1 Then .Write "</tr><tr>" & vbCrLf
.Write "<td>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" onclick=""changeImage(this.name,'/images/gallery/"& viewRS("bild") &"', 500, 375)"" name=""mini0"" style=""cursor:pointer"" border=""1"" width=""96"" height=""72"">"
.Write "<br>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" name=""bigpic"" border=""1"" width=""500"" height=""375"">"
.Write "</td>"
x = x + 1
.write "<strong class=""maroon"">"& replace(viewRS("kommentar"),vbCrLf,"<br>") &" </strong>"
%>
<hr />
<%if clng(request("userID")) = clng(session("userID")) then%>
<b><a href="/krypin/change/gallery/delPic.asp?pID=<%=viewRS("bildID")%>""><strong class="maroon">¤ Radera ¤</strong></a></b><br>
<%end if%>
<%if clng(request("userID")) = clng(session("userID")) then%>
<%set rs=objConn.Execute("SELECT tblUsers_Galleri_kommentar.bildID, tblUsers_Galleri_kommentar.agare, -Sum(tblUsers_Galleri_kommentar.nytt) AS SumNytt FROM tblUsers_Galleri_kommentar WHERE agare=1 and nytt=1 GROUP BY bildID,agare")%>
<a href="JavaScript:viewComment(<%=viewRS("bildID")%>);">
<br>
<strong class="maroon">¤ Visa kommentarer</a></strong>
<br>
<strong class="maroon">Visad <%=viewRS("clicks")%> gånger</strong>
<br>
<a href="changekat.asp?bildID=<%=viewRS("bildID")%>&catID=<%=viewRS("kategori")%>">Ändra kategori</a>
<%Else%>
<%'If UserID = 1 then%>
<!--<br>
<a href="setPrivate.asp?bildID=<%=viewRS("bildID")%>&usr=<%=request.querystring("usr")%>&usrID=<%=request.querystring("userID")%>" class="menu">Markera privat</a>
<br>-->
<%'End If%>
<%if request.querystring("kat") <> "" then%>
<a href="JavaScript:placeComment(<%=viewRS("kategori")%>, <%=viewRS("bildID")%>,<%=viewRS("agare")%>,'<%=viewRS("username")%>','<%=viewRS("rubrik")%>','<%=viewRS("bild")%>');"><strong class="maroon"> ¤ Kommentera ¤</a></strong>
<%else%>
<strong class="definition1">Kategori saknas</span>
<%end if
end if%>
<%if viewRS("privat") = 1 then
response.write "<img src=""/images/icons/warning.gif"">"
end if%>
<%.Write "</td>" & vbCrLf
viewRS.MoveNext: Loop
'x=x+1
'viewRS.MoveNext
'Loop Until viewRS.EOF
.Write "</tr>" & vbCrLf
.Write "</table>" & vbCrLf
.Write "<hr>"
End if
end with%>
P Peter S Medlem sedan dec. 2002 5 483 inlägg Det är inte den kod jag skrev.
Hur skall det se ut?
är det 5 bilder i galleriet så ska de 5 ligga jämte varandra som miniatyrer, första bilden ska visas som en stor under och när man klickar på nån av de andra miniatyrerna så ska den stora bilden ändras till den man klickade på, är det 2 så ska 2 ligga jämte varann och så vidare
P Peter S Medlem sedan dec. 2002 5 483 inlägg count = viewRS.RecordCount
.Write "<tr>"
Do until viewRS.eof
.Write "<td>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" onclick=""changeImage(this.name,'/images/gallery/"& viewRS("bild") &"', 500, 375)"" name=""mini0"" style=""cursor:pointer"" border=""1"" width=""96"" height=""72"">"
.Write "</td>"
viewRS.MoveNext: Loop
.Write "</tr>"
.Write "<tr>"
.Write "<td colspan="""& count &"""><img name=""bigpic"" border=""1"" width=""500"" height=""375""></td>"
.Write "</tr>"
Peter S skrev:
count = viewRS.RecordCount
.Write "<tr>"
Do until viewRS.eof
.Write "<td>"
.Write "<img src=""/images/gallery/"& viewRS("bild") &""" onclick=""changeImage(this.name,'/images/gallery/"& viewRS("bild") &"', 500, 375)"" name=""mini0"" style=""cursor:pointer"" border=""1"" width=""96"" height=""72"">"
.Write "</td>"
viewRS.MoveNext: Loop
.Write "</tr>"
.Write "<tr>"
.Write "<td colspan="""& count &"""><img name=""bigpic"" border=""1"" width=""500"" height=""375""></td>"
.Write "</tr>"
det ska vara i den här stilenhttp://vetlandatorget.se/index.php?val=info&id=34&l=&kategori=1&franfs=1&stad_namn=vetlanda&tsokord=
bilden visar hur det är nu
P Peter S Medlem sedan dec. 2002 5 483 inlägg Hur ser den genererade HTML-koden ut efter att ovanstående ASP-kod körts?
Peter S skrev:
Hur ser den genererade HTML-koden ut efter att ovanstående ASP-kod körts?
<table border="0">
<tr>
<td align="left" valign="top" width="200">
</td>
<td width="500">
<strong class="definition1"><br>Kategorier</span><br>
<form action="?userID=2059&kat=247" method="post">
<select class="textbox" name="galleriKategori">
<option value=""> == Välj här == </option>
<option value="247" >Jag</option><option value="285" >Några av mina teckningar</option><option value="341" >Jönköping</option>
</select>
<input class="button" type="submit" value="Ok" />
</form>
</td>
</tr>
<tr>
<td colspan="2"><hr>
<table width="800" border="0">
<tr><td><img src="/images/gallery/Bild 011(1).jpg" onclick="changeImage(this.name,'/images/gallery/Bild 011(1).jpg', 500, 375)" name="mini0" style="cursor:pointer" border="1" width="96" height="72"></td></tr><td colspan="-1"><img name="bigpic" border="1" width="500" height="375"></td></tr><tr><td align="left" valign="top" width="350">
<strong class="maroon"><b> Dana Scully </b> 20070218 12:16</strong><br />
<strong class="maroon"> </strong>
<hr />
<!--<br>
<a href="setPrivate.asp?bildID=2766&usr=&usrID=2059" class="menu">Markera privat</a>
<br>-->
<a href="JavaScript:placeComment(285, 2766,2059,'Pesadilla','Dana Scully','Bild 011(1).jpg');"><strong class="maroon"> ¤ Kommentera ¤</a></strong>
</td>
<td><img src="/images/gallery/Bild 013(1).jpg" onclick="changeImage(this.name,'/images/gallery/Bild 013(1).jpg', 500, 375)" name="mini0" style="cursor:pointer" border="1" width="96" height="72"></td></tr><td colspan="-1"><img name="bigpic" border="1" width="500" height="375"></td></tr><tr><td align="left" valign="top" width="350">
<strong class="maroon"><b> </b> 20070217 18:55</strong><br />
<strong class="maroon"> </strong>
<hr />
<!--<br>
<a href="setPrivate.asp?bildID=2765&usr=&usrID=2059" class="menu">Markera privat</a>
<br>-->
<a href="JavaScript:placeComment(285, 2765,2059,'Pesadilla','','Bild 013(1).jpg');"><strong class="maroon"> ¤ Kommentera ¤</a></strong>
</td>
<td><img src="/images/gallery/Bild 010(1).jpg" onclick="changeImage(this.name,'/images/gallery/Bild 010(1).jpg', 500, 375)" name="mini0" style="cursor:pointer" border="1" width="96" height="72"></td></tr><td colspan="-1"><img name="bigpic" border="1" width="500" height="375"></td></tr><tr><td align="left" valign="top" width="350">
<strong class="maroon"><b> Cybil Bennett från Silent Hill </b> 20070217 18:54</strong><br />
<strong class="maroon"> </strong>
<hr />
<!--<br>
<a href="setPrivate.asp?bildID=2764&usr=&usrID=2059" class="menu">Markera privat</a>
<br>-->
<a href="JavaScript:placeComment(285, 2764,2059,'Pesadilla','Cybil Bennett från Silent Hill','Bild 010(1).jpg');"><strong class="maroon"> ¤ Kommentera ¤</a></strong>
</td>
<td><img src="/images/gallery/Bild 015(1).jpg" onclick="changeImage(this.name,'/images/gallery/Bild 015(1).jpg', 500, 375)" name="mini0" style="cursor:pointer" border="1" width="96" height="72"></td></tr><td colspan="-1"><img name="bigpic" border="1" width="500" height="375"></td></tr><tr><td align="left" valign="top" width="350">
<strong class="maroon"><b> </b> 20070217 10:50</strong><br />
<strong class="maroon"> </strong>
<hr />
<!--<br>
<a href="setPrivate.asp?bildID=2761&usr=&usrID=2059" class="menu">Markera privat</a>
<br>-->
<a href="JavaScript:placeComment(285, 2761,2059,'Pesadilla','','Bild 015(1).jpg');"><strong class="maroon"> ¤ Kommentera ¤</a></strong>
</td>
</tr>
</table>
P Peter S Medlem sedan dec. 2002 5 483 inlägg Nej, det är någonting som inte stämmer. Har du flera loopar i ASP-koden? Det skall endast skrivas ut en bild med namnet "bigpic". Hur ser hela ASP-koden ut?
