<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = true %> <% if session("user_ID") = "" then conn.close set conn = nothing response.Redirect("/login/login.asp") end if 'response.write(session("user_ID")) dim strsql, rssettings, storefont, category_ID, rsCard dim customer_ID, rsUser customer_ID = session("Customer_ID") set rsUser = server.CreateObject("ADODB.RECORDSET") rsUser.CursorLocation = adUseClient strsql = "stor_Customer_Users_select_user_ID " & session("user_ID") set rsUser = conn.execute(strsql) 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 set rsCard = server.CreateObject("ADODB.RECORDSET") set rsCard = conn.execute("stor_CardData_select_ID " & session("customer_ID")) %> Member Login

Welcome Back <%=rsUser("FirstName")%>


User Type: <%=rsUser("Name")%>
">Click here to edit your profile
Logout

You have successfully signed in.

 

<% conn.close set conn = nothing %>