Optimering
Jeg syntes min side bliver langsommere. Det er access databaser og asp på en win2000 server.Her er et eksempel på lidt kode fra forsiden:
<%
Usernm = session(\"devusername\")
deftheme = \"ASP DeV WorX\"
if request(\"start\") <> \"Test\" then
set conni = Server.CreateObject(\"ADODB.Connection\")
set rs = Server.CreateObject(\"ADODB.Recordset\")
sConn = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
conni.open sConn
set rs.ActiveConnection = conni
rs.CursorType = adOpenStatic
sSQL = \"select * from users where UserName = \'\" & Usernm & \"\'\"
rs.Open sSQL, conni, 3, 3
if rs.eof or rs.bof then
rs.close
else
theme = rs(\"theme\")
rs.close
end if
sSQL = \"SELECT * FROM customizex WHERE theme = \'\" & theme & \"\'\"
rs.Open sSQL, conni, 3, 3
if rs.eof or rs.bof or session(\"devusername\") = \"\" then
theme = \"ASP DeV WorX\"
background = \"#FFFFFF\"
txtcolor = \"#000000\"
sidecolbg = \"#DDDDDD\"
sidecoltxt = \"#000000\"
navcolbg = \"#4682B4\"
navcoltxt =\"#FFFFFF\"
hfcolbg = \"#4682B4\"
hfcoltxt = \"#FFFFFF\"
devcolbg = \"#949CBD\"
devcoltxt = \"#FFFFC0\"
font = \"Arial\"
else
theme = rs(\"theme\")
bgpic = rs(\"bgpic\")
background = rs(\"background\")
txtcolor = rs(\"txtcolor\")
sidecolbg = rs(\"sidecolbg\")
sidecoltxt = rs(\"sidecoltxt\")
navcolbg = rs(\"navcolbg\")
navcoltxt = rs(\"navcoltxt\")
hfcolbg = rs(\"hfcolbg\")
hfcoltxt = rs(\"hfcoltxt\")
devcolbg = rs(\"devcolbg\")
devcoltxt = rs(\"devcoltxt\")
font = rs(\"font\")
rs.close
end if
end if%>
<style>
body{background-color:<%=background%>;color:<%=txtcolor%>;font-family:<%=font%>;}
.sides{background-color:<%=sidecolbg%>;color:<%=sidecoltxt%>;font-size:<%=fsize%>pt;font-family:<%=font%>;}
.navheader{background-color:<%=navcolbg%>;color:<%=navcoltxt%>;font-size:<%=fsize%>pt;font-weight:bold;font-family:<%=font%>;}
.headfoot{background-color:<%=hfcolbg%>;color:<%=hfcoltxt%>;font-size:<%=fsize%>pt;font-family:<%=font%>;}
.devbox{background-color:<%=devcolbg%>;color:<%=devcoltxt%>;font-size:<%=fsize%>pt;font-weight:bold;font-family:<%=font%>;}
</style>
<LINK REL=\"SHORTCUT ICON\" HREF=\"http://www.counselor.dk/favicon.ico\">
<title><%=sPageTitle%></title>
<SCRIPT language=\"JavaScript1.2\">var bookmarkurl = window.location.href;
var bookmarktitle = document.title;
function addfav(){
if (document.all) window.external.AddFavorite(bookmarkurl,bookmarktitle);
}
</SCRIPT>
</head>
<body>
<table border=0 cellspacing=1 cellpadding=0 width=100% align=center>
<tr height=10>
<td width=\"160\" height=\"40\" valign=\"top\">
