%
lcid=1040
session.lcid=lcid
session.timeout=10
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"
'Set Con = Server.CreateObject( "ADODB.Connection" )
'Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\sibillini.com\computercom\fpdb\computercom.mdb"
'Con.Open "accessDSN"
DatabasePath=server.mappath("fpdb/computercom.mdb")
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DatabasePath
%>
Home page
|
<% IF cat = "Home" THEN %>
<% ELSE %>
<% END IF %>
|