نمایش نتایج 1 تا 2 از 2

نام تاپیک: مشکل در Microsoft VBScript compilation error '800a03f6' Expected 'End'

  1. #1

    مشکل در Microsoft VBScript compilation error '800a03f6' Expected 'End'

    سلام.
    من واسه کد زیر مشکل زیر رو دارم

    Microsoft VBScript compilation error '800a03f6'
    Expected 'End'
    /ftp/css/CVS/quick/admin_header.asp, line 61

    <html>
    <head>
    <title>test</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link href="quickid.css" rel="stylesheet" type="text/css">
    <script language="JavaScript" type="text/JavaScript">
    <!--
    function MM_openBrWindow(theURL, winName, features) { //v2.0
    window.open(theURL, winName, features);
    }
    //-->
    </script>
    </head>
    <body bgcolor="#FFFFFF" text="#000000">
    <%
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    conn.open "test", "test", "red17"
    sql = "SELECT * FROM order Where TransactionID= " & Request("TransactionID")
    set rs=conn.Execute (sql)
    If rs.eof = false then
    strTransactionID= rs.fields("TransactionID")

    Set Encryption = Server.CreateObject("king.Routines")
    strCardNumber = Encryption.DecryptIt(rs.Fields("CreditCardNumber") )
    ' strCardNumber = rs.fields("CreditCardNumber")
    Set Encryption = Nothing


    rs.close
    conn.close
    set rs = nothing
    set conn = nothing
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
    <title>test</title>
    <style type="text/css">
    body {
    background-color: #FFFFFF;
    color: #000000;
    }
    </style>
    <style type="text/css">
    a:active {
    color: #0000FF;
    }
    </style>
    </head>
    <body>
    <div id="wb_Form1" style="position: absolute; background-color: #F7F9FC; left: 8px;
    top: 12px; width: 958px; height: 394px; z-index: 2">
    <form name="form1" method="post" action="header_save.asp" enctype="application/x-www-form-urlencoded"
    id="Form1">
    <div id="wb_Text12" style="margin: 0; padding: 0; position: absolute; left: 5px;
    top: 277px; width: 220px; height: 19px; text-align: right; z-index: 0;">
    <font style="font-size: 12pt;" color="#000000" face="Times New Roman">Card #&nbsp;</font>
    </div>
    <input type="text" id="CardNumber" style="position: absolute; left: 225px; top: 277px;
    width: 153px; height: 18px; border: 1px #C0C0C0 solid; font-family: Courier New;
    font-size: 13px; z-index: 1" name="CardNumber" value="<%strCardNumber%>" />
    </form>
    </div>
    <a href="http://www.wysiwygwebbuilder.com" target="_blank">
    <img src="images/builtwithwwb7.gif" alt="WYSIWYG Web Builder" style="position: absolute;
    left: 453px; top: 735px; width: 88px; height: 31px; border-width: 0; z-index: 250">
    </a>
    </body>
    </html>


    چطور کد رو اصلاح کنم
    آخرین ویرایش به وسیله mehdi.mousavi : یک شنبه 09 آبان 1389 در 13:32 عصر دلیل: لطفا کدهای خود را از این پس Decorate نمایید.

  2. #2

    نقل قول: مشکل در Microsoft VBScript compilation error '800a03f6' Expected 'End'

    سلام.
    ایراد در خط 22/23 هستش که end رو برای if نذاشته اید. اگر میخواهید در یک خط بنویسید، دیگه نیازی به then ندارید، در غیر اینصورت، باید حتما end رو بنویسید:


    If rs.eof = false Then
    strTransactionID= rs.fields("TransactionID")
    Set Encryption = Server.CreateObject("king.Routines")
    strCardNumber = Encryption.DecryptIt(rs.Fields("CreditCardNumber") )
    End


    موفق باشید.

    پاورقی: لطفا کتابی تهیه کنید تا با نوشتن صحیح کدها در Classic ASP آشنا بشید...

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •