آژانس هواپیماییdaftare shoma
nexpay

كمك براي رفع error در كد asp

شروع موضوع توسط ramin281 ‏19 جولای 2005 در انجمن asp , ASP.NET

  1. ramin281

    ramin281 کاربر تازه وارد

    تاریخ عضویت:
    ‏21 ژانویه 2005
    نوشته ها:
    55
    تشکر شده:
    0
    محل سکونت:
    شیراز
    ما یه کد کوچولو از رو یه کتاب نوشتیم
    برای این که یه چند text رو وارد دیتا بیس کند (یه صفحه برا عضویت در سایت)

    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

    /register/take_register.asp, line 48



    که کدها هم این است

    وارور مربوط به كدي كه رنگ قروز است مي شود

    <!--design by [email protected] & sayed mohammad zeraat pisheh & http://www.shirazlearn.com-->
    <%@ Language="VBScript" codepage=65001 %>
    <%
    session.codepage=65001
    %>

    <html>
    <head>
    <meta http-equiv="Content-Language" content="fa">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">

    </head>
    <body>
    <SCRIPT src="/farsi.js" type=text/javascript></SCRIPT>


    <%


    p_username = Request.form("username")
    p_password1 = Request.form("password1")
    p_password2 = Request.form("password2")
    p_email = Request.form("email")
    p_gender = Request.form("gender")

    if ((request.form("username") = "") OR (request.form("password1") = "") OR (request.form("password2") = "")OR ( Request.form("email") = ""))then
    response.redirect"../default2.asp?error=nofeildok"
    end if

    if not p_password1=p_password2 then
    response.redirect"../default2.asp?error=nomatchpass"
    end if

    Dim Conn, RS
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
    DSNName = DSNName & Server.MapPath("../db/data.mdb")
    conn.Open DSNName,3,1



    theSQL = "insert into userlist "
    theSQL = theSQL & "(username,password, email,gender)"
    theSQL = theSQL & " values ('"&p_username&"', '"& p_password1&"', '"& p_email&"' , '"&p_gender&"')"
    conn.execute(thesql)

    Conn.close
    set Conn = Nothing
    response.redirect"../default2.asp?error=well"
    %>
     
  2. mehran-a

    mehran-a کاربر تازه وارد

    تاریخ عضویت:
    ‏19 جولای 2005
    نوشته ها:
    9
    تشکر شده:
    0
    اشكال شما از LockType است
    كد زير رو
    conn.Open DSNName,3,1
    به
    conn.open dsnname,3,1,3
    تغيير بده
     
  3. ramin281

    ramin281 کاربر تازه وارد

    تاریخ عضویت:
    ‏21 ژانویه 2005
    نوشته ها:
    55
    تشکر شده:
    0
    محل سکونت:
    شیراز
    این کار رو کردم ولی نشد

    اومدم کد هام رو تغییر دادم

    ("Set conn = Server.CreateObject("ADODB.Connection
    " conn.open "DSN=reg


    یعنی یه dnd تعريف ميكنم اگه ديتابيس داخل www بهم ارور مي ده ولي وقتي مي زارمش خارج دبليو دبليو جواب ميده

    در همين هين با همين كد برا login شدن اعضا استفاده مي كنم كه عكس اين اتفاق مي فته يعني وقتي داخل دبليو دبليو است جواب مي ده به نظر شما چه كار كنم
     
  4. sinahosting

    sinahosting Registered User

    تاریخ عضویت:
    ‏21 دسامبر 2004
    نوشته ها:
    272
    تشکر شده:
    0
    محل سکونت:
    PSTN
    پایگاه داده تون نمیتونه بروز رسانی بشه . باید پرمیشن رو روش رو نوشتن هم ست کنید .
     
  5. ramin281

    ramin281 کاربر تازه وارد

    تاریخ عضویت:
    ‏21 ژانویه 2005
    نوشته ها:
    55
    تشکر شده:
    0
    محل سکونت:
    شیراز
    من پرميشن رو رو فول هم برا everyone ست كردم بازم نشد
     
  6. sinahosting

    sinahosting Registered User

    تاریخ عضویت:
    ‏21 دسامبر 2004
    نوشته ها:
    272
    تشکر شده:
    0
    محل سکونت:
    PSTN
    رو هاست یا رو لوکال کار می کنی ؟؟؟
     
zarpopخرید بک لینک عسل طبیعی و گرده گل ایرانی