<% Set DataConn = Server.CreateObject("ADODB.Connection") connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_db/magna.mdb") DataConn.Open connection Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = DataConn rs.open "SELECT * FROM Pets WHERE C_Delete <> True" if rs.eof = false and rs.bof = false then rs.movefirst %> Pampered Pets

 

Pampered Pets

<% while rs.eof = false If rs("C_Active") = True Then %>

 
<% sID = rs("ID") sExt=".jpg" Response.write "" %>

<%=rs("T_Title")%>
<%=rs("T_Hotel")%>
Tel. <%=rs("T_Phone")%> | website: " target="_blank"><%=rs("T_Website")%>

<%=rs("T_Discription")%>
 
<% END IF rs.movenext wend rs.close DataConn.close %>

 

                                                                                                                                                                                         info@magnahospitality.com

Contact Us | Press Releases

1485 South County Trail, Second Floor, East Greenwich, Rhode Island 02818 | (401) 886-4484 | Website: Magna Hospitality Group