<%@ Language=VBScript %> <% Option Explicit %> <% 'on error resume next dim rsCategories, strsql, rssettings, storefont set rssettings = server.CreateObject("ADODB.Recordset") rssettings.CursorLocation = adUseClient strsql = "SELECT * FROM [Settings]" set rssettings = conn.execute(strsql) storefont = rssettings("StoreFontFace") rssettings.Close set rssettings = nothing %> size=2>

Login to Embroidered Uniforms & Corporate Apparel size=2> <% if session("Incorrect_Login") > "" then %> <% end if %> Incorrect login. Please try again. Login: Password: size=2>

<% conn.close set conn = nothing %>