Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP 3 Classic ASP Active Server Pages 3.0 > Classic ASP Professional
Password Reminder
Register
| FAQ | Members List | Search | Today's Posts | Mark Forums Read
Classic ASP Professional For advanced coder questions in ASP 3. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Professional section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #11 (permalink)  
Old November 9th, 2009, 08:03 PM
Friend of Wrox
Points: 6,664, Level: 34
Points: 6,664, Level: 34 Points: 6,664, Level: 34 Points: 6,664, Level: 34
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2004
Location: Sydney, NSW, Australia.
Posts: 1,870
Thanks: 12
Thanked 20 Times in 20 Posts
Send a message via AIM to mat41
Default

David - Glad I could help.

Yes this is a very good forum, it has been very helpful to me over the years. I do what i can to help others.....

For others who may have this issue what soved it? was it the removal of the =
__________________
Wind is your friend
Matt
Reply With Quote
  #12 (permalink)  
Old November 9th, 2009, 08:42 PM
Authorized User
 
Join Date: Oct 2009
Posts: 10
Thanks: 6
Thanked 1 Time in 1 Post
Default

Hi again, this is what solved it.

.CreateMHTMLBody("http://www.???.co.uk/email.asp?OrderID=" & OrderID & "&CustomerID=" & CustomerID & "")

This code without the = and the double speech marks at the end. No one else has suggested that and it finally made it work.

David
Reply With Quote
The Following User Says Thank You to futurehype For This Useful Post:
xyz (May 5th, 2011)
  #13 (permalink)  
Old May 4th, 2011, 02:35 AM
xyz xyz is offline
Registered User
 
Join Date: May 2011
Posts: 2
Thanks: 2
Thanked 0 Times in 0 Posts
Default 800A000D error code in vbscript

Hi,

I have just typed the following code in a notepad and saved it as google.vbs

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.google.co.in/
Browser("Title:=Google.*").Page("Title:=Google.*") .WebTable("name:=q.*").WebEdit("name:=q.*").Set "Environment"
Browser("Title:=Google").Page("Title:=Google").Web Table("name:=q").WebButton("name:=Google Search").Click

When I run this script file, the google page opens perfectly, but it throws a runtime type mismatch error in Line 4 Char 1(Type Mismatch: Browser).

Pls help me to resolve this.
Reply With Quote
  #14 (permalink)  
Old May 5th, 2011, 05:03 AM
Authorized User
Points: 448, Level: 7
Points: 448, Level: 7 Points: 448, Level: 7 Points: 448, Level: 7
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2011
Posts: 86
Thanks: 1
Thanked 12 Times in 12 Posts
Default

Hi xyz,

could you please start a fresh topic for this question rather than piggy-back on this rather old classic asp thread? Thanks.

Further, concerning your error I can already tell you that the error indicates your Browser object does not exist yet. Are you using QuickTest Professional ?
Reply With Quote
The Following User Says Thank You to disel2010 For This Useful Post:
xyz (May 5th, 2011)
  #15 (permalink)  
Old May 5th, 2011, 05:54 AM
xyz xyz is offline
Registered User
 
Join Date: May 2011
Posts: 2
Thanks: 2
Thanked 0 Times in 0 Posts
Default

Hi disel2010,

Im not using QTP. Im trying this just by creating a vbs file
Reply With Quote
  #16 (permalink)  
Old May 23rd, 2011, 04:09 AM
Registered User
 
Join Date: May 2011
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default Microsoft VBScript runtime error '800a000d'

Hi Dear All,

I need help. I has the following errors:

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "600 interim"]' [PHPNET][CODE]

/intranet/member/TimeSheet-All/view_timesheet_client_P&L_summary2.asp, line 113

my source code as below:
Code:
<html>
<head>
<title>Paul Wan & Company - Member</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../include/paulwan.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftMargin="0" topMargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="standardword">
  <tr>
    <td bgcolor="#12085e" width="8%"><b><font color="#FFFFFF">&nbsp;Job No</font></b></td>
	<td bgcolor="#12085e" width="35%"><b><font color="#FFFFFF">Client Name</font></b></td>
	<td bgcolor="#12085e" width="12%"><b><font color="#FFFFFF">Period</font></b></td>
	<td bgcolor="#12085e" width="15%"><b><font color="#FFFFFF">Manager In-Charge</font></b></td>
	<td bgcolor="#12085e" width="10%"><b><font color="#FFFFFF">Audit Fees</font></b></td>
	<td bgcolor="#12085e" width="10%"><b><font color="#FFFFFF">Time Cost</font></b></td>
	<td bgcolor="#12085e" width="10%"><b><font color="#FFFFFF">P/L</font></b></td>
  </tr>
