| | |
| |
Active Server Pages help tutorial how to ASP Help ASP Tutorials ASP Programming ASP Code - ASP Free CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Access 97 and ASP |
|
From: |
Simon |
|
Date: |
2/4/1999 6:38:12 AM |
|
IP: |
194.6.81.178 |
Steve,
This page displays No data found - hope you can use it with your code.
Simon.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>List of Vessels Query Results</title>
</head>
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF">
<%
..Set variable myconn as the connection..
Set myconn = Server.CreateObject("ADODB.Connection")
..Open the List of Vessels database..
myconn.Open "List of Vessels"
..Set variable q as the SQL statement..
q = "select [Vessel_Name], [Owner], [Port],iif(iif(isnull(Class_1),0,[Class_1]) = 0,-,format([Class_1],#,###,###)) as Class1, iif(iif(isnull(Class_2),0,[Class_2]) = 0,-,format([Class_2],#,###,###)) as Class2 "
q = q & "from " &Request("rbg_vessel_database")& " where [Vessel_Name] like " & Request("vessel_name") & "% order by [Vessel_Name]"
..Set variable rs as the result of the executed SQL statement..
set rs = myconn.Execute (q)
howmanyrecs = 0
%>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="bottom"><font face="Arial" color="#000080"><big><strong>List of Vessels</strong>
- Results</big></font></td>
<td valign="bottom" align="right"><font face="Arial" color="#0000FF"><small>[<a
href="Vessel_Query_asp.htm" target="_self">New Query</a>]</small></font></td>
</tr>
<tr>
<td valign="top"><hr color="#000080" align="left">
</td>
<td valign="top"><hr color="#000080" align="left">
</td>
</tr>
</table>
</div>
<p><font face="Arial" size="2">Club Database: <strong> </font><em><big><big><big><big><font
face="Arial" size="3"><%=Request("rbg_vessel_database")%></font></big></big></big></big></em></strong></p>
<div align="center"><div align="center"><div align="center"><center>
<table border="0" cellpadding="2" cellspacing="1" width="100%" bgcolor="#C0C0C0">
<tr>
<th align="left" valign="bottom" bgcolor="#000080" bordercolor="#E2E2E2"><font
color="#FFFFFF" size="2" face="Arial"><strong>Vessel Name</strong></font></th>
<th align="left" valign="bottom" bgcolor="#000080" bordercolor="#E2E2E2"><font
color="#FFFFFF" size="2" face="Arial"><strong>Owner</strong></font></th>
<th align="left" valign="bottom" bgcolor="#000080" bordercolor="#E2E2E2"><font
color="#FFFFFF" size="2" face="Arial"><strong>Port of Registry</strong></font></th>
<th align="right" valign="bottom" bgcolor="#000080" bordercolor="#E2E2E2" width="45"><font
color="#FFFFFF" size="2" face="Arial"><strong>Class 1<br>
Tonnage</strong></font></th>
<th align="right" valign="bottom" bgcolor="#000080" bordercolor="#E2E2E2" width="45"><font
color="#FFFFFF" size="2" face="Arial"><strong>Class 2<br>
Tonnage</strong></font></th>
</tr>
<%while not rs.eof%>
<tr>
<td valign="top" bgcolor="#FEFFEE" bordercolor="#E2E2E2"><font color="#000000" size="2"
face="Arial"><strong><%=rs("Vessel_Name")%></strong></font></td>
<td valign="top" bgcolor="#FEFFEE" bordercolor="#E2E2E2"><font face="Arial" size="2"><%=rs("Owner")%></font></td>
<td valign="top" bgcolor="#FEFFEE" bordercolor="#E2E2E2"><font color="#000000" size="2"
face="Arial"><%=rs("Port")%></font></td>
<td align="right" valign="top" bgcolor="#FEFFEE" bordercolor="#E2E2E2" width="45"><font
face="Arial" size="2"><%=rs("Class1")%></font></td>
<td align="right" valign="top" bgcolor="#FEFFEE" bordercolor="#E2E2E2" width="45"><font
face="Arial" size="2"><%=rs("Class2")%></font></td>
</tr>
<%rs.movenext
howmanyrecs = howmanyrecs + 1
wend%>
</table>
</center></div><%if howmanyrecs = 0 Then%>
<p align="center"><font face="Arial" size="3"><strong>No Data Selected</strong></font></p>
<%end if%>
</div><%rs.close
myconn.close%>
</div>
<p align="center"> </p>
</body>
</html> |
Previous Message
|
|
|
|
|
|
