How do I rename or delete a tag?
Problem using Execute to dynamically create variables
Hello Guest		   
  • Login
• Register…
• Start blog		   • Who, Where, When
• What can I do?
• What to Read?		   • Polls
• Avatars
• Interests		   • Cities and Countries
• Random blog
• Users search		   • Search
• Games
• Tests
• QAIX		   • Сообщества
• Talxy Chat
• Horoscope
• Online		  
Зарегистрируйся!
QAIX > ASP web-programming > Problem using Execute to dynamically create variables 6 May 2005 06:57:54
  Recent blog posts: 
How to convert iTunes Plus to…
The other day Apple announced that it was making about 80% of the iTunes store DRM free, with the…

True nobleness
On the calm sea, everybody is the navigator. However, only the sunshine has no shade, only have no…

_4_
…

mego day!
:-O­ yesss I today went for a walk from a 6 morning! it super! so merrily that pipec!

Everybody is a book
Everybody is a book, parents are our publishing houses, and our publication time on birthday, the ID…

boring..boring...boring :-|…
boring..boring...bor­­ing :-|­ where people? bitchs...not abandon me one…

here so quietly and boring! on…
here so quietly and boring! on beone merrier far! well but I can sit in a quiet.... and not who by the…

Transfer iTunes Library to Zune
If you have moved from Apple iPod to Microsoft Zune, you probably have some songs that you purchased&hellip­;

hello!
hello!I here new! interestingly me what people dwell on this site... I search friends from the command…

Routes on Sale!
Looking for great Quality/Competitive­­ Rates???? Breezecom FZC is offering: PAKISTAN! CLI…

  Forums:   
    topic feeds

• QAIX  all topics, blogs and comments

• PHP web-programming

• Perl web-programming

• ASP web-programming

• Visual Basic Programming

• .Net Development

• C/C++ Programming

• Java Programming

• Javascript web-programming

• Apache HTTP Server

• Web-design

• Web-hosting, dedicated, colocation

• HTML web-programming

• XML development

• General Web-programming

• Content Management Systems

• ColdFusion

• Search Engine Optimization

• Hardware

• Software, Computer Help

• MySQL database development

• PostgreSQL database development

• MS Access database development

• Oracle database development

• MS SQL database development

• Informix database development

• Buy / Sell

• Open discussion

• Anonymous
  Discuss: 
Select Records between…
I've built a Point-of-Sale using "classic" asp (it's what I know) and I'm trying to get daily…

Borwser prompts for…
I have put together a very simple internal web site that runs on Windows 2003 Server. Anonymous access…

Possible to include SSI in ASP…
Hi, We want to include some SSI in our ASP pages, but where the SSI is located on a different server…

text wait or hourglass
Hi Can someone please help me with the following: I have an ASP-page where a query runs, it…
  Recent forum topics: 
[blead-227-gbd2db5d] mkppport…
Small fix, mkppport is using catfile instead of catdir. -John wb8tyw@gmai.com…

[blead-227-gbd2db5d]…
When VMS is in UNIX mode, conversions from UNIX specifications to VMS can result in a trailing '.'…

[blead-227-gbd2db5d]…
The tests lib/blib.t and lib/h2xs.t need fixes to know when VMS is in the UNIX report mode. -John…
  Recent forum comments:
RE: NEW NEOPOINT GENERATOR v2…
Is it really that hard to hack neopets? I figure someone must of done something about that O:

RE: Playing a video
Hi Murray First, thanks for your response. I'm kind of a "non techie" so I'm not sure if I…

RE: Playing a video
See http://www.w3.org/Q­A/Tools/#validators and in particular…

RE: Limitation in Number of Fields…
Stefan, Thanks for your response ... The last field that is captured by the database in called (40…

RE: Frustrated, Frontpage…
terrabit;9214809 Wrote: Or better still upgrade to Dreamweaver, once you learn how to use it properly…

RE: saving a page in fp
Save html pages as web pages. First principles: Before doing anything, open the web site in FrontPage…

RE: Limitation in Number of Fields…
Post a URL to the form online -- ___________________­____________________­______ SBR…

RE: Captcha
You can do a simple captcha-like validation with FP's forms...just put question there like; Ice is Hot…

RE: saving a page in fp
omg... thank yu so very much ronx. i know my ramblings were just thrown out there and i really didnt…

RE: Creating Java/DHTML Vertical…
On Sep 24, 1:59pm, "Trevor Lawrence" <Trevor L.@Canberra> wrote: Hi Trevor, yeah I'm…
  Moderators:
 Administrator
 Protorioris

Problem using Execute to dynamically create variables

Colin Mc Mahon 6 May 2005 06:57:54
 Hi,

I am trying to re-write an old url management class I use, and am having
problems using the Execute method to create vars. I think i'm missing
something simple, as I have used this method several times to perform this
kind of action, maybe it just needs some fresh eyes :)­ The code i'm using is
as follows:
Class cURL
' *--- [ Private variable
declarations ] -------------------­--------------------­-----------*
Private i_ItemCount
Private i_URL, i_QSURL, arFieldNames

