Re: Question about variables in Classic ASP VBScript - Visual Basic Discussion Boards

miss7868-Oct-12 0:08

8-Oct-12 0:08

Dear all,

The following script is not reading the xml data and translating it into the graph.

The output is currently showing a blank webpage, and I am not sure why is?

ASP

<BODY>

   <%   
   'In this example, we show how to connect FusionCharts to a database.
   'For the sake of ease, we've used an Access database which is present in
   '../DB/FactoryDB.mdb. It just contains two tables, which are linked to each
   'other. 

   'Database Objects - Initialization
   Dim oRs, oRs2, strQuery
   'strXML will be used to store the entire XML document generated
   Dim strXML

   'Create the recordset to retrieve data
    Set oRs = Server.CreateObject("ADODB.Recordset")

   'Generate the chart element
    'Generate the chart element
	strXML = "<graph caption='Deals Output report' subCaption='By Quantity' decimalPrecision='0' showNames='1'  numberSuffix=' Units'  pieSliceDepth='30' formatNumberScale='0'>"
	
 'Iterate through each factory
  strQuery = "select * from deal_price2"
  Set oRs = oConnection.Execute(strQuery)

  While Not oRs.Eof

  'Now create second recordset to get details for this factory
  Set oRs2 = Server.CreateObject("ADODB.Recordset")
  strQuery = "select sum(price) as TotOutput from deal_price where deal_id=" &  ors("deal_id")
  Set oRs2 = oConnection.Execute(strQuery) 
  'Generate <set name='..' value='..'/> 
  strXML = strXML & "<set name='" & ors("date") & "' value='" & ors2("TotOutput") & "' />"

	
 'Close recordset
  Set oRs2 = Nothing
  oRs.MoveNext
Wend

 'Finally, close <chart> element
  strXML = strXML & "</chart>"
Response.Buffer=true
response.write strXML
response.flush
'response.end 
  Set oRs = nothing

'Create the chart - Line Chart with data from strXML
 Call renderChart("MyWeb/includes/FCF_Line.swf", "", strXML, "FactorySum", 650, 450)
%>

Any help would be very much appreciated.

Thanks in advance for your help.

Re: Blank Asp webpage.

Cloud Cray8-Oct-12 7:49

Cloud Cray

8-Oct-12 7:49

Your first tag is <graph>, but you end with </chart>

Re: Blank Asp webpage.

miss7869-Oct-12 1:14

miss786

9-Oct-12 1:14

thank you for your response and I am still getting a blank page, however this is transparent image on the page.

The page shows no error on the page but webpage is output is blank with no graph.

Any help is really much appreciated.

Thank you for your time and help.

Re: Blank Asp webpage.

Dave Kreskowiak9-Oct-12 1:51

Dave Kreskowiak

9-Oct-12 1:51

Do a "View source" on the resulting page as see what you DO get.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Blank Asp webpage.

Dave Kreskowiak9-Oct-12 1:55

Dave Kreskowiak

9-Oct-12 1:55

Chances are really god that you're going to have to ask your question here[^] because you're trying to use a 3rd party library. The odds of someone here who has used this thing and wandering by your question are slim. If you've got questions about a library, you go to a forum dedicated to that library for the best chance of getting your questions answered.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Blank Asp webpage.

miss7869-Oct-12 3:54

miss786

9-Oct-12 3:54

Thank you for your response and help.

I very much appreciate your time.

Thank you.

Question about variables in Classic ASP VBScript

Diego Carrion7-Oct-12 5:32

Diego Carrion

7-Oct-12 5:32

First of all I want to apologize in advance if this is the wrong section to post this. I was looking for VBScript section and I wasn't able to find one. I have a Database (Access) and I'm trying to insert information in it. I keep getting the following error:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/ordersconnection3.asp, line 33

