Advertisement
Advertisement
| 04.03.2008 at 04:55AM PDT, ID: 23292444 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: |
Dim fRows As DataRow()
Dim row As DataRow
fRows = dt.Select("DefaultImage = 1")
For Each row In fRows
phDefaultImage.Controls.Add(New LiteralControl("<img src=destinationimages/" & row("ImageSrc") & " id=""imgCurrent"" width=350 height=212>"))
Session("ImgDefault") = row("ImageSrc")
Next row
Dim row2 As DataRow
Dim Count As Integer
Dim rowCount As Integer
rowCount = 0
Count = 1
Dim iImgCount As Integer = 0
iCurrentImage = 1
'Dim ctrl
phGalleryImages.Controls.Add(New LiteralControl("<tr>"))
phGalleryImages.Controls.Add(New LiteralControl("<td width=62>"))
For Each row2 In dt.Rows
phGalleryImages.Controls.Add(New LiteralControl("<img id=""imgNav" & iImgCount + 1 & """style=""CURSOR:pointer;border-style:solid;border-width: 1px;border-color:#FFFFFF"" onclick=""otDisplayImage(this);otStopSlideShow();"" width=""55"" height=""38"" src=""destinationImages/" & row2("ImageSrc") & """ cIdx=""" & iImgCount + 1 & """>"))
rowCount = rowCount + 1
If rowCount = 5 Then
phGalleryImages.Controls.Add(New LiteralControl("</td></tr><tr><td colspan=5 height=5></td></tr><tr><td width=62>"))
rowCount = 0
Else
phGalleryImages.Controls.Add(New LiteralControl("</td><td width=62>"))
End If
iImgCount = iImgCount + 1
m_sJavaScript &= vbTab & vbTab & "gImages[" & CStr(iImgCount - 1) & "] = otAddImgStruct('destinationImages/" & row2("ImageSrc") & "','""','""');" & vbCrLf
Next
|