ipop

مشكل اين كد كجاست؟

شروع موضوع توسط nesarian ‏20 نوامبر 2007 در انجمن asp , ASP.NET

  1. nesarian

    nesarian Registered User

    تاریخ عضویت:
    ‏18 آگوست 2007
    نوشته ها:
    24
    تشکر شده:
    0
    سلام خدمت شما دوستان عزيز
    PHP:
    <%@ Language=VBScript %>
    <% 
    Option Explicit %>
    <
    Html>
    <
    Body>
    <!--
    #include virtual="/adovbs.inc"-->
    <!--#include file="DBConnect.asp"-->
    <%
    Dim objRS,bolFound,strUsername
    strUsername 
    Request.Form("UserName")
    If ((
    Request.Form("UserName") = "")OR(Request.Form("Password") = "")_
    OR (Request.Form("email") = "")OR (Request.Form("firstname") = "")_
    OR (Request.Form("lastname") = ""))Then
    objConn
    .Close
    Set objConn 
    Nothing
    %>
    <%
    Set objRS Server.CreateObject("ADODB.Recordset")
    objRS.Open "db",objConn,,adLockOptimistic,adCmdTable
    bolFound 
    False
    Do Until objRS.EOF OR bolFound
    If (strComp(objRS("Username"),strUsername,vbTextCompare)=0)Then
    bolFound 
    True
    Else
    objRs.MoveNext
    End 
    If
    Loop
    If Not bolFound Then
    objRS
    .Close
    Set objRS 
    Nothing
    objConn
    .Close
    Set objConn 
    Nothing
    Response
    .Write "<A Href=''>"
    Response.Write ""
    Response.Write "</A>"
    Response.End
    End 
    If
    objRS("FirstName") = Request.Form("firstname")
    objRS("LastName") = Request.Form(lastname")
    objRS.Update
    objRS.Close
    Set objRs = Nothing
    End if
    objConn.Close
    Set objConn = Nothing
    %>
    </body>
    </html>
    Error 800a01a8 ميده
    ممنون ميشم پاسخ بدين
     
  2. Y2K

    Y2K Registered User

    تاریخ عضویت:
    ‏20 فوریه 2006
    نوشته ها:
    592
    تشکر شده:
    1
    محل سکونت:
    Location
    خوب تو نگاه اول این مشکل به چشم خورد
    کد:
    objRS("LastName") = Request.Form(lastname") 
    
    
    که درستش میشه


    کد:
    objRS("LastName")=Request.Form("lastname")
    
    


    یه دونه " جا افتاده




    راستی علاوه بر شماره ارور، توضیح ارور رو هم بنویس
     
  3. nesarian

    nesarian Registered User

    تاریخ عضویت:
    ‏18 آگوست 2007
    نوشته ها:
    24
    تشکر شده:
    0
    خيلي ممنون
     
  4. nesarian

    nesarian Registered User

    تاریخ عضویت:
    ‏18 آگوست 2007
    نوشته ها:
    24
    تشکر شده:
    0
    Microsoft VBScript runtime error '800a01a8'
    Object required
     
  5. nesarian

    nesarian Registered User

    تاریخ عضویت:
    ‏18 آگوست 2007
    نوشته ها:
    24
    تشکر شده:
    0
    مشكل حل نشد
    ممنون ميشم يك كد جديد بسازيد
     
avanakbron talent عسل طبیعی و گرده گل ایرانی