473,324 Members | 2,356 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,324 software developers and data experts.

LBound Who?

Coz
Hi All,
I have been 'trying' to put together a database update page in Dreamweaver
Ultradev but I'm having all sorts of problems. My first problem is when
using the built in server behaviours the code seems to get all split up with
the code lines all confused!! I 'think' I've managed to fix that but the
second problem....Grrrr... Is that I get this error when running the page -

Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'

Pointing to this line with the ** at it's start, from this code - (no the
*'s are not in my real code:-)

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "")
Then

MM_editConnection = MM_PropertyDatabaseConnection_STRING
MM_editTable = "PropertiesTable"
MM_editColumn = "PropertyRef"
MM_recordId = "'" + Request.Form("MM_recordId") + "'"
MM_editRedirectUrl = "/CPEditPropertyOK.asp"
MM_fieldsStr =
"textfield|value|textfield2|value|textfield3|value |textfield4|value|textfiel
d5|value|select|value|select2|value|textfield6|val ue|textfield7|value|textfi
eld8|value|select3|value|select4|value|select5|val ue|textfield9|value|textfi
eld10|value|select6|value|textfield11|value|textfi eld13|value|textfield14|va
lue|textfield15|value|textfield16|value|textfield1 7|value|textfield18|value"
MM_columnsStr =
"PropertyRef|',none,''|AddressLine1|',none,''|Addr essLine2|',none,''|Address
Line3|',none,''|AddressPostCode|',none,''|AddressL ocalArea|',none,''|Address
WideArea|',none,''|SoldDate|',none,''|ClosingDate| ',none,''|SoldDate|',none,
''|SaleLet|',none,''|Status|',none,''|PriceType|', none,''|Price|none,none,NU
LL|NoBedrooms|none,none,NULL|Garage|none,none,NULL |Description|',none,''|Ext
raInfo|',none,''|Pic1|',none,''|Pic2|',none,''|Pic 3|',none,''|Pic4|',none,''
|OnlineShedule|',none,''"
' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr,
"|")
MM_columns = Split(MM_columnsStr, "|") ' set the form values
**For i = LBound(MM_fields)To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next ' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And
Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If %>o

Any Ideas what's up? Or who/what is LBound and come to that
Ubound?.....Please.....

Cheers all
Coz.

Jul 19 '05 #1
3 4703
I'm guessing that MM_fields isn't valid.

--
----------------------------------------------------------
Curt Christianson (Software_AT_Darkfalz.Com)
Owner/Lead Designer, DF-Software
http://www.Darkfalz.com
---------------------------------------------------------
...Offering free scripts & code snippits for everyone...
---------------------------------------------------------

"Coz" <no********@please.com> wrote in message
news:Rq********************@news-text.cableinet.net...
Hi All,
I have been 'trying' to put together a database update page in Dreamweaver
Ultradev but I'm having all sorts of problems. My first problem is when
using the built in server behaviours the code seems to get all split up with the code lines all confused!! I 'think' I've managed to fix that but the
second problem....Grrrr... Is that I get this error when running the page -
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'

Pointing to this line with the ** at it's start, from this code - (no the
*'s are not in my real code:-)

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_PropertyDatabaseConnection_STRING
MM_editTable = "PropertiesTable"
MM_editColumn = "PropertyRef"
MM_recordId = "'" + Request.Form("MM_recordId") + "'"
MM_editRedirectUrl = "/CPEditPropertyOK.asp"
MM_fieldsStr =
"textfield|value|textfield2|value|textfield3|value |textfield4|value|textfiel d5|value|select|value|select2|value|textfield6|val ue|textfield7|value|textfi eld8|value|select3|value|select4|value|select5|val ue|textfield9|value|textfi eld10|value|select6|value|textfield11|value|textfi eld13|value|textfield14|va lue|textfield15|value|textfield16|value|textfield1 7|value|textfield18|value" MM_columnsStr =
"PropertyRef|',none,''|AddressLine1|',none,''|Addr essLine2|',none,''|Address Line3|',none,''|AddressPostCode|',none,''|AddressL ocalArea|',none,''|Address WideArea|',none,''|SoldDate|',none,''|ClosingDate| ',none,''|SoldDate|',none, ''|SaleLet|',none,''|Status|',none,''|PriceType|', none,''|Price|none,none,NU LL|NoBedrooms|none,none,NULL|Garage|none,none,NULL |Description|',none,''|Ext raInfo|',none,''|Pic1|',none,''|Pic2|',none,''|Pic 3|',none,''|Pic4|',none,'' |OnlineShedule|',none,''"
' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|") ' set the form values
**For i = LBound(MM_fields)To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next ' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And
Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If %>o