' *--- [ Initialisation/termination
routines ] -------------------­--------------------­-------*
Private Sub Class_Initialize()
arFieldNames = Array()
End Sub
Private Sub Class_Terminate()
' Clean up objects and data
End Sub

' *--- [ Class
properties ] -------------------­--------------------­--------------------­--*
Public Property Get cnt
cnt = i_ItemCount
End Property
Property Get URL
URL = i_URL
End Property
Property Get QSURL
QSURL = i_QSURL
End Property

' *--- [ Class
Methods ] -------------------­--------------------­--------------------­----*
Public Sub Load
Dim protocol, sQuery, i, x
Dim nStart, url, url_element, vItem
protocol = "" & Request.ServerVaria­bles("HTTPS")
if LCase(protocol) = "on" Then protocol = "https://" else protocol =
"http://"
i_URL = protocol & Request.ServerVaria­bles("HTTP_HOST") &
Request.ServerVaria­bles("SCRIPT_NAME")
' get QueryString if there is one
sQuery = Request.QueryString­()
if sQuery <> "" Then sQuery = "?" & sQuery Else sQuery = ""
i_QSURL = i_URL & sQuery
i_ItemCount = Request.QueryString­.Count
If i_ItemCount = 0 Then Exit Sub
' At this point we know we have some q string data
ReDim arFieldNames(i_Item­Count)
' build the internal map of name-value pairs from the url.
url = Request.QueryString­()
url_element = split(url, "&")
'if the url has no parameters
if IsNull(url_element(­0)) Or url_element(0) = "" Then Exit Sub
'if the url has parameters
for i = 0 to UBound(url_element)­
vItem = split(url_element(i­), "=")
arFieldNames(i) = vItem(0)
Execute("qs_" & arFieldNames(i) & "=" & vItem(1)) ' PROBLEM LINE
Next
End Sub

Public default Function Items(str_item)
Dim intOrdinal, i, strTest
If i_ItemCount = 0 Then Items = "" : Exit Function
strTest = "qs_" & str_item
If Len(Eval(strTest)) = 0 Then
Items = "" ' Always returns this!
Else
Items = Eval(strTest)
End If
End Function
End Class

On the calling page:
<% Dim g_URL : Set g_URL = New cURL : g_URL.Load %>
<a href="<%= g_URL.URL & "?item1=astring&ite­m2=lop"%>">Test QueryString</a>
<br>
<br>
<br>
URL: <%= g_URL.URL %>
<br>
Full URL: <%= g_URL.QSURL %>
<br>
Item Count: <%= g_URL.cnt %>
<br>
Request item: <%= g_URL("item1") %>

Thanks for your time,
Colin


Add comment
Colin Mc Mahon 6 May 2005 06:57:54 [ permanent link ]
 Hi, sorry vbscript fatigue setting in! I found the problem, the line that
reads:
Execute("qs_" & arFieldNames(i) & "=" & vItem(1)) ' PROBLEM LINE

Should have read:
Execute("qs_" & arFieldNames(i) & " = """ & vItem(1) & """")
because the qs is a string.

Thanks anyway,
Colin


Add comment
 

Add new comment

As:
Login:  Password:  
 
 
  
 
Пожалуйста, относитесь к собеседникам уважительно, не используйте нецензурные слова, не злоупотребляйте заглавными буквами, не публикуйте рекламу и объявления о купле/продаже, а также материалы нарушающие сетевой этикет или УК РФ.

QAIX > ASP web-programming > Problem using Execute to dynamically create variables 6 May 2005 06:57:54
see also:
user postgres
Is there anyway to create a functional…
size of indexes and tables (more than…
пройди тесты:
see also:
My brother taught me this prayer
The song my brother taught me
can some1 please help me in...
  Copyright © 2001—2008 QAIX
Idea: Miсhael Monashev
Помощь и задать вопросы можно в сообществе support.qaix.com.
Сообщения об ошибках оставляем в сообществе bugs.qaix.com.
Предложения и комментарии пишем в сообществе suggest.qaix.com.
Информация для родителей.
Write us at:
If you would like to report an abuse of our service, such as a spam message, please .