Hi below is my code
Im new to javascript.
The script i did was to ensure the textfield(text1) should be empty on Submit.
An alert will be prompt
That is all right, the PROBLEM is the page is still directed to the next page.
I need help to adjust my script whatsoever, to ensure when the textfield is empty an alert pops up and page is not directed to the next asp.
Thanks alot.
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>SLID - Select License</title>
<script language="javascript">
function verify() {
var themessage = "You are required to complete the following fields: ";
if (document.form1.text1.value=="") {
themessage = themessage + " - Software Name";
}
//alert if fields are empty and cancel form submit
if (themessage == "You are required to complete the following fields: ") {
document.form.submit();
}
else {
alert(themessage);
return false;
}
}
</script>
</head>
<body>
<DIV align=center>
<form name="form1" method="post" action="">
<P>
Software: <INPUT name=text1 >
<input type="submit" name="Submit" value=http://www.webdeveloper.com/forum/archive/index.php/"Find">
<%
on error goto 0
If Request.Form("Submit") = "Find" Then
description = Request.Form("text1")
set rs=Server.CreateObject("ADODB.Recordset")
sql= "select description from standard_sw where description like'" & description & "%'" &_
" union " &_
" select name from legacy_sw where name like '" & description & "%'"
rs.Open sql,connStrSias
'Response.Write "<br>"
'Response.write "SQL = "&sql
'Response.Write "<br>"
'Response.Write Request.form
response.write "<select id='option1' size='1' name='option1' onchange='this.form.text1.value=this.options[this.selectedIndex].value'>"
if rs.EOF = false then
while not rs.EOF
response.write("<option value='http://www.webdeveloper.com/forum/archive/index.php/")
response.write(rs.fields("description"))
response.write("'")
if rs.fields("description")= description then
response.write("selected")
end if
response.write(">")
response.write(rs.fields("description"))
response.write("</option>")
rs.MoveNext
wend
else
Response.Write("<option value=''>No Match found</option>")
response.write "</select>"
Response.Write("<p>")
Response.Write "<font color=""brown"">Enter new software and click Next..."
End If
response.write "</select>"
End if
%>
</DIV>
</form>
<DIV align=center>
<form name="form2" method="post" action="license_add.asp">
<INPUT type=submit value=http://www.webdeveloper.com/forum/archive/index.php/Next name=btnSubmit onclick="verify();">
</form><!--#include file="main_foot.asp"--></DIV>
</body>
</html>
Thanks in advance.
Im new to javascript.
The script i did was to ensure the textfield(text1) should be empty on Submit.
An alert will be prompt
That is all right, the PROBLEM is the page is still directed to the next page.
I need help to adjust my script whatsoever, to ensure when the textfield is empty an alert pops up and page is not directed to the next asp.
Thanks alot.
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>SLID - Select License</title>
<script language="javascript">
function verify() {
var themessage = "You are required to complete the following fields: ";
if (document.form1.text1.value=="") {
themessage = themessage + " - Software Name";
}
//alert if fields are empty and cancel form submit
if (themessage == "You are required to complete the following fields: ") {
document.form.submit();
}
else {
alert(themessage);
return false;
}
}
</script>
</head>
<body>
<DIV align=center>
<form name="form1" method="post" action="">
<P>
Software: <INPUT name=text1 >
<input type="submit" name="Submit" value=http://www.webdeveloper.com/forum/archive/index.php/"Find">
<%
on error goto 0
If Request.Form("Submit") = "Find" Then
description = Request.Form("text1")
set rs=Server.CreateObject("ADODB.Recordset")
sql= "select description from standard_sw where description like'" & description & "%'" &_
" union " &_
" select name from legacy_sw where name like '" & description & "%'"
rs.Open sql,connStrSias
'Response.Write "<br>"
'Response.write "SQL = "&sql
'Response.Write "<br>"
'Response.Write Request.form
response.write "<select id='option1' size='1' name='option1' onchange='this.form.text1.value=this.options[this.selectedIndex].value'>"
if rs.EOF = false then
while not rs.EOF
response.write("<option value='http://www.webdeveloper.com/forum/archive/index.php/")
response.write(rs.fields("description"))
response.write("'")
if rs.fields("description")= description then
response.write("selected")
end if
response.write(">")
response.write(rs.fields("description"))
response.write("</option>")
rs.MoveNext
wend
else
Response.Write("<option value=''>No Match found</option>")
response.write "</select>"
Response.Write("<p>")
Response.Write "<font color=""brown"">Enter new software and click Next..."
End If
response.write "</select>"
End if
%>
</DIV>
</form>
<DIV align=center>
<form name="form2" method="post" action="license_add.asp">
<INPUT type=submit value=http://www.webdeveloper.com/forum/archive/index.php/Next name=btnSubmit onclick="verify();">
</form><!--#include file="main_foot.asp"--></DIV>
</body>
</html>
Thanks in advance.