How can I pass an image parameter in HTML? Is it possible???

[John]

Last year, I remember finding a web page describing how to pass the
name of a file to another web page, and have that web page load that
image file.

Now, I can't find my record of that (it was saved on another computer
that I can't get to right now), and I can't remember what search
parameters I used to find it when I googled the topic.

Can anyone point me the right direction? I'd like to use a method that
would be accessible to the most people, and a barrier to as few as
possible.

What I want to do, if possible, is pass the image URL to the web page
as part of the link, and have that page automatically use that image
URL in place of the default image. If you want to see a sample page,
look at http://www.godloveseveryone.org/sample/Personlz.htm ... where
you see the "GOD LOVES JOHN" maze, I'd like to have the link to that
page specify a specific image URL, and have that image show up both
places that the JOHN maze is displayed.

I hope it's possible, otherwise, I'm going to have to have 39,000
different html pages to do the same thing.

And yes, eventually, i need to learn JAVA so that I can write a program
to create those mazes on the fly. Or is there something else that this
old BASIC programmer should learn in order to do it?

John

[kaeli]

In article <11************ **********@z14g 2000cwz.googleg roups.com>,
Go************* *****@gmail.com enlightened us with...

<%@ LANGUAGE="VBSCR IPT" %>

<% Dim First
Dim FilNam
First = Request.form("f irst")
That's for form submissions (i.e.POST).
You want querystring for ASP URL params.
First = Request.QuerySt ring("first")

I'm guessing that you might be able to help me with passing parameters
with the URL???
Just link like
http://www.godloveseveryone.org/godl...sp?first=kaeli
I also couldn't figure out how to test to see if the
file existed. DIR$ is the function I'm used to, I couldn't find either
it or anything starting with file like in your File_Exists example.

No, for VBScript you want FileSystemObjec t, I believe.
Lemme go look...
Yup.
Set filesys = CreateObject("S cripting.FileSy stemObject")
If filesys.FileExi sts(path) Then
End If

See:
http://msdn.microsoft.com/library/de...stemobject.asp

Note: vbscript syntax and functions are pretty much the same as full VB. Some
minor differences, but nothing that should screw up something this small.
I do appreciate all your help, even all the "wasted time" on PHP helped
me get this one done much faster.

Hey, no problem.
By the way, I didn't think your name was there, but I tested the page
with KAELI and guess what popped up? Hope that's a small thank you.

Thanks. :)

--
--
~kaeli~
http://www.ipwebdesign.net/wildAtHeart
http://www.ipwebdesign.net/kaelisSpace

[kaeli]

In article <11************ **********@l41g 2000cwc.googleg roups.com>,
Go************* *****@gmail.com enlightened us with...

Hi, Kaeli,

In addition to the page that is "mostly working", I'm trying to work on
a slightly different version to strip out spaces and other
non-dash-non-letter characters from the filename, and possibly display
two mazes if they happen to put in a name with a space, first and all.
A space is not a valid character in the URL. It would be encoded as %20.

BUT I'm getting page not found, and getting no errors at all when I try
to load that particular page. Here is the ASP code if you can see
what's causing the error. I've tried breaking down the statements,
changing OR to +,
VBScript/VB does not support/overload the plus operator (+) for string
concatenation.
It's an ampersand. (&)

You might want to peruse the documentation. It has the operators in there.
http://msdn.microsoft.com/library/de...bscripttoc.asp
First = trim(Request.fo rm("first"))
if First<"A" then First="John"
I'm not sure if this is really what you want.
Many languages will convert this to number comparisons, but VB isn't the
brightest thing I've ever used. You may want to see what other string
functions might do a better job.
It looks like you're trying to make sure the name is an alphabetic string.

Google is my friend. :)

<%
Private Function IsAlpha(byVal string)
dim regExp, match, i, spec
For i = 1 to Len( string )
spec = Mid(string, i, 1)
Set regExp = New RegExp
regExp.Global = True
regExp.IgnoreCa se = True
regExp.Pattern = "[A-Z]|[a-z]|\s|[_]"
set match = regExp.Execute( spec)
If match.count = 0 then
IsAlpha = False
Exit Function
End If
Set regExp = Nothing
Next
IsAlpha = True
End Function

