<%@ Language="VBScript" %>
task1
<%
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
%>
<%
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
%>
<%
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 ("
" & splChecks(i))
next
end with
%>
<%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.
")
end if
%>
<% 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
%>
Return to form