 |
<%
Dim PageNm
Dim PathToDatabase
Dim ConOpenString
Dim Con
Dim rs
PathToDatabase=Server.Mappath(".") & "\database\questcompany.mdb"
ConOpenString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & PathToDataBase
Set Con = Server.CreateObject("Adodb.connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & PathToDataBase
Set rs = Server.CreateObject("Adodb.recordset")
rs.open "select top 3 Image from property order by Position",Con,adOpendynamic,adLockoptimistic
do while(rs.eof=false)
%>
<%
if rs.fields("Image").value = "pic4.jpg" then
%>
|
<% else%>
 |
<% end if%>
<%
rs.movenext
loop
rs.close
%>
|
|