View Single Post
ישן 09-04-07, 00:14   # 1
wanksta
חבר בקהילה
 
מיני פרופיל
תאריך הצטרפות: Mar 2006
הודעות: 57

wanksta לא מחובר  

[ASP] יש לי בעיה תעזרו לי למצוא אותה בבקשה

עריכה:
הסתדרתי כבר... אפשר לנעול את ההודעה

כשהשם משתמש והאימייל פנויים הוא עובד טוב
וכשלא הוא רושם לי:
קוד:
Response object error 'ASP 0251 : 80004005' 
 
Response Buffer Limit Exceeded 
 
/almogk/ASP/Maabada/Chap03/insertUser.asp, line 0 
 
Execution of the ASP page caused the Response Buffer to exceed its configured limit.
למה??? |דמעות|
זה הדף:

קוד:
<html dir="rtl">
    <body>
<!-- #INCLUDE FILE="style" -->
<&#37;
dim lname
dim password
dim fname
dim username
dim email
dim byear
dim gender
lname=Request.Form("lname")
fname=Request.Form("fname")
password=Request.Form("password")
username=Request.Form("username")
email=Request.Form("email")
byear=Request.Form("byear")
gender=Request.Form("gender")
isadmin=request.form("isadmin")
if isadmin<>yes then
    isadmin="no"
end if
ex=1
set oConn =server.CreateObject("adodb.connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};"&_
        "Dbq=" & Server.MapPath("db1.mdb") & ";" &_
        "Uid=;"&_
        "Pwd=;"
set db1rs=server.CreateObject("adodb.recordset")
selectall="select * from name"
db1rs.Open selectall, oConn
sqlstring=" insert into Name values ('"&fname&"','"&lname&"','"&password&"','"&username&"','"&email&"','"&byear&"','"&gender&"','"&isadmin&"') "
do while not db1rs.EOF or ex=0
    if db1rs.Fields("username")=username then
        response.write "שם המשתמש אשר בחרת תפוס, לחץ "
        response.write "<a href='register.asp'>כאן</a>"
        response.write " כדי לחזור להרשמה ובחר שם משתמש אחר."
        ex=0
    end if
    if db1rs.Fields("email")<>email then
        db1rs.MoveNext
    else
        response.write "כתובת המייל אשר בחרת תפוסה, לחץ "
        response.write "<a href='register.asp'>כאן</a>"
        response.write " כדי לחזור להרשמה ובחר כתובת אחרת."
        ex=0
    end if
Loop
if ex=1 then
    oConn.execute (sqlstring)  
end if
db1rs.Close
set db1rs=nothing
oConn.Close
set oConn=Nothing
 
Response.Redirect "register.asp"
%>
<!-- #INCLUDE FILE="cstyle" -->
    </body>
</html>

Last edited by wanksta; 09-04-07 at 00:57.. סיבה: הסתדרתי לבד
  Reply With Quote