WebbisNet
2009-02-14, 01:14
<script language="JavaScript" type="text/javascript">
<!--
function Pic(bild)
{
window.open("/viewPic.asp?Pic="+bild,"Pic","left=200, top=100, location=no, toolbar=no, scrollbars=no, resizable=no");
}
//-->
</script>
set bildRS=ObjConn.Execute("select bild from tblGalleri")
If not bildRS.EOF Then
Response.Write "<table width=""800"" border=""0"" bgcolor=""#EEEEEE"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Do until bildRS.eof
Response.Write "<td align=""left"" valign=""middle"" width=""60"">" & vbCrLf
Response.Write "<a href=""JavaScript: Pic("& bildRS("bild") &");"">" & vbCrLf
Response.Write "<img class=""presentation"" border=""0"" width=""60"" height=""60"" src=""/inside/photogallery/"& bildRS("bild") &" ""></a>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "<td class=""linkpresentation"" align=""left"" valign=""top"" width=""350"">" & vbCrLf
Response.Write "<br />" & vbCrLf
bildRS.MoveNext :loop
end if
<!--
function Pic(bild)
{
window.open("/viewPic.asp?Pic="+bild,"Pic","left=200, top=100, location=no, toolbar=no, scrollbars=no, resizable=no");
}
//-->
</script>
set bildRS=ObjConn.Execute("select bild from tblGalleri")
If not bildRS.EOF Then
Response.Write "<table width=""800"" border=""0"" bgcolor=""#EEEEEE"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Do until bildRS.eof
Response.Write "<td align=""left"" valign=""middle"" width=""60"">" & vbCrLf
Response.Write "<a href=""JavaScript: Pic("& bildRS("bild") &");"">" & vbCrLf
Response.Write "<img class=""presentation"" border=""0"" width=""60"" height=""60"" src=""/inside/photogallery/"& bildRS("bild") &" ""></a>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "<td class=""linkpresentation"" align=""left"" valign=""top"" width=""350"">" & vbCrLf
Response.Write "<br />" & vbCrLf
bildRS.MoveNext :loop
end if