VBScript Sample: vbscript/ado/animals/regordisp.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<%@ Language=VBScript %>
<HTML>
<HEAD></HEAD>
<%session("first") = true
if Request.Form("drvtxt") <> "" then
   drv = Request.Form("drvtxt")
   url = Request.Form("urltxt")
   uid = Request.Form("uidtxt")
   pwd = Request.Form("pwdtxt")
   Session("AnimalsDrv") = drv
   Session("AnimalsStrcnn") = "Driver=" & drv & ";URL=" & url & ";UID=" & uid & ";PWD=" & pwd & ";"
end if
%>

<BODY background="bkground.gif">
<br>
<br>
<br>
<br>
<center>
<h1><font face="Verdana, arial, helvetica" color="#0000ff"><em><strong><u>The animals Database</u></strong></em></font></h1>
<p>
<form method=post action ="register.asp" name=form1>
<input name="register" type="submit" value="Register">
</form>
<form action ="main.html" name=form2>
<input name="display" type="submit" value=" Display">
</form>
</p>
</center>
<p align="right"><img src="tiger.gif" WIDTH="100" HEIGHT="100">
</p>
</BODY>
</HTML>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.