Author |
Topic |
|
Spoon
Average Member
Ireland
507 Posts |
Posted - 23 July 2001 : 16:32:13
|
Hi, Can anyone tell me why this wont work. The database has info in it ------------------------------------------------------------------------
APPLICATION("PAGETITLE") = PMRSTWO("S_PAGETITLE")
........
S_PAGETITLE = APPLICATION("PAGETITLE")
---------------------------------------------------------------------------
When i use <%=S_PAGETITLE%> it returns nothing at all. There is info in the database.
Thanks for any help,
Regards,
Spoon, (ya all love me right?) |
|
Id
Junior Member
USA
129 Posts |
Posted - 23 July 2001 : 16:44:32
|
i'm sorta guessing, here, i haven't had a lot of experience with application objects, but you might try
<% Set S_PAGETITLE = APPLICATION("PAGETITLE") %>
Beyond that i couldn't tell you, but you could probably do this as well instead of using the s_pagetitle
<%=Application("pagetitle")%>
|
|
|
Spoon
Average Member
Ireland
507 Posts |
Posted - 23 July 2001 : 16:53:11
|
quote:
i'm sorta guessing, here, i haven't had a lot of experience with application objects, but you might try
<% Set S_PAGETITLE = APPLICATION("PAGETITLE") %>
Beyond that i couldn't tell you, but you could probably do this as well instead of using the s_pagetitle
<%=Application("pagetitle")%>
With The "SET S_.." thingy it didnt work. I got an Object Required error
Anybody else any ideas???
Regards,
Spoon, (ya all love me right?) |
|
|
gor
Retired Admin
Netherlands
5511 Posts |
Posted - 23 July 2001 : 17:12:03
|
Hi Spoon,
Didn't you ask this one once before ?
The syntax you posted is correct, so the error is probably some other part of the code (like the end if at the wrong place ) Try things like Response.Write(PMRSTWO("S_PAGETITLE")) just before the APPLICATION("PAGETITLE") = PMRSTWO("S_PAGETITLE") line and Response.Write(APPLICATION("PAGETITLE")) just after it.
Pierre Join a Snitz Mailinglist |
|
|
Doug G
Support Moderator
USA
6493 Posts |
Posted - 23 July 2001 : 17:14:00
|
You only use the set keyword with object references. I assume your pagetitile is a string, so set would not be applicable.
I don't know why your original code doesn't work unless there is a server configuration issue or something.
====== Doug G ====== |
|
|
Spoon
Average Member
Ireland
507 Posts |
Posted - 23 July 2001 : 17:26:36
|
Heres the code:
<% GETPAGE = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") %>
<!--#include file="../config.asp" -->
<% Dim CHECK CHECK = Request.Form("CHECK") If Isempty(CHECK) or NOT CHECK = "YES" Then CHECK = "NO" End If
If CHECK = "YES" Then %> <% DIM USERNAME, PASSWORD USERNAME = Request.Form("USERNAME") USERPASSWORD = Request.Form("PASSWORD")
Dim SQL SQL = "SELECT USERNAME, USERPASSWORD, USERLEVEL, USERID, USERLASTLOG FROM USERS WHERE (USERNAME = '" & USERNAME & "') AND (USERPASSWORD = '" & USERPASSWORD & "')"
Set PMRS = PMDB.Execute(SQL)
If PMRS.Eof And PMRS.BOF Then SESSION("PASSWORDACCESS")= "0" '================================================================================================== %>
Write HTML
<% Response.End
'==================================================================================================== ElseIf NOT (PMRS.Eof And PMRS.BOF) Then
SESSION("USERNAME") = PMRS("USERNAME") SESSION("USERPASSWORD") = PMRS("USERPASSWORD") SESSION("PASSWORDACCESS") = "1" SESSION("USERLEVEL") = PMRS("USERLEVEL") SESSION("USERID") = PMRS("USERID") SESSION("USERLASTLOG") = PMRS("USERLASTLOG")
PMRS.close Set PMRS = NOTHING
'************************************************************* 'Switch to setup '*************************************************************
If APPLICATION("PAGELOADED") = "" OR IsNULL(APPLICATION("PAGELOADED")) Then SQL = "SELECT * FROM SETUP" SET PMRSTWO = PMDB.Execute(SQL)
APPLICATION.LOCK APPLICATION("PAGETITLE") = PMRSTWO("S_PAGETITLE") APPLICATION("STYLES") = PMRSTWO("S_STYLES") APPLICATION("COPYRIGHT") = PMRSTWO("S_COPYRIGHT") APPLICATION("NAME") = PMRSTWO("S_NAME") APPLICATION("HOMEPAGE") = PMRSTWO("S_HOMEPAGE") APPLICATION("IMGSRC") = PMRSTWO("S_IMGSRC") APPLICATION("FFIlE") = PMRSTWO("S_FFILE") APPLICATION("TIMEOUT") = PMRSTWO("S_TIMEOUT") APPLICATION("VERSION") = PMRSTWO("S_VERSION") APPLICATION("FFACE") = PMRSTWO("S_FFACE") APPLICATION("FSIZE") = PMRSTWO("S_FSIZE") APPLICATION("FCOLOR") = PMRSTWO("S_FCOLOR") APPLICATION("T_BG") = PMRSTWO("S_T_BG") APPLICATION("T_CBG") = PMRSTWO("S_T_CBG") APPLICATION("T_HEADER") = PMRSTWO("S_T_HEADER") APPLICATION("T_HFCOLOR") = PMRSTWO("S_T_HFCOLOR") APPLICATION("LINKS") = PMRSTWO("S_LINK") APPLICATION("ALINKS") = PMRSTWO("S_ALINK") APPLICATION("HLINKS") = PMRSTWO("S_HLINK") APPLICATION("VLINKS") = PMRSTWO("S_VLINK") APPLICATION("LINKDS") = PMRSTWO("S_LINKD") APPLICATION("ALINKDS") = PMRSTWO("S_ALINKD") APPLICATION("HLINKDS") = PMRSTWO("S_HLINKD") APPLICATION("VLINKDS") = PMRSTWO("S_VLINKD") APPLICATION("M_FFACE") = PMRSTWO("S_M_FFACE") APPLICATION("M_FSIZE") = PMRSTWO("S_M_FSIZE") APPLICATION("M_FCOLOR") = PMRSTWO("S_M_FCOLOR") APPLICATION("M_T_BG") = PMRSTWO("S_M_T_BG") APPLICATION("M_T_CBG") = PMRSTWO("S_M_T_CBG") APPLICATION("NM_FFACE") = PMRSTWO("S_NM_FFACE") APPLICATION("NM_FSIZE") = PMRSTWO("S_NM_FSIZE") APPLICATION("NM_FCOLOR") = PMRSTWO("S_NM_FCOLOR") APPLICATION("NM_T_BG") = PMRSTWO("S_NM_T_BG") APPLICATION("NM_T_CBG") = PMRSTWO("S_NM_T_CBG") APPLICATION("EM_FFACE") = PMRSTWO("S_EM_FFACE") APPLICATION("EM_FSIZE") = PMRSTWO("S_EM_FSIZE") APPLICATION("EM_T_BG") = PMRSTWO("S_EM_T_BG") APPLICATION("EM_T_CBG") = PMRSTWO("S_EM_T_CBG") APPLICATION("RM_FFACE") = PMRSTWO("S_RM_FFACE") APPLICATION("RM_FSIZE") = PMRSTWO("S_RM_FSIZE") APPLICATION("RM_T_BG") = PMRSTWO("S_RM_T_BG") APPLICATION("RM_T_CBG") = PMRSTWO("S_RM_T_CBG") APPLICATION("RM_T_HEADER") = PMRSTWO("S_RM_T_HEADER") APPLICATION("RM_T_HFCOLOR") = PMRSTWO("S_RM_T_HFCOLOR") SESSION.TIMEOUT = APPLICATION("S_TIMEOUT") APPLICATION("PAGELOADED") = "1" APPLICATION.UNLOCK End If SQL = "UPDATE USERS Set USERLASTLOG ='" & Date & " at " & Time & "' WHERE USERID=" & SESSION("USERID") SET PMRSTHREE = PMDB.Execute(SQL)
Set PMRSTHREE = NOTHING End If %> <% End If %> <% If SESSION("PASSWORDACCESS") = "0" OR SESSION("PASSWORDACCESS") = "" Then %>
Write HTML
<% Response.End End If %> <% If APPLICATION("PAGELOADED") = "1" Then
S_PAGETITLE = APPLICATION("PAGETITLE") APPLICATION("STYLES") = S_STYLES APPLICATION("COPYRIGHT") = S_COPYRIGHT APPLICATION("NAME") = S_NAME APPLICATION("HOMEPAGE") = S_HOMEPAGE APPLICATION("IMGSRC") = S_IMGSRC APPLICATION("FFIlE") = S_FFILE APPLICATION("TIMEOUT") = S_TIMEOUT APPLICATION("VERSION") = S_VERSION APPLICATION("FFACE") = S_FFACE APPLICATION("FSIZE") = S_FSIZE APPLICATION("FCOLOR") = S_FCOLOR APPLICATION("T_BG") = S_T_BG APPLICATION("T_CBG") = S_T_CBG APPLICATION("T_HEADER") = S_T_HEADER APPLICATION("T_HFCOLOR") = S_T_HFCOLOR APPLICATION("LINKS") = S_LINK APPLICATION("ALINKS") = S_ALINK APPLICATION("HLINKS") = S_HLINK APPLICATION("VLINKS") = S_VLINK APPLICATION("LINKDS") = S_LINKD APPLICATION("ALINKDS") = S_ALINKD APPLICATION("HLINKDS") = S_HLINKD APPLICATION("VLINKDS") = S_VLINKD APPLICATION("M_FFACE") = S_M_FFACE APPLICATION("M_FSIZE") = S_M_FSIZE APPLICATION("M_FCOLOR") = S_M_FCOLOR APPLICATION("M_T_BG") = S_M_T_BG APPLICATION("M_T_CBG") = S_M_T_CBG APPLICATION("NM_FFACE") = S_NM_FFACE APPLICATION("NM_FSIZE") = S_NM_FSIZE APPLICATION("NM_FCOLOR") = S_NM_FCOLOR APPLICATION("NM_T_BG") = S_NM_T_BG APPLICATION("NM_T_CBG") = S_NM_T_CBG APPLICATION("EM_FFACE") = S_EM_FFACE APPLICATION("EM_FSIZE") = S_EM_FSIZE APPLICATION("EM_T_BG") = S_EM_T_BG APPLICATION("EM_T_CBG") = S_EM_T_CBG APPLICATION("RM_FFACE") = S_RM_FFACE APPLICATION("RM_FSIZE") = S_RM_FSIZE APPLICATION("RM_T_BG") = S_RM_T_BG APPLICATION("RM_T_CBG") = S_RM_T_CBG APPLICATION("RM_T_HEADER") = S_RM_T_HEADER APPLICATION("RM_T_HFCOLOR") = S_RM_T_HFCOLOR End If %> Writing APPLICATION S_ PAGETITLE : <%Response.Write(APPLICATION("S_PAGETITLE"))%><br> Writing pagetitle :<%=S_PAGETITLE%><br>
If i remove the lines in red, all runs well, BUT i dont want that stuff to load everytime the page is used, thats the whole point :(
Regards,
Spoon, (ya all love me right?)
Edited by - spoon on 23 July 2001 17:45:11 |
|
|
Spoon
Average Member
Ireland
507 Posts |
Posted - 23 July 2001 : 17:51:35
|
Used a diff technique where the red lines are, worked, used a session var instead. I now hate the app object! :)
Thanks to all how tried to help,
Oh and GOR, the END IF was in the right place
Regards,
Spoon, (ya all love me right?) |
|
|
Doug G
Support Moderator
USA
6493 Posts |
Posted - 23 July 2001 : 20:32:57
|
You're probably on a server that doesn't allow application variables.
====== Doug G ====== |
|
|
Spoon
Average Member
Ireland
507 Posts |
Posted - 24 July 2001 : 08:13:05
|
quote:
You're probably on a server that doesn't allow application variables.
====== Doug G ======
No, im on my own server. :) . I got the applications thing to work. :)
Regards,
Spoon, (ya all love me right?) |
|
|
|
Topic |
|