<%	
  	StaffName = Request.Cookies("StaffNames")
	StaffID = Request.Cookies("StaffIDs")
										
	Dim pwcoConnection
    Dim strSQL1, strSQL2, strSQL3
	Dim pwcoRecordset
	JobNo = Request("JobID")
	
	Set pwcoConnection = Server.CreateObject("ADODB.Connection")
    pwcoConnection.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; Data Source=F:\Intranet\database\TimeSheet-Audit.mdb;"
    pwcoConnection.Open
	
	Set pwcoConnection1 = Server.CreateObject("ADODB.Connection")
    pwcoConnection1.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; Data Source=F:\Intranet\database\AuditJob.mdb;"
    pwcoConnection1.Open
	


	strSQL1 = "SELECT company_name, job_No FROM JobPlan WHERE job_No LIKE '9%' GROUP BY company_name, job_No"
	Set pwcoRecordset1 = pwcoConnection1.Execute(strSQL1)
	
	While Not pwcoRecordset1.EOF
	JobNo = pwcoRecordset1("job_No")
		strSQL2 = "SELECT company_ID, company_name, job_period, job_No FROM JobPlan WHERE (action_code = '0' OR action_code = '1') AND job_No = '"+JobNo+"'"
		Set pwcoRecordset2 = pwcoConnection1.Execute(strSQL2)
							
		IF Not pwcoRecordset2.EOF THEN
			ClientID = pwcoRecordset2("company_ID")
			ClientName = pwcoRecordset2("company_name")
			JobPeriod5 = pwcoRecordset2("job_period")			
			
			strSQL3 = "SELECT * FROM jobschedule WHERE job_No = '"+ JobNo +"'"
			Set pwcoRecordset3 = pwcoConnection.Execute(strSQL3)
			
			strSQL4 = "SELECT * FROM JobFees WHERE job_No = '"+ JobNo +"'"
			Set pwcoRecordset4 = pwcoConnection1.Execute(strSQL4)
			
			strSQL7 = "SELECT * FROM JobInCharge WHERE company_ID = '"+ ClientID +"'"
			Set pwcoRecordset7 = pwcoConnection1.Execute(strSQL7)
			IF pwcoRecordset7.EOF THEN
				ManagerName = "N.A"
			ELSE
				ManagerName = pwcoRecordset7("manager_name")
			END IF
			
			Dim AuditFees, TaxFees, AcctFees, SecFees, SpecialFees
			IF pwcoRecordset4.EOF THEN
	    		AuditFees = 0
			ELSE
				AuditFees = pwcoRecordset4("audit_fees")								
			END IF			
			
			Dim OverallHourCharges
			TotalJobHourschr = 0
			TotalJobHoursNonchr = 0
			TotalHourCharges = 0
			OverallHourCharge = 0
			
			WHILE NOT pwcoRecordset3.EOF
				TimeSheetNo = pwcoRecordset3("timesheet_No")
				JobHoursChr = pwcoRecordset3("job_hours_chr")
				JobHoursNonchr = pwcoRecordset3("job_hours_nonchr")
				IF JobHoursChr = "" THEN
					JobHoursChr = 0
				END IF
				IF JobHoursNonchr = "" THEN
					JobHoursNonchr = 0
				END IF				
				TotalJobHourschr = TotalJobHourschr + JobHoursChr
				TotalJobHoursNonchr = TotalJobHoursNonchr + JobHoursNonchr								
					
				strSQL5 = "SELECT * FROM timetable WHERE timesheet_No = '"+TimeSheetNo+"'"
				Set pwcoRecordset5 = pwcoConnection.Execute(strSQL5)
				T_StaffName = pwcoRecordset5("staff_name")
				Department = pwcoRecordset5("department")
				T_Position = pwcoRecordset5("t_position")
					
				strSQL6 = "SELECT * FROM timecost WHERE t_position  = '"+T_Position+"'"
				Set pwcoRecordset6 = pwcoConnection.Execute(strSQL6)
				IF NOT pwcoRecordset6.EOF THEN
					HourCharges = pwcoRecordset6("hour_charges")
				ELSE
					HourCharges = 0
				END IF
				TotalHourCharges = JobHoursChr * HourCharges
				OverallHourCharge = OverallHourCharge + TotalHourCharges
				pwcoRecordset3.Movenext
			WEND
			pwcoRecordset2.MoveNext

			ProfitLoss = 0		
			IF AuditFees = "" THEN
				ProfitLoss = 0 - OverallHourCharge
			ELSE
				ProfitLoss = AuditFees - OverallHourCharge
			END IF
			Response.Write("<tr>")
			Response.Write("<td>")
			Response.Write("&nbsp;")
			Response.Write(JobNo)
			Response.Write("</td>")		
			Response.Write("<td>")
			Response.Write(ClientName)
			Response.Write("</td>")		
			Response.Write("<td>")
			Response.Write(JobPeriod5)
			Response.Write("</td>")
			Response.Write("<td>")
			Response.Write(ManagerName)
			Response.Write("</td>")
			Response.Write("<td>")			
			Response.Write(AuditFees)
			Response.Write("</td>")
			Response.Write("<td>")			
			Response.Write(OverallHourCharge)
			Response.Write("</td>")
			Response.Write("<td>")			
			Response.Write(ProfitLoss)
			Response.Write("</td>")
			Response.Write("</tr>")
		END IF
		pwcoRecordset1.MoveNext
	WEND
	pwcoConnection.Close
    Set pwcoConnection = Nothing
	pwcoConnection1.Close
    Set pwcoConnection1 = Nothing
