473,602 Members | 2,751 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Frustrating problem with connection string


The error code is:

Microsoft JScript compilation error '800a03ec'

Expected ';'

/bicc.nl/Connections/BICCwebsite.asp , line 2

Set Conn = Server.CreateOb ject("ADODB.Con nection")
----^

The connectionstrin g I'm using:

%
Set Conn = Server.CreateOb ject("ADODB.Con nection")
DSNtest="DRIVER ={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=" & Server.MapPath( "../../cgi-bin/bicc.mdb")
Conn.Open DSNtest
%

In combination with (a part of) the following codepage:

%@LANGUAGE="JAV ASCRIPT" CODEPAGE="1252" %
!--#include file="Connectio ns/BICCwebsite.asp " --
%
var Recordset1 = Server.CreateOb ject("ADODB.Rec ordset")
Recordset1.Acti veConnection = DSNtest
Recordset1.Sour ce = "SELECT * FROM Nieuws ORDER BY Datum DESC"
Recordset1.Curs orType = 2
Recordset1.Curs orLocation = 2
Recordset1.Lock Type = 1
Recordset1.Open ()
var Recordset1_numR ows = 0
%
%
var Repeat1__numRow s = 4;
var Repeat1__index = 0;
Recordset1_numR ows += Repeat1__numRow s;
%
% var MM_paramName = ""; %
%
// *** Go To Record and Move To Record: create strings for maintainin
URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&"
MM_paramName.to LowerCase() + "=";
var MM_keepURL="",M M_keepForm="",M M_keepBoth="",M M_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Requ est.QueryString ); !items.atEnd()
items.moveNext( )) {
var nextItem = "&" + items.item().to LowerCase() + "=";
if (MM_removeList. indexOf(nextIte m) == -1) {
MM_keepURL += "&" + items.item() + "="
Server.URLencod e(Request.Query String(items.it em()));
}
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Requ est.Form); !items.atEnd()
items.moveNext( )) {
var nextItem = "&" + items.item().to LowerCase() + "=";
if (MM_removeList. indexOf(nextIte m) == -1) {
MM_keepForm += "&" + items.item() + "="
Server.URLencod e(Request.Form( items.item()));
}
}

// create the Form + URL string and remove the intial '&' from each o
the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.le ngth 0) MM_keepBoth = MM_keepBoth.sub string(1);
if (MM_keepURL.len gth 0) MM_keepURL = MM_keepURL.subs tring(1);
if (MM_keepForm.le ngth 0) MM_keepForm = MM_keepForm.sub string(1);
%
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
SCRIPT RUNAT=SERVER LANGUAGE=VBSCRI PT
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID -1) Then
Session.LCID = nLCID
End If

