| 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 |
|
Topic Locked
