<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Mooltan Home Page <% Dim oConn Dim RS Dim filePath Dim Index ' Map authors database to physical path filePath = Server.MapPath("mooltan.mdb") ' Create ADO Connection Component to connect ' with sample database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath Set RS = oConn.Execute("SELECT * FROM Table1 WHERE PageID ='Home page'") %>
Grand Tour Prices Check Availability Contact Us Location

Mooltan Guest House

<%Response.Write" " & rs("Heading") & " "%>

<%Response.Write" " & rs("Para1") & " "%>

<%Response.Write" " & rs("Para2") & " "%>

<%Response.Write" " & rs("Para3") & " "%>

<%Response.Write" " & rs("Para4") & " "%>

<%Response.Write" " & rs("Para5") & " "%>

<%Response.Write" " & rs("Para6") & " "%>

Return to the Top.

<% 'close the recordset rs.close set rs = nothing 'close the connection oConn.close set oConn = nothing %>