ASP Source Code
ASP File: vbscript/ado/animals/regordisp.asp
ASP Script
Comments
HTML and Text
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</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 & ";"
'Session("AnimalsStrcnn") = "DSN=accanimals;UID=;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>