CodeCharge Studio
search Register Login  

Visual Web Reporting

Visually create Web Reports in PHP, ASP, .NET, Java, Perl and ColdFusion.
CodeCharge.com

YesSoftware Forums -> CodeCharge Studio -> ASP

 Microsoft VBScript runtime (0x800A000D) HELP ME

Print topic Send  topic

Author Message
Runtime Errorarif
Posted: 06/21/2005, 3:20 AM

Hi
Pls help me iam new to ASP
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/misreports/classes/SalesTaxSelection.asp, line 1128


<%If session("levelid") = 1 then ----LINE 1128
renderGroupedDataElement Me, fldSalesTaxDivisionCode, "COMBOBOX", "Division", "BOUND_TABLE", "Code", "Name", "",True
Else

wiseguy

Posts: 6
Posted: 06/21/2005, 3:32 AM

What is renderGroupedDataElement?
View profile  Send private message
RUNTIMEERROR
Posted: 06/21/2005, 3:58 AM

it is a function
i cannot post the whole code it exceeds maximum characters
<%Sub renderGroupedDataElementFromQuery(oView, objField, strTargetElement, strSource, strValueColumnName, strDisplayColumnName, strParentField, fFiresOnChangeEvent)
' oView as View
' objField as CField
' strTargetElement as String '["RADIOGROUP" | "LISTBOX" | "COMBOBOX"]
' strSource as String 'BOUND_QUERY: string representing query
' strValueColumnName as String
' strDisplayColumnName as String
' strParentField as String ' specifies which field is this field's parent, so an appropriate filter can be generated
' fFiresOnChangeEvent as Boolean ' specifies that a call-back to the server is required if the selected item changes
Dim rs ' as ADODB.RecordSet
Dim strHTM ' as String

Set rs = executeAccessorSQL(oView, strSource)
strHTM = ""

If (rs Is Nothing) Then
' TODO - implement error handling
Exit Sub
End If

If Not(rs.EOF And rs.BOF) Then
renderGroupedDataElementFromRecordset oView, objField, strTargetElement, rs, strValueColumnName, strDisplayColumnName, strParentField, fFiresOnChangeEvent
Else
%>
<font size="1" color="red"><b>No Account Code for selected series</b></font>
<%
End If


' cache the recordset for the duration of this session
If (Not(rs is Nothing)) Then
Set rs.ActiveConnection = Nothing
End If
Set objField.GroupedDataValues = rs

Set rs = Nothing
End Sub

ATTN:WISEGUY
Posted: 06/21/2005, 4:05 AM

can u give ur mail id
i will send u the code
wiseguy

Posts: 6
Posted: 06/21/2005, 5:25 AM

badnaam@hotmail.com
View profile  Send private message

Add new topic Subscribe to topic   


These are Community Forums for users to exchange information.
If you would like to obtain technical product help please visit http://support.yessoftware.com.

Internet Database

Visually create Web enabled database applications in minutes.
CodeCharge.com

Home   |    Search   |    Members   |    Register   |    Login


Powered by UltraApps Forum created with CodeCharge Studio
Copyright © 2003-2004 by UltraApps.com  and YesSoftware, Inc.