Advertisement

06.06.2008 at 07:05AM PDT, ID: 23463726
[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!
9.0

How to correct the code to remove the specified error message

Asked by ipjyo in Active Server Pages (ASP), JavaScript, VB Script

Tags:

when I am trying to execute the attached code, it is giving error at the lines
<INPUT  type="submit" Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Update" id=Update name="action">
                                                                                                <INPUT  type="submit" Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Delete" id=Delete name="action">
                                                                                                <INPUT type=button Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Close" id=Close name=Close onClick="javascript:window.close()">


Microsoft VBScript compilation (0x800A03F6)
Expected 'End'

please help me with the error.
I am not able to find where I am going wrong.
thanksStart 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:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:

<%@ Language=VBScript %>
<!-- #include file='Common.asp' -->
<!-- #include file='adovbs.inc' -->
<%
dim ConnString
ConnString = "Provider=SQLOLEDB;Data Source=ELTTMSQPTSD2;Initial Catalog=posttrade;User ID=iviewapp;Password=iviewapp;"
%>
<%If "Delete" = Trim(Request("action")) Then
  
  dim isinfilter
  isinfilter = Request.Form("isinfilterDD")
  msgbox(isinfilter)
 
  dim selList
  dim selArray()
  dim xmlText  'to form an XML string from the array of listbox items
  
  dim cmd
         
      set conn = Server.CreateObject("ADODB.Connection")
      set cmd = server.CreateObject("ADODB.Command")
         
     selList = Request.Form("currentisin") 
     msgbox(selList)
       if Request.Form("currentisin") <> "" then
       'capture the selected items into an array
        selArray = Split(selList,",")
        xmlText = "<ISINLIST>"
        for each item in selArray
     
          xmlText = xmlText & "<ISIN>" 
          xmlText = xmlText & "<SecISINNo>" 
          xmlText = xmlText & item
          xmlText = xmlText & "</SecISINNo>" 
          xmlText = xmlText & "</ISIN>"
 
        next 
      xmlText = xmlText & "</ISINLIST>"
      
      msgbox(xmlText)
      
      conn.Open(ConnString)
      with cmd
      .ActiveConnection = conn
      .CommandType  = 4
      .CommandText = "spCSW_UpdateFocusISINList"
      .Parameters.Append(cmd.CreateParameter("@FocusISINGroupCd", adVarChar, adParamInput, 7, isinfilter))
      .Parameters.Append(cmd.CreateParameter("@ActionFlag",adChar,adParamInput, 1, "D"))
      .Parameters.Append(cmd.CreateParameter("@XMLText",,adParamInput,,xmlText))
     end with 
     
     on error resume next
     cmd.Execute()
     If cmd.ActiveConnection.Errors.Count > 0 Then
        Response.Write("An error occured")
     End If
                                                            
     set cmd = nothing 
     conn.Close
     set conn = nothing
    
   End If
%>
 
<HTML>
	<HEAD>
		<%
	    Dim sTitle
	    'sTitle = GetTitlePrefix("Post Trade Reporting")
        %>
     <TITLE>'<%=sTitle%>' |FOCUS ISIN</TITLE>
		
<script language="javascript">
 
         function isinfilter_onchange() {
         var sel=document.frmSelection.isinfilter.selectedIndex;
         var sel1=document.frmSelection.isinfilter.options[sel].Value;
         alert(sel1);
        /*var selValue=document.form1.isinfilter.selectedIndex;
	    var selectedval=document.form1.isinfilter.options[selValue].Value;
	    alert(selectedval);
	   self.location.href=Testingfisin06-04.asp?FilterValue='+selectedval;*/
}
 
 
function refreshISIN_onselect() {
 
var selected = 'Y';
alert("selected");
document.frmSelection.action='Testingfisin06-04.asp?refreshISIN=selected';
document.frmSelection.submit();*/
 
}
 
</script>
		<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
		<script language='javascript' src='/public/bin/_include/styles-all.js'></script>
		
	</HEAD>
	<body marginwidth="0" marginheight="0">
		
		<BR>
		<table width="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0">
			<tr>
				<td>
					<img src='/public/images/spacer.gif' width='7'>
				</td>
				<td>
					<Form id="form1" name="form1">
						<TABLE cellpadding="0" cellspacing="0" border="0" width="100%">
							<TR>
								<TD class="section-header-text" width="225" nowrap>Focus ISIN</TD>
								<!--td align=right nowrap class='pop-paragraph-header-text'><A HREF="javascript:openAppWin('appHelp.pdf')">Application Help</A></TD-->
							</TR>
							<tr>
								<td class="section-header-line" colspan="3"><img src="/Public/images/spacer.gif" width="1" height="1"></td>
							</tr>
						</TABLE>
					</Form>
					<FORM method="post" name="frmSelection">
						<table border="0" cellpadding="0" cellspacing="0" width="700">
							<tr>
								<td class="results-table">
									<TABLE cellpadding="2" cellspacing="1" border="0" width="700%">
										<TR>
											<TD class="'<%=sSortedColCSS%>'" colspan=4></TD>
										</TR>
										<TR class='<%=GROUPINGHEADER%>'>
											<TD colspan='4'>
												<TABLE cellpadding="3" cellspacing="1" border="0" width="700">
													<TR class='<%=GROUPINGHEADER%>'>
														<td style="width: 46px"></td>
														<TD align="center" id="LeftHeader" style="height: 149px; width: 311px;" colspan="1"
															rowspan="1"><BR>
															<BR>
														</TD>
													</TR>
													<TR>
														<TD>
														
<SELECT id=isinfilter name=isinfilterDD width="305px" style="{width:305px}" onchange="isinfilter_onchange()">
 
														<% 
																				
														
'Response.Write "<BR><BR><SELECT Class='" & SELECTCLASS & "' id=isinfilter name=isinfilterDD width=""305px"" style=""{width:305px}"">"
		        
		                        dim oRSIsin
                                dim cmdoRSIsin
                                dim conn
                                set conn = Server.CreateObject("ADODB.Connection")
                                set cmdoRSIsin = server.CreateObject("ADODB.Command")
                                                        
                                set oRSIsin = server.CreateObject("ADODB.Recordset")
                                   conn.Open(ConnString)
                                    with cmdoRSIsin
                                    
                                         .ActiveConnection = conn
                                         .CommandType  = 4
                                                       
                                         .CommandText = "spCSW_ListFocusISINList"
                                      
                                    end with 
                                      On Error Resume Next
                                                                                                                                        
                                   set oRSIsin = cmdoRSIsin.Execute()
                                      On Error Goto 0
 
                                 If cmdoRSIsin.ActiveConnection.Errors.Count > 0 Then
                                 Response.Write("An error occured")
                                 End If
                                                                 
                                set cmdoRSIsin = nothing
                               
                                Do While Not oRSIsin.EOF 
                                
                                Response.Write("<OPTION value=""" & oRSIsin("FocusISINGroupCd")& """>"  &  oRSIsin("FocusISINGroupNm") & "</OPTION>")
                                
		      		    	    oRSIsin.MoveNext
		                        Loop
		                       oRSIsin.Close
		     		          set oRSIsin = nothing
		                    conn.Close
		                    set conn = nothing
		     		    
		                  
           ' Response.Write "</SELECT>"
            %>
            </SELECT>
			
			
														</TD>
													</TR>
													<TR>
														<TD><INPUT type="checkbox" id="refresh" name="refreshISIN" value="Refresh" LANGUAGE="javascript"
																 onchange="refreshISIN_onselect()"></TD>
														<TD><B>Refresh ISIN</B></TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<table border="0" cellpadding="0" cellspacing="0" width="700">
											<tr>
												<td>
													<TABLE cellpadding="2" cellspacing="1" border="0" width="700">
														<TR>
															<TD colspan="4"></TD>
														</TR>
														<TR>
															<TD colspan='4'>
																<TABLE cellpadding="3" cellspacing="1" border="0" width="700">
																	<TD><TEXTAREA rows="2" cols="20" id="textarea1" name="ISINTextArea">
                     </TEXTAREA></TD>
																	<td style="width: 46px"></td>
																	<TD align="center" id="LeftHeader" style="height: 149px; width: 311px;" colspan="1"
																		rowspan="1"><B>Current ISIN</B><BR>
																		<BR>
																		<%
			 Response.Write "<BR><SELECT Class='" & SELECTCLASS & "' size=18 id=currentisin name=currentisin MULTIPLE width=""305px"" style=""{width:305px}"">"		
	
                                                              
                                
                                dim oRSIsin1
                                dim cmdoRSIsin1
                                dim strISINGroupCd
                                
                                set conn = Server.CreateObject("ADODB.Connection")
                                
                                If request.QueryString("FilterValue") <> "" then 
                                strISINGroupCd = request.QueryString("FilterValue")
                                else
                                strISINGroupCd = "ELTNIW"
                                End if  
                                
                                set cmdoRSIsin1 = server.CreateObject("ADODB.Command")
                                                        
                                set oRSIsin1 = server.CreateObject("ADODB.Recordset")
                                                               
                                conn.Open(ConnString)
                                    with cmdoRSIsin1
                                    
                                         .ActiveConnection = conn
                                         .CommandType  = 4
                                                    
                                         .CommandText = "spCSW_ListFocusISINList"
                                         .Parameters.Append(cmdoRSIsin1.CreateParameter("@FocusISINGroupCd", adVarChar, adParamInput, 7, strISINGroupCd))
                                      
                                    end with 
                                      On Error Resume Next
                                                                                                                                        
                                   set oRSIsin1 = cmdoRSIsin1.Execute()
                                      On Error Goto 0
 
                                 If cmdoRSIsin1.ActiveConnection.Errors.Count > 0 Then
                                 Response.Write("An error occured")
                                 End If
                                                                 
                                set cmdoRSIsin1 = nothing
                               
                                Do While Not oRSIsin1.EOF 
                                
                                Response.Write ("<OPTION value=""" & oRSIsin1("SecISINNo") & """>" &  oRSIsin1("SecISINNo") & "</OPTION>")
                                
		      		    	    oRSIsin1.MoveNext
		                        Loop
		                       oRSIsin1.Close
		     		          set oRSIsin1 = nothing
		                    conn.Close
		                   set conn = nothing
		     		    
		Response.Write  "</SELECT>"
        %>
																	</TD>
														</TR>
														<TR>
															<TD Class='<%=BUTTONROW%>' align='right'>
																	<INPUT  type="submit" Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Update" id=Update name="action">
																<INPUT  type="submit" Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Delete" id=Delete name="action">
																<INPUT type=button Class='<%=BUTTON%>' '<%=BUTTONBORDER%>' '<%=MOUSEOVEREFFECT%>' value="Close" id=Close name=Close onClick="javascript:window.close()">													
																
															</TD>
														</TR>
													</TABLE>
												</td>
											</tr>
										</table>
					</FORM>
				</td>
			</tr>
		</table>
	</body>
	
</HTML>
[+][-]06.06.2008 at 07:24AM PDT, ID: 21729355

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.

 
[+][-]06.06.2008 at 07:26AM PDT, ID: 21729370

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.

 
[+][-]06.06.2008 at 07:27AM PDT, ID: 21729382

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: Active Server Pages (ASP), JavaScript, VB Script
Tags: Error Type:Microsoft VBScript compilation (0x800A03F6) Expected 'End'
Sign Up Now!
Solution Provided By: jared_luker
Participating Experts: 3
Solution Grade: A
 
 
[+][-]06.06.2008 at 07:32AM PDT, ID: 21729435

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.

 
[+][-]06.06.2008 at 07:46AM PDT, ID: 21729567

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

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

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