<%
'ON ERROR RESUME NEXT
'--------Initiliasing variables-------------------
Dim AdoCon
Dim RsSearch
Dim SQLProj
Dim RsPrc
Dim SQLPrc
'------Create Connection-----------------------------------
Set AdoCon = server.createobject("ADODB.CONNECTION")
AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb")
Set RsSearch = server.createobject("ADODB.RECORDSET")
'--------------- SQL Statements -------------------
SQLSearch = "select * from project_details"
'----------------------------------------------------------------
RsSearch.Open SQLSearch,AdoCon,3,3
%>
View al Featured Projects | DUBAI DEVELOPERS