Ooopps put the wrong bit of code in.
This is client-side NOT server-side (right)??
The ASP pages shows-up.
The Access database is there & field - NO error BUT the ListBox is
empty????
<% @Language=Javascript %>
<%
var strTemp = " ";
var intClient = 0;
var intTemp = 0;
var strProvider = " ";
var strQuery = " ";
var rstClient;
var rstEmpProj;
intTemp = Request("cmbClients");
if (intTemp >= 1) intClient=intTemp;
else intClient = -1;
%>
<html>
<head>
<title>Scapegoat Employee/Client Relationships</title></head>
<body>
<h1 align="center"><font color="#006699">Scapegoat Employee/Client
Relationships</font></h1>
<form name="frmClient" method="POST" action="mydefault.asp">
<p align="center">Please select a client from from the list:
<select size="1" name="cmbClients">
<%
strTemp = " ";
if (intClient == -1) {
strTemp="<option selected value='-1'>";
strTemp +="Select Client..</option>";
}
strProvider="DRIVER={Microsoft Access Driver (*.mdb)}; ";
strProvider += "DBQ=E:\\Website\\Test\\ASP\\test.mdb;";
strQuery="SELECT * FROM Clients ORDER BY LastName ASC";
rstClient=Server.CreateObject("ADODB.recordset");
rstClient.Open(strQuery, strProvider);
while (! rstClient.EOF) {
intTemp = 0;
intTemp += rstClient("ClientID");
if (intTemp==intClient) strTemp += "<option selected ";
else strTemp += "<option ";
strTemp +="value='"+intTemp+"'>"+rstClient("LastName")+" ,
"+rstClient("FirstName")+"</option>";
rstClient.MoveNext();
}
Response.Write(strTemp);
%>
</select><input type="submit" value="GO" name="cmdGo"></p>
</FORM>
<%
if (intClient > 0) {
strTemp="<p align='center'>Employees working for: <b>";
strQuery="SELECT * FROM Clients WHERE ClientID=" + intClient;
rstClient=Server.CreateObject("ADODB.recordset");
rstClient.Open (strQuery, strProvider);
if (! rstClient.EOF) strTemp += rstClient("ClientID");
else strTemp += "<i>Unknown Client</i>";
strTemp += "</b></p><p align='center'>";
strQuery="SELECT * FROM Clients WHERE ClientID=";
strQuery += intClient;
rstEmpProj=Server.CreateObject("ADODB.recordset");
rstEmpProj.Open(strQuery, strProvider);
while (! rstEmpProj.EOF) {
strTemp += rstEmpProj ("FirstName") + ", ";
strTemp += rstEmpProj ("LastName")+ "<BR>";
rstEmpProj.MoveNext();
}
strTemp += "</p>";
Response.Write(strTemp);
}
%>
</body>
</html>
