JAVAScript Code Example 1

<SCRIPT LANG="Javascript"><!--
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (((navigator.appName == "Netscape") && 
	(parseInt(navigator.appVersion) >= 3 )) || 
	((navigator.appName == "Microsoft Internet Explorer") && 
	(parseInt(navigator.appVersion) >= 4 ))) version = "ok";
else version = "x";
if (version == "ok")
{
   img6off = new Image();
   img6off.src = "./assets/images/baroff.jpg";
   img6on = new Image();
   img6on.src = "./assets/images/baron.jpg";
}
function imgover(imgName)
{   if (version == "ok") 
    {   document[imgName].src = eval(imgName + "on.src");  }  }
function imgoff(imgName)
{   if (version == "ok") 
    {   document[imgName].src = eval(imgName + "off.src");  }  }
// --></SCRIPT>

<A HREF="mailto:info@netstats2000.com" 
onmouseover="imgover('img6')" onmouseout="imgoff('img6')">
<IMG HEIGHT=33 WIDTH=569 SRC="./assets/images/baroff.jpg"  
BORDER=0  ALT="Click here to contact us"  name=img6></A>



JAVAScript Code Example 2

<SCRIPT language="JavaScript">
<!--
function IsPresent(PassedValue) 
{
	var ReturnTest = 0;
	var LocalPassedValue = PassedValue;
	if (LocalPassedValue) 
	{
	for (var i=0; i<LocalPassedValue.length; i++) 
		{
		if (LocalPassedValue.charAt(i) != " ") 
			{
			ReturnTest = 1;
			}
		}
	}
	if (!ReturnTest) 
		{
		return 0;
		}
		return 1;
		}
function CheckForm() 
{
	var TheMessage = "";
	if (!(IsPresent(document.sampleform.reqField.value))) 
		{
		TheMessage += "Please enter a value.\n";
		}
	if (TheMessage != "") 
		{
		alert(TheMessage);
		} 
	else 
		{
		document.location.href = "result.htm";
		}
} 
// -->
</SCRIPT>

<INPUT TYPE="button" NAME="submitButton" VALUE="Submit Request" 
onClick="CheckForm();">



Login Code Sample
<%@ Language=VBScript %>
<%
if not isempty(Request.Form("LogIn")) then
	set conn = server.createobject ("adodb.connection")
	conn.open "ASPBook", "sa", "yourpassword"
	set RSUser = conn.Execute("select UserName from C1Login " _
		& "where UserName = '" & Request.Form("UserName") _
		& "' and Password = '" & Request.Form("Password") _
		& "'")
	if RSUser.EOF then
		TheMessage = "You have entered an incorrect login. " _
			& "Please try again."
	else
		TheMessage = "You are now logged in!"
	end if
else
	TheMessage = "Please enter your user name and password below."
end if
%>



Quiz Class Code
Public Function GetQuestion(QuestionID)
Dim RSQuestion As ADODB.Recordset
Set RSQuestion = Conn.Execute("select Question from C1Questions " _
    & "where QuestionID = " & QuestionID)
If RSQuestion.EOF Then
    GetQuestion = "NA"
Else
    GetQuestion = RSQuestion("Question")
End If
End Function

Public Function GetAnswer(QuestionID)
Dim RSAnswers As ADODB.Recordset
Dim TempList As String
Set RSAnswers = Conn.Execute("select Answer from C1Answers " _
    & "where QuestionID = " & QuestionID)
Do Until RSAnswers.EOF
    TempList = TempList & "<OPTION VALUE=""" _
        & RSAnswers("answer") & """>" _
        & RSAnswers("Answer") & "</OPTION>"
    RSAnswers.MoveNext
Loop
GetAnswer = TempList
End Function

Public Function CheckAnswer(QuestionID, AnswerText)
Dim RSAnswer As ADODB.Recordset
Set RSAnswer = Conn.Execute("select Answer from C1Questions " _
    & "where QuestionID = " & QuestionID)
    If RSAnswer("Answer") = AnswerText Then
        CheckAnswer = 1
    Else
        CheckAnswer = 0
    End If
End Function

Private Sub Class_Initialize()
    Conn.Open "ASPBook", "sa", "yourpassword"
End Sub



Quiz ASP Code
<%@ Language=VBScript %>
<%
set objQuiz = server.CreateObject("SampleServer.Quiz")
if isempty(Request.Form("Calculate")) then
	CurrentQuestion = 1
	QuestionsTaken	= 0
	NumberCorrect = 0
else
	if objQuiz.CheckAnswer(Request.Form("CurrentQuestion"), _
		Request.Form("Answer")) = 1 then
		NumberCorrect = Request.Form("NumberCorrect") + 1
	else
		NumberCorrect = Request.Form("NumberCorrect")
	end if
	QuestionsTaken = Request.Form("QuestionsTaken") + 1
	CurrentQuestion = Request.Form("CurrentQuestion") + 1
end if
QuestionText = objQuiz.GetQuestion(CurrentQuestion)
if QuestionText = "NA" then
	TheMessage = "Quiz: Complete"
else
	TheMessage = "Quiz: In Progress"
	AnswerText = objQuiz.GetAnswer(CurrentQuestion)
end if
%>

<P><B><FONT FACE="Arial,Helvetica">
<% response.write QuestionText %></B></FONT>
<SELECT NAME="Answer" ><% response.write AnswerText %></SELECT>
<P><B><FONT FACE="Arial,Helvetica">
<% Response.Write TheMessage %><BR>Score: 
<% Response.Write NumberCorrect %> out of 
<% Response.Write QuestionsTaken %></B></FONT>