View Source Code

SourceFileName = "samples/testdb.asp"

C:\inetpub\wwwroot\aspsample\samples\testdb.asp

<html>

<head>
<title>Jet Database Engine TEST</title>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
</head>

<body>

<table BGCOLOR="#CCCCFF" CELLPADDING="3" CELLSPACING="0" BORDER="1">
  <tr>
    <td BGCOLOR="#DDDDDD">NO</td>
    <td BGCOLOR="#DDDDFF">HandleName</td>
    <td BGCOLOR="#DDDDFF">Code</td>
    <td BGCOLOR="#DDDDFF">Year</td>
    <td BGCOLOR="#DDDDFF">Car</td>
    <td BGCOLOR="#DDDDFF">Address</td>
    <td BGCOLOR="#DDDDFF">email</td>
    <td BGCOLOR="#DDDDFF">Comment</td>
  </tr>
<%
List
%>
<%
Function List
Set objConn = Server.CreateObject("ADODB.Connection") 
Set objRecord = Server.CreateObject("ADODB.Recordset") 
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\InetPub\wwwroot\userid\_exc\test.mdb" 
sql = "select * from OwnerList order by [no] asc" 
objRecord.Open sql, objConn, adOpenForwardOnly, , adCmdText 
buf = ""
Do While Not objRecord.EOF
  buf = buf & "<TR>"
  buf = buf & "<TD BGCOLOR=#DDDDDD align=right>" & objRecord("no") & "</TD>"
  buf = buf & "<TD BGCOLOR=#DDDDFF>" & objRecord("handlename") & "</TD>"
  buf = buf & "<TD BGCOLOR=#DDDDFF>" & objRecord("code") & "</TD>"
  If objRecord("modelyear_koukai") = True Then
    buf = buf & "<TD BGCOLOR=#DDDDFF>" & objRecord("modelyear") & "</TD>"
  Else
    buf = buf & "<TD BGCOLOR=#DDDDFF> - </TD>"
  End if
  buf = buf & "<TD BGCOLOR=#DDDDFF>" & objRecord("alpinacar") & "</TD>"
  buf = buf & "<TD BGCOLOR=#DDDDFF>" & objRecord("ken")
  If objRecord("sikucyoson_koukai") = True Then
    buf = buf & objRecord("sikucyoson") & "</TD>"
  Else
    buf = buf & "</TD>"
  End if
  buf = buf & "<TD BGCOLOR=#DDDDFF>"
  If objRecord("email_koukai")=True Then
    buf = buf & "<a HREF='mailto:" & objRecord("email") & "'>mail</a></TD>"
  Else
    buf = buf & " - </TD>"
  End if
  buf = buf & "<TD BGCOLOR=#DDDDFF>"
  'buf = buf & "<TD BGCOLOR=#DDDDFF> - </TD>"
  If objRecord("comment_koukai")=True Then
    buf = buf & "<a href='comment.asp?CODE=" & objRecord("no") & "' target='_blank'>Comment</a></TD>"
  Else
    buf = buf & " - </TD>"
  End if

  buf = buf & "</TR>" & vbNewLine
  objRecord.MoveNext
Loop

Response.Write buf
objConn.Close 
Application.Unlock 
Set objRecord = Nothing 
Set objConn = Nothing 
End Function
%>
</table>
</body>
</html>