Unnamed

<%@ Language="VBScript" %>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 



<html xmlns="http://www.w3.org/1999/xhtml"> 
<head>
<title>task1</title>
</head>
<body>

<%
dim c1, length1, myString1, flag1, badchar1

flag1 = false
badchar1 = ""
myString1 = request.form("customername")
myString1 = trim(myString1)
length1 = len(myString1)

if (length1 < 1) then
  response.write("Invalid entry, Nothing entered.")
  flag1 = true
else
  for i = 1 to length1
    c1 = Lcase(Mid(myString1, i, 1))
    if instr("qwertyuiopasdfghjklzxcvbnm ", c1) = 0 then
      badchar1 = badchar1 & c1
      flag1 = true
    end if
  next
  if (flag1) then
     response.write("Invalid entry. Alphabetic character only.")
  end if
end if

if (not flag1) then
 
  response.write("Customer Name is valid.")
end if
%> 
<p></p>





<%
dim c, length, myString, flag, badchar

flag = false
badchar = ""
myString = request.form("customerid")
myString = trim(myString)
length = len(myString)

if (length <> 6) then
  response.write("Invalid entry. Customer ID must be 6 numbers.")
  flag = true
else
  for i = 1 to length
    c = Lcase(Mid(myString, i, 1))
    if instr("1234567890", c) = 0 then
      badchar = badchar & c
      flag = true
    end if
  next
  if (flag) then
     response.write("Invalid entry. Numeric character only.")
  end if
end if

if (not flag) then
 
  response.write("customer ID is valid.")
end if
%> 





<script>//code adapted from http://www.webdeveloper.com/forum/archive/index.php/t-29352.html</script>
<p></p>
<%
Dim splChecks
Dim intChecks, i


splChecks = Split(request.form("hobbies"), ",")
intChecks = UBound(splChecks)

with response
.write ("Total: " & intChecks + 1)

for i = 0 to intChecks
.write ("<br />" & splChecks(i))
next
end with
%>


<p></p>

<%Dim checking
checking = intChecks+1
if (checking < 1) then
response.write("The number of checked boxes is invalid. Ensure that there is at least one box marked.")
end if
if (checking > 3) then
response.write("The number of checked boxes is invalid. Ensure that there is no more than three box marked.")
else
response.write("Number of checked boxes is valid.<br/>")


end if
%>
<p></p>

<% dim check7

check7 = request.form("hobbies")
check8 = request.form("other")
if (check7 = "other")then
  if (check8 = "") then
    response.write("No value entered")
else 
    response.write("Data is valid")
end if
else 
  if (check8 = "") then
     response.write("Data is valid")
  else 
     response.write("No value entered")
end if
end if

%>


<p></p>


<a href="task1.htm">Return to form</a>
</body>
</html>