An ASP end error solution process.

Last Update:2018-12-05 Source: Internet

Author: User

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

Original program: <HTML>

<Head>
<Meta content = "Microsoft FrontPage 5.0">
<Meta content = "FrontPage. Editor. Document">
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> Software certificate check </title>
</Head>

search for information about the oversight organization that is missing scrolling 
<Table border = "1" cellpadding = "0" cellspacing = "0" style = "border-collapse: collapse "bordercolor =" #111111 "width =" 100% "Height =" 98 ">
<Tr>

<TD width = "5%" Height = "41" align = "center" bgcolor = "# FFFF00">
 NO. </TD>
<TD width = "8%" Height = "41" align = "center" bgcolor = "# FFFF00">
 record No. </TD>
<TD width = "21%" Height = "41" align = "center" bgcolor = "# FFFF00">
 organization name </TD>
<TD width = "8%" Height = "41" align = "center" bgcolor = "# FFFF00">
 Project No. </TD>
<TD width = "1%" Height = "41" align = "center" bgcolor = "# FFFF00">
 project type </TD>
<TD width = "11%" Height = "41" align = "center" bgcolor = "# FFFF00">
 actual start date </TD>
<TD width = "12%" Height = "41" align = "center" bgcolor = "# FFFF00">
 actual end date </TD>

<TD width = "17%" Height = "41" align = "center" bgcolor = "# FFFF00">
 Certificate Status </TD>
</Tr>
<%
Set rs = server. Createobject ("ADODB. recordset ")
SQL = "SELECT. recno,. projid, D. pttype,. actbegin,. actend, C. bsname,. ptcode, B. regimemo from tblprojecttype A, tblproject B, tblbusiness C, tblprojecttypecode D, tblprojregi e where (. ptcode = '000000' or. ptcode = '000000' or. ptcode = '000000' or. ptcode = '000000' or. ptcode = '20140901') and. ptcode = D. ptcode and. projid = B. projid and B. BSID = C. BSID and. projid = E. projid and E. regicase <> 'undo 'order by. projid,. ptcode"
Rs. Open SQL, Conn, 1, 1
I = 0
Do while not Rs. EOF

%>
<% Dim recno, bsname, projid, pttype, actbegin, actend, ptcode, regimemo
Recno = RS ("recno ")
Bsname = RS ("bsname ")
Projid = RS ("projid ")
Pttype = RS ("pttype ")
Ptcode = RS ("ptcode ")
Actbegin = RS ("actbegin ")
Actend = RS ("actend ")
Regimemo = RS ("regimemo ")
Rs. movenext
If RS ("projid") <> projid and actend <> "then
I = I + 1
%>
<Tr>
<TD width = "5%" Height = "56" align = "center"> <% = I %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = recno %> </TD>
<TD width = "21%" Height = "56" align = "center"> <% = bsname %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = projid %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = pttype %> </TD>
<TD width = "11%" Height = "56" align = "center"> <% = actbegin %> </TD>
<TD width = "12%" Height = "56" align = "center"> <% = actend %> </TD>
<TD width = "17%" Height = "56" align = "center" valign = "Middle" bgcolor = "# ffccff"> <% = regimemo %>

</TD>
</Tr>
<%
End if
Loop
%>

</Table>

</Body>

</Html>

Error message: Microsoft VBScript compiler error in ASP: '800a03f6'
'End' missing'

/IISHelp/common/500-100.asp, row 242 error '20140901'

An accident occurred.

Cause and Solution, if RS ("projid") <> projid and actend <> "then
An error occurred, so I want to modify it,

<% Dim recno, bsname, projid, pttype, actbegin, actend, ptcode, regimemo, projid2
Recno = RS ("recno ")
Bsname = RS ("bsname ")
Projid = RS ("projid ")
Pttype = RS ("pttype ")
Ptcode = RS ("ptcode ")
Actbegin = RS ("actbegin ")
Actend = RS ("actend ")
Regimemo = RS ("regimemo ")
Rs. movenext
If not Rs. EOF then
Projid2 = RS ("projid ")
If projid2 <> projid and actend <> "" then
I = I + 1
%>
<Tr>
<TD width = "5%" Height = "56" align = "center"> <% = I %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = recno %> </TD>
<TD width = "21%" Height = "56" align = "center"> <% = bsname %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = projid %> </TD>
<TD width = "8%" Height = "56" align = "center"> <% = pttype %> </TD>
<TD width = "11%" Height = "56" align = "center"> <% = actbegin %> </TD>
<TD width = "12%" Height = "56" align = "center"> <% = actend %> </TD>
<TD width = "17%" Height = "56" align = "center" valign = "Middle" bgcolor = "# ffccff"> <% = regimemo %>

</TD>
</Tr>
<%
End if
End if

OK, success. It turns out that Rs. movenext has not been detected, and end is a VB system. It is not a prompt error in the program. Microsoft is misleading.

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

An ASP end error solution process.

Contact Us

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support