Advertisement

03.26.2008 at 09:26PM PDT, ID: 23272978
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
8.0

What might be wrong with my SQL here? Random Error

Asked by stroudtx in MySQL Server, Active Server Pages (ASP)

Tags:

Microsoft VBScript runtime
An exception occurred: 'Execute'
/bedding_by_mfg.asp , line 293
Browser Type: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_2; en-us) AppleWebKit/525.13 (KHTML, like Gecko) Version/3.1 Safari/525.13
Time: Wednesday, March 26, 2008, 11:16:30 PM

is the error I get. Line 293 is Set product_details = product_details_cmd.Execute

I was getting these random errors before so I added & "" after Sortby. Sortby is a dynamic variable.

This works most of the time and I can't get it to error for me. I have a custom error page though that emails me server errors (see above) and I'm getting about 5 an hour of the same thing on just about every dynamic page I have.

I'm using MySql 5.x and ODBC 3.5x on a Windows 2003 Server.  Site is dimplesanddandelions.comStart Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

<%
If Sortby = "" Then Sortby="Viewed DESC"
%>
 
<%
Dim product_details__MMColParam
product_details__MMColParam = Defaultone
If (Selectone <> "") Then 
  product_details__MMColParam = Selectone
End If
%>
<%
Dim product_details__MMColParam2
product_details__MMColParam2 = Defaulttwo
If (Selecttwo <> "") Then 
  product_details__MMColParam2 = Selecttwo    
End If
%>
<%
Dim product_details__MMColParam3
product_details__MMColParam3 = Defaultthree
If (Selectthree <> "") Then 
  product_details__MMColParam3 = Selectthree
End If
%>
<%
Dim product_details__MMColParam4
product_details__MMColParam4 = Defaultfour
If (Selectfour <> "") Then 
  product_details__MMColParam4 = Selectfour
End If
%>
<%
Dim product_details__MMColParam5
product_details__MMColParam5 = Defaultfive
If (Selectfive <> "") Then 
  product_details__MMColParam5 = Selectfive
End If
%>
<%
Dim product_details__MMColParam6
product_details__MMColParam6 = Defaultsix
If (Selectsix <> "") Then 
  product_details__MMColParam6 = Selectsix
End If
%>
<%
Dim product_details__MMColParam7
product_details__MMColParam7 = Defaultseven
If (Selectseven <> "") Then 
  product_details__MMColParam7 = Selectseven
End If
%>
<%
Dim product_details__MMColParam8
product_details__MMColParam8 = Defaulteight
If (Selecteight <> "") Then 
  product_details__MMColParam8 = Selecteight
End If
%>
<%
Dim product_details__MMColParam9
product_details__MMColParam9 = Defaultnine
If (Selectnine <> "") Then 
  product_details__MMColParam9 = Selectnine
End If
%>
<%
Dim product_details__MMColParam10
product_details__MMColParam10 = Defaultten
If (Selectten <> "") Then 
  product_details__MMColParam10 = Selectten
End If
%>
<%
Dim product_details
Dim product_details_cmd
Dim product_details_numRows
Set product_details_cmd = Server.CreateObject ("ADODB.Command")
product_details_cmd.ActiveConnection = MM_mysql_db_STRING
If SelectbyMfg="Yes" Then
product_details_cmd.CommandText = "SELECT * FROM mysql_store.products WHERE (Category_ID In (?, ?, ?) And Mfg_ID In (?, ?, ?, ?, ?, ?, ?)) Order by " & Sortby & ""
else
product_details_cmd.CommandText = "SELECT * FROM mysql_store.products WHERE (Category_ID In (?, ?, ?) or Mfg_ID In (?, ?, ?, ?, ?, ?, ?)) Order by " & Sortby & ""
end if
product_details_cmd.Prepared = true
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param1", 5, 1, -1, product_details__MMColParam) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param2", 5, 1, -1, product_details__MMColParam2) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param3", 5, 1, -1, product_details__MMColParam3) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param4", 5, 1, -1, product_details__MMColParam4) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param5", 5, 1, -1, product_details__MMColParam5) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param6", 5, 1, -1, product_details__MMColParam6) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param7", 5, 1, -1, product_details__MMColParam7) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param8", 5, 1, -1, product_details__MMColParam8) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param9", 5, 1, -1, product_details__MMColParam9) ' adDouble
product_details_cmd.Parameters.Append product_details_cmd.CreateParameter("param10", 5, 1, -1, product_details__MMColParam10) ' adDouble
Set product_details = product_details_cmd.Execute
product_details_numRows = 0
%>
[+][-]03.27.2008 at 12:19AM PDT, ID: 21219172

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: MySQL Server, Active Server Pages (ASP)
Tags: Microsoft VBScript runtime
Sign Up Now!
Solution Provided By: _Stilgar_
Participating Experts: 2
Solution Grade: A
 
 
[+][-]04.03.2008 at 04:15PM PDT, ID: 21277819

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 7-day free trial to view this Assisted Solution or ask the Experts your question.

 
[+][-]09.13.2008 at 04:24PM PDT, ID: 22470422

Experts Exchange has a courteous staff of administrators who help members get the most out of the website by means of administrative comments like this one.

Start your 7-day free trial to view this Administrative Comment or ask the Experts your question.

 
[+][-]09.18.2008 at 04:13PM PDT, ID: 22516446

Experts Exchange has a courteous staff of administrators who help members get the most out of the website by means of administrative comments like this one.

Start your 7-day free trial to view this Administrative Comment or ask the Experts your question.

 
 
Loading Advertisement...
20081112-EE-VQP-42 / EE_QW_2_20070628