<% Dim rs Dim str Dim nullimg Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT TopRecord.*, Image_Data.FileName FROM Image_Data RIGHT JOIN TopRecord ON Image_Data.ImageID = TopRecord.ImageID;", connStr, 0, 1 If Not rs.EOF Then While Not rs.EOF Response.Write "

" Response.Write "" & _ "" & _ "" & _ "" Response.Write "" If IsNull(rs("FileName")) Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Picture	Description
No Image " Else Response.Write "	" & "" & "" & "" End If Response.Write "	" & rs.Fields("Description").value & "
" Response.Write "" Response.Write " " If IsNull(rs("FileName")) Then Else Response.Write "" & "View All Images" End If Response.Write " Price :	" & rs("Price") & "

" rs.MoveNext Wend Else Response.Write "No Record Found" End If rs.Close Set rs = Nothing %>

---

Database ©2004 Original On Hold Company

admin