Active Server Pages (ASP) - Database Access

Declare for Data Access

<!-- METADATA TYPE="TypeLib"
    UUID="{00000200-0000-0010-8000-00AA006D2EA4}"
    VERSION="2.0"
-->

This file needs to put [\InetPub\wwwroot] directory

ODBC Setting

Click [32bit ODBC] inside Control Panel

Click [System DSN] tab and Click [Add] Button

Select ODBC Driver(ex [Microsoft Access Driver(*.mdb)]) and Click [Finish] Button

Type DSN(Data Source Name) (ex [Access]) and Click [Select] Button

Select MDB file(Access) and Click [OK] Buttons

Message Board

Make mdb file(Access)

Example
	Field Name	Data Type
1	name	Text(50)
2	email	Text(50)
3	url	Text(50)
4	comment	Text(200)
5	date	Text(30)

Put this mdb file to local folder of HTTP server.(ex C:\InetPub\database).
Don't put under wwwroot. Otherwise user can open mdb file directly.
And, Make ODBC Setting(System DSN)

database1.html

<HTML>
<HEAD>
<TITLE>DATABASE</TITLE>
</HEAD>
<BODY>

<h1>DATABASE</h1>
<h2>Database Connect</h2>

<a href="database11.asp">Message List</a><p>

<a href="database12.asp">Leave Message</a>

</BODY>
</HTML>

database11.asp

<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>DATABASE SELECT</TITLE>
</HEAD>
<BODY>

<h1>Message List</h1>

<% 
        Set objConn = Server.CreateObject("ADODB.Connection")
        Set objRecord = Server.CreateObject("ADODB.Recordset") 

        ' Connection Open
        objConn.Open "Access"	' DSN Name
        ' Recordset Open
        objRecord.Open "SELECT * FROM message", _
            objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
%>

<TABLE BORDER=1>
<TR>
	<TH>Name</TH>
	<TH>E-Mail</TH>
	<TH>URL</TH>
	<TH>Comment</TH>
	<TH>Date</TH>
</TR>
<% Do Until (objRecord.EOF Or line > 20) %>
<TR>
	<TD><%= objRecord("name") %><BR></TD>
	<TD><%= objRecord("email") %><BR></TD>
	<TD><%= objRecord("url") %><BR></TD>
	<TD><%= objRecord("comment") %><BR></TD>
	<TD><%= objRecord("date") %><BR></TD>
</TR>
<%
        objRecord.MoveNext
        line = line + 1
   loop
   objRecord.Close
   objConn.Close
%>

</TABLE>

<hr>
<a href="database1.html">Back</a>

</BODY>
</HTML>

database12.asp

<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>DATABASE INSERT</TITLE>
</HEAD>
<BODY>

<% If request("REQUEST_METHOD") <> "POST" then %>

    <h1>Leave message</h1>
    <FORM ACTION="database12.asp" METHOD="post">
    <TABLE>
    
    <TR><TH>Name:   <TD><INPUT NAME="MessageName" SIZE=50>
    <TR><TH>E-mail: <TD><INPUT NAME="MessageEmail" SIZE=50>
    <TR><TH>URL:    <TD><INPUT NAME="MessageURL" SIZE=50 VALUE="http://">
    <TR><TH>Comment:<TD><TEXTAREA ROWS=3 COLS=50 NAME="MessageComment"></TEXTAREA>
    </TABLE>
    <INPUT TYPE="submit" VALUE="SUBMIT">
    <INPUT TYPE="reset" VALUE="RESET">
    </FORM>

<% Else
    ' Data Entry
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set objRecord = Server.CreateObject("ADODB.Recordset") 

    ' Connection Open
    objConn.Open "Access"    ' DSN Name
    ' Recordset Open
    objRecord.Open "SELECT * FROM message", _
        objConn, adOpenDynamic, adLockOptimistic, adCmdText
    
    ' Insert Start
    objRecord.AddNew
    objRecord("name") = request("MessageName")
    objRecord("email") = request("MessageEmail")
    objRecord("url") = request("MessageURL")
    objRecord("comment") = request("MessageComment")
    objRecord("date") = Now
    objRecord.Update %>

    <h1>Thank You</h1>

<% End If %>

<hr>
<a href="database1.html">Back</a>

</BODY>
</HTML>