covert java script to vb script

irisclaire · #1 (**permalink**) 01-09-06, 21:04

Hello everyone I am having trouble converting this codes.I want to convert this codes to vbscript: to validate if the user enter text on each field.

<script Language="JavaScript">
function FrontPage_Form1_Validator(theForm)
{
if (theForm.company_name.value == "")
{
alert("Please enter a value for the \"Company_name\" field.");
theForm.company_name.focus();
return (false);
}
if (theForm.company_add.value == "")
{
alert("Please enter a value for the \"company_add\" field.");
theForm.company_add.focus();
return (false);
}
if (theForm.con_per.value == "")
{
alert("Please enter a value for the \"Con_per\" field.");
theForm.con_per.focus();
return (false);
}
if (theForm.con_no.value == "")
{
alert("Please enter a value for the \"con_no\" field.");
theForm.con_no.focus();
return (false);
}
return (true);
}

Any help much appreciated

Thanks

Bullschmidt · #2 (**permalink**) 01-09-06, 23:23

With server-side validation you'll have to have a system to get back to the same or different page with messages.

And here are some interesting server-side validation links:

Server-Side Form Validation by Dianna Leech - 12/1/1999
http://www.4guysfromrolla.com/webtech/120199-1.shtml

An Email Validation Routine by João Vieira - 4/11/1999
http://www.4guysfromrolla.com/webtech/041199-1.shtml
Somewhat shorter.

An Email Validation Script by Ben Durbin - 5/19/1999
http://www.4guysfromrolla.com/webtech/051999-1.shtml
Longer.

irisclaire · #3 (**permalink**) 01-10-06, 10:52

thanks... really helps...

kropes2001 · #4 (**permalink**) 01-16-06, 04:55

he didnt say anything about server side validation.... and i would not suggest using it either. it adds extra processes, overhead, delay and bandwitdth usage...

Iris
while you may want to convert all of that to VB Script (which i love VB Script)
vb Script only works in Internet Explorer. it does not work with Firefox and i dont think it wirks with netscape or opera browsers either.

so only the peiople using IE would be able to use your site.

i just spent 2 weekends and about 60 hours converting an entire website from VBScript to JavaScript all because the site would not work with any other browser.

if you need help understanding how the Javascript works, i can help you. its almost identical to VBScript as far as logic is concerned.

irisclaire · #5 (**permalink**) 01-17-06, 07:13

... hello!!
i want to covert it in vbscript inpite the fact that it only works in IE, i want still to covert it 'coz it is one of the requirement i need to meet but don't know how to code/do it in VBSCRIPT.
can you help me??

kropes2001 · #6 (**permalink**) 01-29-06, 02:15

here you go.
includes some minor structural chages. i like it this way better.. it tells you all at once what is wrong with the form, instead of a pop up for each blank field seperately.
then if there is no problems, it submits the form

Code:

<html>
<body>
<form name="CompanyData" action="testForm.htm" method="post">

Company Name <input type="text" name="company_name"> <br>
Company Address <input type="text" name="company_add"> <br>
Contact Person <input type="text" name="con_per"> <br>
Contact Number <input type="text" name="con_no"> <br>
<br>
<input type="button" value="Submit" onClick="FrontPage_Form1_Validator('CompanyData')">

</form>
</body>
</html>

<script Language="VBScript">

sub FrontPage_Form1_Validator(theForm)

	Set theForm = Document.forms(theForm)

	strMessage=""

	if theForm.company_name.value = "" then
		strMessage ="Company Name" & vbCr
		theForm.company_name.focus()
	end if

	if theForm.company_add.value = "" then 
		strMessage = strMessage & "Company Address" & vbCr
		theForm.company_add.focus()
	end if

	if theForm.con_per.value = "" then
		strMessage = strMessage & "Contact Person" & vbCr
		theForm.con_per.focus()
	end if

	if theForm.con_no.value = "" then 
		strMessage = strMessage & "Contact Number" & vbCr
		theForm.con_no.focus()
	end if

	' ---------------------------------------------------

	if len(strMessage)>0 then
		' if a strMessage exists then there was a problem, display it.
		strMessage = "Please Enter Values for the Following Fields :" & vbCr & vbCr & strMessage 
		alert strMessage 
	else
		' If the strMessage is empty, there was no problems, submit the form
		theForm.submit()
	end if

end sub

</script>

Internet Services

Web Development

Digital Marketing

Consumer Tech