עריכה:
הסתדרתי כבר... אפשר לנעול את ההודעה
כשהשם משתמש והאימייל פנויים הוא עובד טוב
וכשלא הוא רושם לי:
קוד:
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" -->
<%
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>
09-04-07, 00:14
תצורת אשכולות