There are around 19 fields. Some are defined as text, number, currency, date/time. How do I define the variables datatype in VBscrpit. On Visual Basic it was as easy as Dim X As Double. From what I've researched As in Dim is not allowed.

Re: Question about variables in Classic ASP VBScript

Brisingr Aerowing7-Oct-12 6:10

Brisingr Aerowing

7-Oct-12 6:10

According to this[^], you can't.

This[^] indicates a cause may be the permissions on the folder.

This is all the help I can give you, unless you post some of the script that is giving the error.

I think computer viruses should count as life. I think it says something about human nature that the only form of life we have created so far is purely destructive. We've created life in our own image.
Stephen Hawking

Re: Question about variables in Classic ASP VBScript

Diego Carrion7-Oct-12 6:19

Diego Carrion

7-Oct-12 6:19

<%
Dim Employee_ID, Customer_ID, Shipper_ID, Tax_Rate, Tax_Status, Status_ID
Dim Order_Date, Shipped_Date, Paid_Date
Dim Ship_Name, Ship_Address, Ship_city, Ship_State_Province, Ship_Zip_Postal_Code, Ship_Country_Region, Payment_Type, Notes
Dim Shipping_Fee, Taxes

Employee_ID=Request.Form("Employee_ID")
Customer_ID=Request.Form("Customer_ID")
Order_Date=Request.Form("Order_Date")
Shipped_Date=Request.Form("Shipped_Date")
Shipper_ID=Request.Form("Shipper_ID")
Ship_Name=Request.Form("Ship_Name")
Ship_Address=Request.Form("Ship_Address")
Ship_City=Request.Form("Ship_City")
Ship_State_Province=Request.Form("Ship_State_Province")
Ship_Zip_Postal_Code=Request.Form("Ship_Zip_Postal_Code")
Ship_Country_Region=Request.Form("Ship_Country_Region")
Shipping_Fee=Request.Form("Shipping_Fee")
Taxes=Request.Form("Taxes")
Payment_Type=Request.Form("Payment_Type")
Paid_Date=Request.Form("#Paid_Date#")
Notes=Request.Form("Notes")
Tax_Rate=Request.Form("Tax_Rate")
Tax_Status=Request.Form("Tax_Status")
Status_ID=Request.Form("Status_ID")

sSQL = "INSERT INTO Orders (Employee_ID, Customer_ID, Order_Date, Shipped_Date, Shipper_ID, Ship_Name, Ship_Address,

Ship_City, Ship_State_Province, Ship_Zip_Postal_Code, Ship_Country_Region, Shipping_Fee, Taxes, Payment_Type, Paid_Date,

