HTTP 500 error - ASP + javascript

Clive · Mar 22, 2005

Hi,

This script runs at college on the test site.

I cannot get any SQL query to run at work, even though
the same script runs at college????

I always get a HTTP 500 internal server error.

Can anyone point out what I am doing wrong????

Thanks

Clive

++++++++++++++++++++++++

<html>
<body>

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(("E:\Website\Test\ASP\test.mdb"))

set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT ClientID, Address FROM Employees", conn
%>

<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>

</body>
</html>

Evertjan. · Mar 22, 2005

Clive wrote on 22 mrt 2005 in comp.lang.javascript:

I always get a HTTP 500 internal server error.

first switch off "show friendly errors" in your IE browser
and then tell us the real error numbers and texts.

Your code is ASP serverside VBscript [not javascript] DB,
so posting it in this javascript NG won't do.

Restate this question in the best NG for this Q:

microsoft.public.inetserver.asp.db

Clive Swan · Mar 23, 2005

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>

Help with SQL Queries in ASP	0	Apr 4, 2008
executing javascript and vbscript	4	May 9, 2006
ASP Access Recordset Paging	6	Aug 5, 2008
classi asp	0	Jul 25, 2008
What is the problem actually?	1	Mar 28, 2007
access database count	13	Jul 25, 2008
New to using ASP	0	Apr 19, 2004
Retreiving image from access DB and displaying in an ASP page	1	Sep 28, 2007

HTTP 500 error - ASP + javascript

Clive

Evertjan.

Clive Swan

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads