Solved

Trying to get an ASP hidden form field variable to work

Posted on 2009-07-05
12
247 Views
Last Modified: 2012-05-07
Can anyone please tell me what I need to set the value of the hidden field CPUName to get it to have it show the CompName variable?? Thanks. Jon

<%
   Dim DNS
   Dim IP
   Dim CompName

   Set DNS = Server.CreateObject("ASPDNS.DNSLookup")
   IP = (Request.ServerVariables("REMOTE_ADDR"))
   CompName = DNS.GetNameFromIP(IP)
   Response.Write "At Computer Name: " & CompName
   <input name="CPUName" type="hidden" value="'(CompName)'" />
%>
0
Comment
Question by:Jon DeVito
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 5
12 Comments
 
LVL 31

Accepted Solution

by:
Wayne Barron earned 500 total points
ID: 24782398
Give this a shot.
I do not have that component so I cannot fully test it.

Good Luck
Carrzkiss
<%
   Dim DNS
   Dim IP
   Dim CompName
 
   Set DNS = CreateObject("ASPDNS.DNSLookup")
   IP = (Request.ServerVariables("REMOTE_ADDR"))
   CompName = DNS.GetNameFromIP(IP)
   Response.Write "At Computer Name: " & CompName
   Response.Write "<input name=""CPUName"" type=""hidden"" value="""&(CompName)&""" />"
%>

Open in new window

0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782408
Thanks, I get this error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/TimeClock_PunchIn.asp, line 150

<input name="CPUName" type="hidden" value="'& (CompName) &'"/>
^
0
 
LVL 31

Expert Comment

by:Wayne Barron
ID: 24782552
See if you get the error with this?

Run the code and click the button
<form method="post">
<input type="hidden" name="Hello" value="Carrzkiss" />
<input type="submit" />
</form>
<%
   Dim DNS
   Dim IP
   Dim CompName
 
  ' Set DNS = CreateObject("ASPDNS.DNSLookup")
  ' IP = (Request.ServerVariables("REMOTE_ADDR"))
   'CompName = DNS.GetNameFromIP(IP)
   CompName = request.form("Hello")
   Response.Write "At Computer Name: " & CompName
   Response.Write "<input name=""CPUName"" type=""hidden"" value="""&(CompName)&""" />"
%>

Open in new window

0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782606
Yes that works when I submit it.
0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782621
Sorry, i'm wrong...
It only outputs:

At Computer Name: Carrzkiss
0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782629
I think I'm totally confused here, lol.
0
 
LVL 31

Expert Comment

by:Wayne Barron
ID: 24782646
If that works.
Then yours should work as well.
I downloaded the components but have not installed them.
I can do this and it runs fine. so yours should run as well.

That is about all that I can do without fully testing the component with your script.
I will have to do that later on this evening of tomorrow.
Right now I am behind on a site that suppose to be released in the morning.

Have a good one.
Carrzkiss
<%
   Dim DNS
   Dim IP
   Dim CompName
 
  ' Set DNS = CreateObject("ASPDNS.DNSLookup")
  ' IP = (Request.ServerVariables("REMOTE_ADDR"))
   'CompName = DNS.GetNameFromIP(IP)
   CompName = Request.ServerVariables("REMOTE_ADDR")
   Response.Write "At Computer Name: " & CompName
   Response.Write "<input name=""CPUName"" type=""hidden"" value="""&(CompName)&""" />"
%>

Open in new window

0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782675
You are totally right...I must have misspelled something the first time. Thank you so much!! Good luck with the launch tomorrow!!

Jon
0
 
LVL 31

Expert Comment

by:Wayne Barron
ID: 24782734
You are welcome.
And thank you for the Good Luck.

I am hiring my Mother to Promote the Site via Phone Calls to different companies.
And right now I am writting up the information for here to give to the companies about
The site.

It has been a 6 month old project that I am happy to say is 99.99%
have .01% left to complete and if it is not done by this evening, then I am going to have to
Remove that part of it, until it is fixed, as the site has got to go live by tomorrow.

Have a good one.
Carrzkiss
0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782780
Moms are always great for that kind of stuff =)
Awesome to hear you're almost done. Good luck with everything, I hope you can finish it up tonight. Thanks so much for the help! I really appreciate it!

Gave a great night.
Jon
0
 
LVL 3

Author Comment

by:Jon DeVito
ID: 24782781
I meant Have a great night, lol. It's late =)
0
 
LVL 31

Expert Comment

by:Wayne Barron
ID: 24782893
To bad you cannot "Gave" me a great night, that would be awesome.
Getting tired, but have to atleast finish up a few more things, then i will call it a night.
And start on it about 6:00am, to get it out the door (so to speak) by 10:00am.

(Yep Mom's are awesome. I told me Mom that it was my turn to take care of her, tired of see her working long hours and not making nothing to show for it. I am 38, it is time for me to take care of Her now)

Have a good one.
Carrzkiss
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…

737 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question