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 DeVitoAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Wayne BarronConnect With a Mentor Author, 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
 
Jon DeVitoAuthor 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
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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

At Computer Name: Carrzkiss
0
 
Jon DeVitoAuthor 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 DeVitoAuthor 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 DeVitoAuthor 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 DeVitoAuthor 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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.