%>
</table>
</body>
</html>
actually, the whole thing can run. but the output is only half, then the error message will appear on top of the page. in other words, I would expect more result.
Thanks in advance.
Reply With Quote
  #17 (permalink)  
Old May 23rd, 2011, 04:58 AM
Authorized User
Points: 448, Level: 7
Points: 448, Level: 7 Points: 448, Level: 7 Points: 448, Level: 7
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2011
Posts: 86
Thanks: 1
Thanked 12 Times in 12 Posts
Default

Hi,

it looks like there is some invalid data in your database.

If I'm not mistaken line 113 is this line:
Code:
 ProfitLoss = AuditFees - OverallHourCharge
The error indicates a type mismatch, probably you are trying arithmetics with a string here... (Type mismatch: '[string: "600 interim"])

My guess is that in your field JobFees.adut_fees you somewhere have this string (See also line 68: AuditFees = pwcoRecordset4("audit_fees"))

I hope this helps.
Reply With Quote
  #18 (permalink)  
Old May 23rd, 2011, 05:25 AM
Registered User
 
Join Date: May 2011
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default Dear Diseal 2010

What should I do?
Pls advise?
Sorry, i am near to this asp stuff.
Reply With Quote
  #19 (permalink)  
Old May 23rd, 2011, 05:41 AM
Authorized User
Points: 448, Level: 7
Points: 448, Level: 7 Points: 448, Level: 7 Points: 448, Level: 7
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2011
Posts: 86
Thanks: 1
Thanked 12 Times in 12 Posts
Default

Hi,

you can either try to keep your data correct or add error handling.
(Preferably both off course).

To check for your data correctness (and if my guess is correct):
Can you open your database AuditJob.mdb directly and look at JobFees.adult_fees column? If I'm correct in one of the records this field holds the value "600 interim" (where it should probably be "600".
(In an ideal world your JobFees.Adult_Fees should be of data_type Number, but I'm afraid it is only a text value.)


To add some data type check in your asp code, you could add a check on IsNumeric. For instance like this:
Code:
 
If AuditFees = "" then
	ProfitLoss = 0 - OverallHourCharge
ElseIf IsNumeric(AuditFees)   THEN
	ProfitLoss = AuditFees - OverallHourCharge
Else
	ProfitLoss = 0 - OverallHourCharge
	' your choice for extra error handling here.. just log it, send out a mail, spool a notification to the screen...
End If
Reply With Quote
  #20 (permalink)  
Old May 23rd, 2011, 06:25 AM
Registered User
 
Join Date: May 2011
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default

got it!!!!!!!!!!
find the '600 interim"
it generate more output and a new error message come out:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'JobHoursChr'

/intranet/member/TimeSheet-All/view_timesheet_client_P&L_summary2.asp, line 87

below is my line 87:

TotalJobHourschr = TotalJobHourschr + JobHoursChr

Disel2010, thank you for your help. your help has make me see light again.
Once again, Thank you very much.
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Microsoft VBScript runtime error '800a01a8' Abbas Classic ASP Professional 1 July 21st, 2006 11:42 AM
VBScript runtime error '800a000d' on DLL hit crmpicco Pro VB 6 1 February 16th, 2006 01:47 PM
Microsoft VBScript runtime error '800a000d' mwlyoung Classic ASP Databases 3 April 15th, 2004 04:54 AM
Microsoft VBScript runtime error '800a01a8' dlgee Classic ASP Basics 4 January 25th, 2004 05:18 PM



All times are GMT -4. The time now is 05:08 PM.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.