I have a form that was previously created, it adds a record to an Access DB using ADODB. (See connection script below). I add the upload behavior (v. 2.13) to the page. And now I am getting the following error:

Error Type:
Microsoft JScript compilation (0x800A03EC)
Expected ';'
/webcd/lewisandclark/upload/placeadd.asp, line 33, column 7

Any thoughts on how to intergrate this would be greatly appreciated!


-----Connection script -----
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open "DSN=Inventory"

Set objCmd = Server.CreateObject("ADODB.Command"

set objCmd.ActiveConnection=objConn
objCmd.CommandText = strInsert & " " & strValues & ""
objCmd.CommandType = adCmdText
objCmd.Execute

What is the code around that line 33 where the error is given?

--------------------------------------------------
Patrick Woldberg
Web Developer at Dynamic Zones
Manager at DMXzone.com
--------------------------------------------------

I've trace the orginal error to having <%@LANGAUGE JAVASCRIPT%> being added to the page I added pureASP to. I removed that line and my scripts runs until I try and and submit the form to the server. I keep getting references that frmADD is not an object. When debugging in VS 6.0 I am getting the following error...

An expection of type 'Microsoft VBScript runtime error: Type mismatch: 'PureUploadSetup was no handled.

Here is the code chunk from my page.
<!--#include file="../../ScriptLibrary/incPureUpload.asp" -->
<script language="javascript" src="../../ScriptLibrary/incPureUpload.js"></script>
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
// *** Pure ASP File Upload 2.1.3
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload") <> "" Then
Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
pau_thePath = """uploadedFiles/mapimages"""
pau_Extensions = "GIF,JPG,JPEG,BMP,PNG"
pau_Form = "frmAdd"

Type MisMatch


<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
I have a form that was previously created, it adds a record to an Access DB using ADODB. (See connection script below). I add the upload behavior (v. 2.13) to the page. And now I am getting the following error:

Error Type:
Microsoft JScript compilation (0x800A03EC)
Expected ';'
/webcd/lewisandclark/upload/placeadd.asp, line 33, column 7

Any thoughts on how to intergrate this would be greatly appreciated!


-----Connection script -----
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open "DSN=Inventory"

Set objCmd = Server.CreateObject("ADODB.Command"

set objCmd.ActiveConnection=objConn
objCmd.CommandText = strInsert & " " & strValues & ""
objCmd.CommandType = adCmdText
objCmd.Execute




<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote><b></b>

I just got done cleaning up a version of the page without pureasp added to it. I had to add &lt;%option explicit %&gt; back to the page in order to get things working... Are there compatibility issues with using &lt;%option explicit %&gt;?

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
I have a form that was previously created, it adds a record to an Access DB using ADODB. (See connection script below). I add the upload behavior (v. 2.13) to the page. And now I am getting the following error:

Error Type:
Microsoft JScript compilation (0x800A03EC)
Expected ';'
/webcd/lewisandclark/upload/placeadd.asp, line 33, column 7

Any thoughts on how to intergrate this would be greatly appreciated!


-----Connection script -----
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open "DSN=Inventory"

Set objCmd = Server.CreateObject("ADODB.Command"

set objCmd.ActiveConnection=objConn
objCmd.CommandText = strInsert & " " & strValues & ""
objCmd.CommandType = adCmdText
objCmd.Execute




<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>