If IsNull(First) Or IsEmpty(First) Or Not IsAlpha(First)
First = "John"
End If
%>
FilNam2 = left(First,1)+"/"+left$(First,i nstr(First+" "," ")-1)+".gif"
Ampersands. Not pluses. And take out the dollar sign.

FilNam2 = left(First,1) & "/"+left(First,in str(First+" "," ")-1) & ".gif"
for i=len(FilNam)-4 to 3 step -1
j=asc(ucase(mid (FilNam,i,1)))
if j<>45 then
if (j<65)+(j>90) then FilNam=left(Fil Nam,i-1)+mid(FilNam,i +1)
end if
What is that supposed to be doing?
next
if FilNam2<>FilNam then
FilNam3="<img src="+chr$(34)+ FilNam2+chr$(34 )+"><P>"
And again, use ampersands.
You've got pluses throughout. Change them all to ampersands.
<Table bgcolor=#ffff77 ">
Unbalanced quote. Will mess things up.
<Table bgcolor="#ffff7 7">

<TR><TD align=center>
<form action="godlove s3.asp" name="form" method="post">
You can just use GET for the method (passes via the URL). Save yourself the
hassle of having to check incoming params of both get and post.

the occurrence of <%=FilNam3%> and 4%> should, most of the time, just
result in a null string, but when the user puts in "JOHN WILLIAM" for
example, it should attempt to load both "JOHN" and "JOHNWILLIA M" .

There will be no space in the actual URL. It will be displayed as %20. I
believe vbscript changes it back to a space for you when you grab the param,
but I am not certain. You'll need to test this.

Good luck with the meeting.

--
--
~kaeli~
He's your God, they're your rules - you burn in Hell.
http://www.ipwebdesign.net/wildAtHeart
http://www.ipwebdesign.net/kaelisSpace

[John]

> VBScript/VB does not support/overload the plus operator (+) for
string

concatenation. It's an ampersand. (&)

Actually, it appears to support it, because I'm using + on the working
"godloves2. asp" page.

<%@ LANGUAGE="VBSCR IPT" %>

<% Dim First, FilNam, FilNam2, i, j
First = trim(Request.fo rm("first"))
if First<"A" or First>"zza" then First="John"
First = ucase(left(Firs t,1))+mid(First ,2)
FilNam = left(First,1)+"/"+First+".g if"
FilNam2 = left$(First,ins tr(First+" "," ")-1)
for i=Len(FilNam)-4 to 3 step -1
j=asc(ucase(mid (FilNam,i,1)))
if j<>45 then if j<65 or j>90 then
FilNam=left(Fil Nam,i-1)+mid(FilNam,i +1)
next
if ucase(First)="C ON" then FilNam="C/Con-.gif"
%>

the above comes from www.GodLovesEveryone.org/godloves2.asp

I'm briefly perusing the rest of your comments before leaving for my
meeting. I won't be testing page "3" until later this afternoon or
evening.

John

[kaeli]

In article <11************ *********@l41g2 000cwc.googlegr oups.com>,
Go************* *****@gmail.com enlightened us with...

VBScript/VB does not support/overload the plus operator (+) for

string

concatenation. It's an ampersand. (&)

Actually, it appears to support it, because I'm using + on the working
"godloves2. asp" page.

It won't give an error.
Use the ampersand. Trust me. :)

It was old syntax before they even added support for constants. That was
1996.
"Arithmetic Operators
The arithmetic operators are used with numeric variables and literals and
expressions. (Since VBS at the moment has no constants, they are not an issue
here.) The plus sign (+) can also be used as a string concatenation operator,
but this usage is obsolete and should be used sparingly."

Remember, just because you CAN do something doesn't mean you SHOULD. *heh*
Especially when you're using a non-strongly-typed language. Things tend to
get converted to another data type when you're not looking.

Normal VB is typed, but I'm pretty sure VBS isn't. I think everything is a
Variant in VBS. That can lead to issues.
Are you using ASP classic or ASP.NET? 'Cuz I think they changed a lot between
the two.

--
--
~kaeli~
You feel stuck with your debt if you can't budge it.
http://www.ipwebdesign.net/wildAtHeart
http://www.ipwebdesign.net/kaelisSpace