Trying to get an ASP hidden form field variable to work

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)'" />
%>
LVL 3
Jon DeVitoCTO / CIOAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Wayne BarronAuthor, Web DeveloperCommented:
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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Jon DeVitoCTO / CIOAuthor Commented:
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
Wayne BarronAuthor, Web DeveloperCommented:
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
Become a Microsoft Certified Solutions Expert

This course teaches how to install and configure Windows Server 2012 R2.  It is the first step on your path to becoming a Microsoft Certified Solutions Expert (MCSE).

Jon DeVitoCTO / CIOAuthor Commented:
Yes that works when I submit it.
0
Jon DeVitoCTO / CIOAuthor Commented:
Sorry, i'm wrong...
It only outputs:

At Computer Name: Carrzkiss
0
Jon DeVitoCTO / CIOAuthor Commented:
I think I'm totally confused here, lol.
0
Wayne BarronAuthor, Web DeveloperCommented:
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
Jon DeVitoCTO / CIOAuthor Commented:
You are totally right...I must have misspelled something the first time. Thank you so much!! Good luck with the launch tomorrow!!

Jon
0
Wayne BarronAuthor, Web DeveloperCommented:
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
Jon DeVitoCTO / CIOAuthor Commented:
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
Jon DeVitoCTO / CIOAuthor Commented:
I meant Have a great night, lol. It's late =)
0
Wayne BarronAuthor, Web DeveloperCommented:
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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP

From novice to tech pro — start learning today.