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("ASPDN S.DNSLooku p")
IP = (Request.ServerVariables(" REMOTE_ADD R"))
CompName = DNS.GetNameFromIP(IP)
Response.Write "At Computer Name: " & CompName
<input name="CPUName" type="hidden" value="'(CompName)'" />
%>
<%
Dim DNS
Dim IP
Dim CompName
Set DNS = Server.CreateObject("ASPDN
IP = (Request.ServerVariables("
CompName = DNS.GetNameFromIP(IP)
Response.Write "At Computer Name: " & CompName
<input name="CPUName" type="hidden" value="'(CompName)'" />
%>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
See if you get the error with this?
Run the code and click the button
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)&""" />"
%>
ASKER
Yes that works when I submit it.
ASKER
Sorry, i'm wrong...
It only outputs:
At Computer Name: Carrzkiss
It only outputs:
At Computer Name: Carrzkiss
ASKER
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
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)&""" />"
%>
ASKER
You are totally right...I must have misspelled something the first time. Thank you so much!! Good luck with the launch tomorrow!!
Jon
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
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
ASKER
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
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
ASKER
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
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
ASKER
Microsoft VBScript compilation error '800a0400'
Expected statement
/TimeClock_PunchIn.asp, line 150
<input name="CPUName" type="hidden" value="'& (CompName) &'"/>
^