Notes, Tax_Rate, Tax_Status, Status_ID) Values ('" & Employee_ID & "', '" & Customer_ID & "','" & Order_Date & "', '" &

Shipped_Date & "', '" & Shipper_ID & "', '" & Ship_Name & "', '" & Ship_Address & "','" & Ship_City & "', '" &

Ship_State_Province & "', '" & Ship_Zip_Postal_Code & "', '" & Ship_Country_Region & "', '" & Shipping_Fee & "','" & Taxes

& "', '" & Payment_Type & "', '" & Paid_Date & "', '" & Notes & "', '" & Tax_Rate & "', '" & Tax_Status & "', '" &

Status_ID & "')"

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/database/Examen.mdb")
Set connection = Server.CreateObject("ADODB.Connection")

connection.Open(sConnString)
connection.execute(sSQL)

response.write "The form information was inserted successfully."

connection.Close
Set connection = Nothing
%>

I'm assuming that the problem lies withing the values part of the Insert into.

Re: Question about variables in Classic ASP VBScript

Wes Aday7-Oct-12 6:38

Wes Aday

7-Oct-12 6:38

Take your single quotes out from around values that are supposed to be numeric

Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Please stand in front of my pistol, smile and wait for the flash - JSOP 2012

Re: Question about variables in Classic ASP VBScript

Diego Carrion7-Oct-12 7:02

Diego Carrion

7-Oct-12 7:02

So leave dates as they are and only take the single quotes and leave ampersands? I tried taking the single quotes for numeric values and now I'm getting a syntax error.

Re: Question about variables in Classic ASP VBScript

ChandraRam7-Oct-12 20:55

ChandraRam

7-Oct-12 20:55

AFAIK, in Access database SQL strings, dates are delimited by #. No delimiters for numbers and single quotes for strings.

HTH

Re: Question about variables in Classic ASP VBScript

Diego Carrion8-Oct-12 2:20

Diego Carrion

8-Oct-12 2:20

Thank you for taking your time and helping me out. I did over 12 hours of "Research" on this last night and I couldn't get a straight answer from the internet. I'm still getting a data type mismatch when I input all the information.

I noticed I have two fields that I have never worked before. In access I have 2 fields that read memo as type and 2 that are in the currency format. Would I follow '" "' for memos and " " for currency or do they have a determined way to input data. Visual Studio debugger keeps telling me there's a problem with this certain line: connection.execute(sSQL).

My code reads as follows:

Employee_ID=Request.Form("Employee_ID")'Number *field in access*
Customer_ID=Request.Form("Customer_ID")'Number
Order_Date=Request.Form("Order_Date")'Date/Time
Shipped_Date=Request.Form("Shipped_Date")'Date/Time
Shipper_ID=Request.Form("Shipper_ID")'Number
Ship_Name=Request.Form("Ship_Name")'Text
Ship_Address=Request.Form("Ship_Address")'Memo
Ship_City=Request.Form("Ship_City")'Text
Ship_State_Province=Request.Form("Ship_State_Province")'Text
Ship_Zip_Postal_Code=Request.Form("Ship_Zip_Postal_Code")'Text
Ship_Country_Region=Request.Form("Ship_Country_Region")'Text
Shipping_Fee=Request.Form("Shipping_Fee")'Currency
Taxes=Request.Form("Taxes")'Currency
Payment_Type=Request.Form("Payment_Type")'Text
Paid_Date=Request.Form("Paid_Date")'Date/Time
Notes=Request.Form("Notes")'Memo
Tax_Rate=Request.Form("Tax_Rate")'Number
Tax_Status=Request.Form("Tax_Status")'Number
Status_ID=Request.Form("Status_ID")'Number

sSQL = "INSERT INTO Orders (Employee_ID, Customer_ID, Order_Date, Shipped_Date, Shipper_ID, Ship_Name, Ship_Address, Ship_City, Ship_State_Province, Ship_Zip_Postal_Code, Ship_Country_Region, Shipping_Fee, Taxes, Payment_Type, Paid_Date, Notes, Tax_Rate, Tax_Status, Status_ID) Values (" & Employee_ID & ", " & Customer_ID & ", #" & Order_Date & "#, #" & Shipped_Date & "#, " & Shipper_ID & ", '" & Ship_Name & "', '" & Ship_Address & "','" & Ship_City & "', '" & Ship_State_Province & "', '" & Ship_Zip_Postal_Code & "', '" & Ship_Country_Region & "', " & Shipping_Fee & ", " & Taxes & ", '" & Payment_Type & "', #" & Paid_Date & "#, '" & Notes & "', " & Tax_Rate & ", " & Tax_Status & ", " & Status_ID & ")"

sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/database/Examen.mdb")
Set connection = Server.CreateObject("ADODB.Connection")

connection.Open(sConnString)
connection.execute(sSQL)

response.write "The form information was inserted successfully."

connection.Close
Set connection = Nothing
%>

I don't expect for anyone to solve the problem for me, I'm just simply not experienced enough with html and asp vbscript quoting to figure this out on my own as I've been working on this all weekend long since Thursday and I've gotten nowhere. I've created around 7 connections and once I get this going, I feel confident enough that the others will work.

Re: Question about variables in Classic ASP VBScript

ChandraRam8-Oct-12 2:23

ChandraRam

8-Oct-12 2:23

Memo fields are string types, and currency are number types - so follow the same format as those types when creating your string.

The best way to check if your SQL string works is to place a debug output after the string is created, copy that string over to the MS Access query builder and run it there. That should give you better insight on what the problem could be.

HTH

Re: Question about variables in Classic ASP VBScript

Diego Carrion8-Oct-12 2:26

Diego Carrion

8-Oct-12 2:26

So I should not have a problem if the person uses the $00.00 format in currency? I have to go to class now, but as soon as I'm back I'm giving this a try, again a million thanks for taking your time.

Re: Question about variables in Classic ASP VBScript

Brisingr Aerowing7-Oct-12 6:39

Brisingr Aerowing

7-Oct-12 6:39

Unfortunately, I am unable to provide any more assistance, as I do not know that much about this. The only other thing I can think of is to check the order of the fields in the database and make sure they match the SQL script.

EDIT: do what Wes said.

Re: Question about variables in Classic ASP VBScript

Dave Kreskowiak7-Oct-12 8:15

Dave Kreskowiak

7-Oct-12 8:15

Scrap this and rewrite. There's a reason the command ADODB command object lets you create parameter objects. It's to avoid crappy, unsupportable and unmaintainable code like this. I'm refering specifically to the sSQL="..." concatenation nightmare you've created.

Start by reading these articles[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Question about variables in Classic ASP VBScript

Diego Carrion7-Oct-12 9:25

Diego Carrion

7-Oct-12 9:25

Can I just get the proper form to enter values? I know strings go as followed: '" & variable & "'to insert information. I just need numbers and date/time and I will be all set.

Re: Question about variables in Classic ASP VBScript

Dave Kreskowiak7-Oct-12 10:11

Dave Kreskowiak

7-Oct-12 10:11

No. I gave you the list of stuff to read. It's now up to you to do the basic research and teach yourself this stuff. I'm not in the business of spoon-feeding people who can't do basic research.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Question about variables in Classic ASP VBScript

Diego Carrion7-Oct-12 10:23

Diego Carrion

7-Oct-12 10:23

I completely missed the link to the articles on your last post. I've been sitting here from 9 am till now (4 pm) trying to solve this issue so I'm out of ways to research this topoc. I do not intend for you or anyone to spoon feed me the answers. Thanks again for the links.

error

uday87227-Oct-12 3:22

uday8722

7-Oct-12 3:22

code for insurance management system oracle back end

Re: error

Richard MacCutchan7-Oct-12 4:47

Richard MacCutchan

7-Oct-12 4:47

Is this a statement, a question, or just some vague musings of an idle mind?

One of these days I'm going to think of a really clever signature.

Re: error

OriginalGriff7-Oct-12 5:44

OriginalGriff

7-Oct-12 5:44

Ah. You haven't installed the StudentTranslation App.

"code for insurance management system oracle back end" translates to "Do my homework for me. Now."

Ideological Purity is no substitute for being able to stick your thumb down a pipe to stop the water

Re: error

Richard MacCutchan7-Oct-12 6:39

Richard MacCutchan

7-Oct-12 6:39

One of these days I'm going to think of a really clever signature.

SQL Query for dates

SPSandy7-Oct-12 2:17

SPSandy

7-Oct-12 2:17

I want to create an SQL syntax using VB.Net which will allow me to filter data on a date field in my table in MySql with the current Date. The issue is I have the dates saved in the Table with Type VARCHAR(). One way is to convert the current Date to String and then compare. But is there any process by which I can convert the Table String field to Date format and then compare with current Date. Basically my SQL Syntax with be something like below:
strSql = "Select * from TBL1 where TBL_Date1 >= " + Now()
This will not work since TBL_DATE1 is a VARCHAR Type and NOW() is of Type DateTime

I am pretty new to .net and hence would like some help from you all.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.