"
rs.MoveFirst
Do while not rs.EOF
if trim(rs.fields("photo"))<>"" then
dim tempSRC
tempSRC = "./photo/" & Trim(rs.Fields("Photo")) & ""
Response.Write " | "
else
Response.Write " | "
end if
Response.Write " " & rs.Fields("tit") & "
"
Response.Write ""& rs.Fields("des") & " | "
Response.Write "
"
'response.Write""
rs.MoveNext
Loop
Response.Write "
"
'Response.Write "