If ((nLCID 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime( str, nNamedFormat)
End If

If (nLCID -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
/SCRIPT
html
head
title/title
meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"
meta http-equiv="title" content="Aromas ys"
meta http-equiv="Content-Language" content="NL"
meta name="Author" content=""
meta name="Distribut ion" content="GLOBAL "
meta name="Revisit-After" content="14 days"
meta name="keywords" content="."
script language="JavaS cript" type="text/JavaScript"
!--
!--
function MM_preloadImage s() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.leng th,a=MM_preload Images.argument s; for(i=0
ia.length; i++)
if (a[i].indexOf("#")!= 0){ d.MM_p[j]=new Image
d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document
if((p=n.indexOf ("?"))0&&parent .frames.length) {
d=parent.frames[n.substring(p+1 )].document; n=n.substring(0 ,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&id.for ms.length;i++
x=d.forms[i][n];
for(i=0;!x&&d.l ayers&&id.layer s.length;i++
x=MM_findObj(n, d.layers[i].document);
if(!x && d.getElementByI d) x=d.getElementB yId(n); return x;
}

function MM_nbGroup(even t, grpName) { //v6.0
var i,img,nbArr,arg s=MM_nbGroup.ar guments;
if (event == "init" && args.length 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr =
document[grpName] = new Array();
nbArr[nbArr.length] = img;
for (i=4; i args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbO ver = nbArr = new Array();
for (i=1; i args.length-1; i+=3) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i document.MM_nbO ver.length; i++) {
img = document.MM_nbO ver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i nbArr.length; i++) { img=nbArr[i]; img.src =
img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//--
/script
link href="tekst.css " rel="stylesheet " type="text/css"
/head
I think I'm mixing up VBscript with Javascript but where?
Thanks in advance! A beginner...
--
sjanie
Jul 21 '05 #1
2 2018
The page's language is set to JavaScript, but that "set" snippet is
VBScript. In view of this, don't you think the problem is actually pretty
clear?

;-)
--
Jason Brown
Microsoft GTSC, IIS

This posting is provided "AS IS" with no warranties, and confers no
rights.

"sjanie" <sj***********@ news.webfrustra tion.com> wrote in message
news:sj******** ***@news.webfru stration.com...

The error code is:

Microsoft JScript compilation error '800a03ec'

Expected ';'

/bicc.nl/Connections/BICCwebsite.asp , line 2

Set Conn = Server.CreateOb ject("ADODB.Con nection")
----^

The connectionstrin g I'm using:

%
Set Conn = Server.CreateOb ject("ADODB.Con nection")
DSNtest="DRIVER ={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=" & Server.MapPath( "../../cgi-bin/bicc.mdb")
Conn.Open DSNtest
%

In combination with (a part of) the following codepage:

%@LANGUAGE="JAV ASCRIPT" CODEPAGE="1252" %
!--#include file="Connectio ns/BICCwebsite.asp " --
%
var Recordset1 = Server.CreateOb ject("ADODB.Rec ordset")
Recordset1.Acti veConnection = DSNtest
Recordset1.Sour ce = "SELECT * FROM Nieuws ORDER BY Datum DESC"
Recordset1.Curs orType = 2
Recordset1.Curs orLocation = 2
Recordset1.Lock Type = 1
Recordset1.Open ()
var Recordset1_numR ows = 0
%
%
var Repeat1__numRow s = 4;
var Repeat1__index = 0;
Recordset1_numR ows += Repeat1__numRow s;
%
% var MM_paramName = ""; %
%
// *** Go To Record and Move To Record: create strings for maintaining
URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" +
MM_paramName.to LowerCase() + "=";
var MM_keepURL="",M M_keepForm="",M M_keepBoth="",M M_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Requ est.QueryString ); !items.atEnd();
items.moveNext( )) {
var nextItem = "&" + items.item().to LowerCase() + "=";
if (MM_removeList. indexOf(nextIte m) == -1) {
MM_keepURL += "&" + items.item() + "=" +
Server.URLencod e(Request.Query String(items.it em()));
}
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Requ est.Form); !items.atEnd();
items.moveNext( )) {
var nextItem = "&" + items.item().to LowerCase() + "=";
if (MM_removeList. indexOf(nextIte m) == -1) {
MM_keepForm += "&" + items.item() + "=" +
Server.URLencod e(Request.Form( items.item()));
}
}

// create the Form + URL string and remove the intial '&' from each of
the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.le ngth 0) MM_keepBoth = MM_keepBoth.sub string(1);
if (MM_keepURL.len gth 0) MM_keepURL = MM_keepURL.subs tring(1);
if (MM_keepForm.le ngth 0) MM_keepForm = MM_keepForm.sub string(1);
%
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
SCRIPT RUNAT=SERVER LANGUAGE=VBSCRI PT
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID -1) Then
Session.LCID = nLCID
End If

If ((nLCID 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime( str, nNamedFormat)
End If

If (nLCID -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
/SCRIPT
html
head
title/title
meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"
meta http-equiv="title" content="Aromas ys"
meta http-equiv="Content-Language" content="NL"
meta name="Author" content=""
meta name="Distribut ion" content="GLOBAL "
meta name="Revisit-After" content="14 days"
meta name="keywords" content="."
script language="JavaS cript" type="text/JavaScript"
!--
!--
function MM_preloadImage s() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.leng th,a=MM_preload Images.argument s; for(i=0;
ia.length; i++)
if (a[i].indexOf("#")!= 0){ d.MM_p[j]=new Image;
d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document;
if((p=n.indexOf ("?"))0&&parent .frames.length) {
d=parent.frames[n.substring(p+1 )].document; n=n.substring(0 ,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&id.for ms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.l ayers&&id.layer s.length;i++)
x=MM_findObj(n, d.layers[i].document);
if(!x && d.getElementByI d) x=d.getElementB yId(n); return x;
}

function MM_nbGroup(even t, grpName) { //v6.0
var i,img,nbArr,arg s=MM_nbGroup.ar guments;
if (event == "init" && args.length 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr =
document[grpName] = new Array();
nbArr[nbArr.length] = img;
for (i=4; i args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbO ver = nbArr = new Array();
for (i=1; i args.length-1; i+=3) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])?
args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i document.MM_nbO ver.length; i++) {
img = document.MM_nbO ver[i]; img.src = (img.MM_dn) ? img.MM_dn :
img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i nbArr.length; i++) { img=nbArr[i]; img.src =
img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i args.length-1; i+=2) if ((img = MM_findObj(args[i]))
!= null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//--
/script
link href="tekst.css " rel="stylesheet " type="text/css"
/head
I think I'm mixing up VBscript with Javascript but where?
Thanks in advance! A beginner...
--
sjanie

Jul 21 '05 #2
On Tue, 19 Oct 2004 13:26:57 +0100, sjanie
<sj***********@ news.webfrustra tion.com> wrote:

This is VBScript format:
Set Conn = Server.CreateOb ject("ADODB.Con nection")
This tells the page you don't use vbscript:
%@LANGUAGE="JA VASCRIPT" CODEPAGE="1252" %


JavaScript would generate the error you posted since the syntax is
incorrect. Set the language to VBScript if that's what you intend to
use, either in IIS as the default or specified in your code.

Jeff
Jul 21 '05 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

3
490
by: sjanie | last post by:
The error code is: Microsoft JScript compilation error '800a03ec' Expected ';' /bicc.nl/Connections/BICCwebsite.asp, line 2 Set Conn = Server.CreateObject("ADODB.Connection") ----^
0
1607
by: Rob Levine | last post by:
(This post also available at http://roblevine.blogspot.com/2004/11/frustrating-http-connection-behaviour.html in a slightly more readable format!) Hi All, I seem to be having a bit of a frustrating time with http connections in ..Net at the moment. Basically I am working on a project in which many subsystems use http to communicate with eachother. Once in a while, my .Net client will fail with a "System.Net.WebException: The underlying...
4
1154
by: Child | last post by:
I am feeling frustrated and I am willing to bet its something stupid but I could really use some help. I have a class called anEvent. On my web form I have a button which creates a new anEvent and loads the form data into the new event. It then sends that event to a class function to try and update the data in the database. When I hit the button, it appears that nothing happens, no error message, just a return to the previous state of...
3
1261
by: Loui Mercieca | last post by:
Hi, I have a very strange and frustrating error. I developed an application, tested it and it works fine. Then i deploy it to another machine ( no installation, direct file transfer ) but it doesn't work. I have errors like parsing the querystring differently etc.Even on firefox there are mismatches in logic. I have been trying for long to fix it, but unsuccessfully. Its very frustrating because i can see it work on my machine. Thanks
4
4142
by: Rahul Anand | last post by:
Getting SQL Exception when trying to implement Connection based Trasaction using SQL Helper class. I am using the follwing function to execute my stored procs: -=-=-=- ExecuteScalar(ByVal transaction As SqlTransaction, _ ByVal spName As String, _ ByVal ParamArray parameterValues() As Object)
2
1143
by: Terry Olsen | last post by:
Creating a test app to perfect some code before putting it in a production app. Test app works perfectly, doesn't work at all in the production app. Can't figure out why...
9
8312
by: craig.overton | last post by:
All, I am currently developing an FTP class in VB.NET. It's kid tested, mother approved when trying to access an FTP Server on a Windows box meaning I can connect, run commands, upload and download a file no problem. My issues come when I try to use the same class with the same commands to access an FTP server on a UNIX box. I can connect and login just fine, but after that all my commands come back "500 'PWD': command not understood."....
10
6094
by: jimmy | last post by:
Hi again, sorry for posting two questions so close together but im working on a school project which is due in soon and running into some difficulties implementing the database parts. I have the code below which when executed generates the following error message: 'There is already an open datareader with this command which must be closed first' Private Sub MainMenu_Load(ByVal sender As System.Object, ByVal e As
3
4882
by: fniles | last post by:
In the Windows application (using VB.NET 2005) I use connection pooling like the following: In the main form load I open a connection using a connection string that I stored in a global variable g_sConnectionString and leave this connection open and not close it until it exits the application. Then on each thread/each subsequent sub that needs the connection I create a local OleDBConnection variable, open the connection using the exact...
5
2026
oll3i
by: oll3i | last post by:
my librarybean package library.ejb; import java.sql.*; import javax.ejb.*; import library.common.*; @Stateless @Remote
0
7993
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
7920
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
8401
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
8404
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
8054
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
8268
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
6730
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
5440
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
1254
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.