Any Ideas what's up? Or who/what is LBound and come to that
Ubound?.....Please.....

Cheers all
Coz.

Jul 19 '05 #2
Probably because you have commented the line that created MM_Fields array:

' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr,
"|")

See what happens when you uncomment the code

MM_fields = Split(MM_fieldsStr, "|")

--
Manohar Kamath
Editor, .netBooks
www.dotnetbooks.com
"Coz" <no********@please.com> wrote in message
news:Rq********************@news-text.cableinet.net...
Hi All,
I have been 'trying' to put together a database update page in Dreamweaver
Ultradev but I'm having all sorts of problems. My first problem is when
using the built in server behaviours the code seems to get all split up with the code lines all confused!! I 'think' I've managed to fix that but the
second problem....Grrrr... Is that I get this error when running the page -
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'

Pointing to this line with the ** at it's start, from this code - (no the
*'s are not in my real code:-)

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_PropertyDatabaseConnection_STRING
MM_editTable = "PropertiesTable"
MM_editColumn = "PropertyRef"
MM_recordId = "'" + Request.Form("MM_recordId") + "'"
MM_editRedirectUrl = "/CPEditPropertyOK.asp"
MM_fieldsStr =
"textfield|value|textfield2|value|textfield3|value |textfield4|value|textfiel d5|value|select|value|select2|value|textfield6|val ue|textfield7|value|textfi eld8|value|select3|value|select4|value|select5|val ue|textfield9|value|textfi eld10|value|select6|value|textfield11|value|textfi eld13|value|textfield14|va lue|textfield15|value|textfield16|value|textfield1 7|value|textfield18|value" MM_columnsStr =
"PropertyRef|',none,''|AddressLine1|',none,''|Addr essLine2|',none,''|Address Line3|',none,''|AddressPostCode|',none,''|AddressL ocalArea|',none,''|Address WideArea|',none,''|SoldDate|',none,''|ClosingDate| ',none,''|SoldDate|',none, ''|SaleLet|',none,''|Status|',none,''|PriceType|', none,''|Price|none,none,NU LL|NoBedrooms|none,none,NULL|Garage|none,none,NULL |Description|',none,''|Ext raInfo|',none,''|Pic1|',none,''|Pic2|',none,''|Pic 3|',none,''|Pic4|',none,'' |OnlineShedule|',none,''"
' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|") ' set the form values
**For i = LBound(MM_fields)To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next ' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And
Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If %>o

Any Ideas what's up? Or who/what is LBound and come to that
Ubound?.....Please.....

Cheers all
Coz.

Jul 19 '05 #3
Coz

"Manohar Kamath [MVP]" wrote
Probably because you have commented the line that created MM_Fields array:
' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|")

See what happens when you uncomment the code

MM_fields = Split(MM_fieldsStr, "|")


<SNIP

Cheers mate,
Problem solved, you were spot-on removed the comments and all works fine:-)

Thanks again
Coz.
Jul 19 '05 #4

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

Similar topics

11
by: deko | last post by:
I need to create a basic one-dimensional array of strings, but I don't know how many strings I'm going to have until the code is finished looping. pseudo code: Dim astrMyArray() Do While Not...
2
by: Starbuck | last post by:
Hi All In one of my converted (VB6 to VB.Net) apps I have managed to remove all instances of - Imports Microsoft.VisualBasic - except for one form which raises errors in regard to LBound and...
15
by: Papajo | last post by:
Hi, This script will write a random number into a document write tag, I've been trying to get it to write into a input form box outside the javascript, any help is appreciated. Thanks Joe ...
1
by: handokowidjaja | last post by:
Hi All, Several weeks ago i started a topic with the same subject, however the solutions provided was for using MS Outlook (fullblown version). I finally found something that works directly with...
11
by: MLH | last post by:
The following procedures found at http://ffdba.com/downloads/Send_Mail_With_Outlook_Express.htm are meant to work together in harmony to effect eMail sends via OE. The last procedure (FN SplitB)...
1
by: avdhoot | last post by:
Hi Everybody, I am doing some project in VB6 where I ahve to calculate the Determinant of the matrix. I have got a function MDETERM but not able to pass on the parameters of the matrix and get the...
9
chinfk
by: chinfk | last post by:
In my program, i had set that report to be output as an attachment in the email. But recently, one of the user find that it output by using Microsoft outlook rather than previous one which use...
2
by: aashishn86 | last post by:
hii...i am creating a chart using html and asp the code for it is : <%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Dim data1Array(3) data1Array(0) = 5
1
by: aashishn86 | last post by:
hii...i am creating a chart using html and asp the code for it is : <%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Dim data1Array(3) data1Array(0) = 5
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

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.