Link to home
Start Free TrialLog in
Avatar of Jon DeVito
Jon DeVito

asked on

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)'" />
%>
ASKER CERTIFIED SOLUTION
Avatar of Wayne Barron
Wayne Barron
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Jon DeVito
Jon DeVito

ASKER

Thanks, I get this error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/TimeClock_PunchIn.asp, line 150

<input name="CPUName" type="hidden" value="'& (CompName) &'"/>
^
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

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

At Computer Name: Carrzkiss
I think I'm totally confused here, lol.
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

You are totally right...I must have misspelled something the first time. Thank you so much!! Good luck with the launch tomorrow!!

Jon
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
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
I meant Have a great night, lol. It's late =)
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