Personal Web Server 4.0 [Archive]

reigalz

04-02-2003, 09:46 AM

hi i'm using the above server for my asp project....but i encountered an error!!

here's the error:

error 'ASP 0115'
Unexpected error

/IT3806/CheckDetails.asp

A trappable error occurred in an external object. The script cannot continue running.

anyone noes how to solve it?? :confused: and why does this error occur? thanks in advance!!

Roelf

04-02-2003, 10:06 AM

anyone noes how to solve it??

not with this information, we need to see some code to help

and why does this error occur?

You probably use an external object somewhere in your code, where an error occurred (in this case a trappable one)
but you dont trap the error and then operations stops.

reigalz

04-02-2003, 10:17 AM

here's my codes:

<%response.buffer=true%>

<html>

<head>
<title>Add User Account</title>
</head>

<body>

<%

dim username, pass, salutation, lastname, firstname, nric, d, mm, yy, gender, add, number, email

username = Request.Form("username")
pass = Request.Form("password")
salutation = Request.Form("salutation")
lastname = Request.Form("lastname")
firstname = Request.Form("firstname")
nric = Request.Form("nric")
d = Request.Form("day")
mm = Request.Form("month")
yy = Request.Form("year")
gender = Request.Form("gender")
add = Request.Form("address")
number = Request.Form("telephone")
email = Request.Form("email")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../aspProject.mdb"))

set rs1=Server.CreateObject("ADODB.recordset")

rs1.Open "SELECT (UserName, NRIC) FROM Members", conn

do until rs1.EOF

for each x in rs1.Fields

if x.name = "UserName" then

if x.value = username then

Response.redirect("UserNameAccountExist.asp")

else

exit for

end if

end if

if x.name = "NRIC" then

if x.value=nric then

Response.redirect("UserICAccountExist.asp")

else

exit for

end if

end if

next

rs1.MoveNext

loop

Dim sql, date

date = mm & "/" & d & "/" & yy

sql = "INSERT INTO Members VALUES ("
sql = sql & "'" & username & "',"
sql = sql & "'" & pass & "',"
sql = sql & "'" & salutation & "',"
sql = sql & "'" & lastname & "',"
sql = sql & "'" & firstname & "',"
sql = sql & "'" & nric & "',"
sql = sql & "#" & date & "#,"
sql = sql & "'" & gender & "',"
sql = sql & "'" & add & "',"
sql = sql & number & ","
sql = sql & "'" & email & "')"

conn.Execute sql

rs1.close
conn.close
set rs1 = Nothing
set conn = Nothing

%>

</body>

</html>