ASP Page Not displaying all Record

[lcky]

Hi
I am running windows Xp Pro with IIS server locally.

I have ASP Page to display record from Access 2003 database.

This is my script

<%@ Language=VBScript %>
<%
Option Explicit
Response.expires = 0
Dim objDBConn, objRS, strQuery, strWhere
Dim strConnection, strOrderBy
Dim myPostcode, myNumberOfRoom, myPropertyType, myCategory

Set objDBConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../vme.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5"
objDBConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objDBConn

strQuery = "Select * from tblProperty "

objRS.Open strQuery

While Not objRS.EOF
Response.Write "<tr>"
Response.Write "<td align='center'>" & objRS("Location") & "</td>"
Response.Write "<td align='center'>" & objRS("Postcode") & "</td>"
Response.Write "<td align='center'>" & objRS("NumberOfRooms") & "</td>"
Response.Write "<td align='center'>" & objRS("Price") & "</td>"
Response.Write "<td align='center'>" & objRS("status") & "</td>"
Response.Write "<td align='center'><img src=../photos/" & objRS("Photo1") & " name="" width='100' height='80' > </td>"
Response.Write "</tr>"
Response.Write "<br>" & vbCrLf
objRS.MoveNext
Wend
%>


I only have 5 records.

But for some reason when test this page through internet explorer browser. my ASP page is only displaying three records.

Out of this three records, only two record display jpg file(ThumpsNail) and third record only display text fields data, but no jpg file, instead displaying graphic information ie ( <img src=../photos/pic51.jpg name=" width='100' height='80' > )

I am lost here.

Please could you help me.

many thank

 

[ksbigfoot]

I notice your code

Response.Write "<td align='center'><img src=../photos/" & objRS("Photo1") & " name="" width='100' height='80' > </td>"

should be

Response.Write "<td align=" & """" & "center" & """" & "><img src=" & """" & "../photos/"  & "objRS(Photo1)" & """" & " width=" & """" & "100" & """" & " height=" & """" & "80" & """" & "></td>"

 

[ksbigfoot]

I forgot in my testing that the "objRS(Photo1)" should be objRS("Photo1")
I would also on the above code change the single quotes to double quotes by using the """"
Hope this helps

 

[FesterSXS]

Change this line to include the following:

Response.Write "<td align='center'><img src=[red]'[/red]../photos/" & objRS("Photo1") & "[red]'[/red] name=[red]''[/red] width='100' height='80' ></td>"

This should help display the images correctly. It doesnt explain why you are only getting 3 out of 5 records though.


Tony

 

[ksbigfoot]

Or maybe this would be easier to read:

While Not objRS.EOF
%>
<tr>
<td align="center"><%=objRS("Location")%></td>
<td align="center">" & objRS("Postcode")%></td>
<td align="center">" & objRS("NumberOfRooms")%></td>
<td align="center">" & objRS("Price")%></td>
<td align="center">" & objRS("status")%></td>
<td align="center"><img src="../photos/<%=objRS("Photo1")%> width="100" height="80"></td>
</tr>

<%
objRS.MoveNext
Wend

 

[ksbigfoot]

Opps, forgot the <%= around some of the objRs("") in my last post.

 

[vongrunt]

Something is still missing... .

------
"There's a man... He's bald and wears a short-sleeved shirt, and somehow he's very important to me. I think his name is Homer."
(Jack O'Neill, Stargate)

 

[ksbigfoot]

Thanks vongrunt,
Missing the " around the img scr
Isn't hack code like job security?

Here is another try at correct source code.

While Not objRS.EOF
%>
<tr>
<td align="center"><%=objRS("Location")%></td>
<td align="center">" & <%=objRS("Postcode")%></td>
<td align="center">" & <%=objRS("NumberOfRooms")%></td>
<td align="center">" & <%=objRS("Price")%></td>
<td align="center">" & <%=objRS("status")%></td>
<td align="center"><img src="../photos/<%=objRS("Photo1")%>" width="100" height="80"></td>
</tr>

<%
objRS.MoveNext
Wend

 

[FesterSXS]

alt tag?



Tony

 

[ksbigfoot]

Doh, get rid of the & in the 4 lines.
I think I will give up on this post

 

[DotNetGnat]

dont we need to say:

Response.BinaryWrite(objRS("Photo1))

-DNG

 

[ksbigfoot]

Howdy DotNetGnat,
I am assuming that the name of the picture is stored in his database, so I am just placing the name in the string.

Last try at correct code (missing alt and name tags)

While Not objRS.EOF
%>
<tr>
<td align="center"><%=objRS("Location")%></td>
<td align="center"><%=objRS("Postcode")%></td>
<td align="center"><%=objRS("NumberOfRooms")%></td>
<td align="center"><%=objRS("Price")%></td>
<td align="center"><%=objRS("status")%></td>
<td align="center"><img src="../photos/<%=objRS("Photo1")%>" width="100" height="80"></td>
</tr>

<%
objRS.MoveNext
Wend