[ ด่วน !!!!!!!! ช่วยหน่อยครับ ส่ง PROJECT พรุ่งนี้แล้ว !!!! ] ไม่ไหวแล้วครับ ยังไม่ได้นอนเลย

<%
Dim conn
Function ConnectDB()
set conn = Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../db/mt.mdb")
If Err.Number = 0 Then
	ConnectDB = True
Else
	ConnectDB = False
End If
End Function
%>

<%
Dim fname, lname, email, user, pass, cpass
Dim sql,isql,rs

fname = Request.Form("fname")
lname = Request.Form("lname")
email = Request.Form("email")
cususer = Request.Form("user")
cuspass = Request.Form("pass")
cpass = Request.Form("cpassl")

If ConnectDB() = True Then
sql = "select username from customers where username='"&cususer&"'"
set rs=conn.Execute(sql) ' line ที่มันบอก error
If Not rs.EOF Then
	Response.Write "<b>Can not register, the username that you entered is already be used by the other</b><br>"
	Response.Write "<a href='#' onclick='history.back()'>Back</a>"
	Response.End
End If		
isql = "insert into customers ( username,customerpass,firstname,lastname,email)"&" values ('"&cususer&"','"&cuspass&"','"&fname&"','"&lname&"','"&email&"')"
Conn.Execute(isql)
Response.Write "Registered successfull, please choose."
Response.Write "<a href=viewcart.asp>Cart</a> "
Response.Write "or <a href=checkout.asp>Checkout</a> "
Response.Write "as you want."
End If
Session("user") = cususer
 rs.close
  conn.Close
%>	

<%
Dim fname, lname, email, user, pass, cpass
Dim sql,isql,rs

fname = Request.Form("fname")
lname = Request.Form("lname")
email = Request.Form("email")
cususer = Request.Form("user")
cuspass = Request.Form("pass")
cpass = Request.Form("cpassl")

If ConnectDB() = True Then
'sql = "select username from customers where username='"&cususer&"'"
'set rs=conn.Execute(sql)
'If Not rs.EOF Then
'	Response.Write "<b>Can not register, the username that you entered is already be used by the other</b><br>"
'	Response.Write "<a href='#' onclick='history.back()'>Back</a>"
'	Response.End
'End If		
isql = "insert into customers ( username,customerpass,firstname,lastname,email)"&" values ('"&cususer&"','"&cuspass&"','"&fname&"','"&lname&"','"&email&"')"
Conn.Execute(isql)
Response.Write "Registered successfull, please choose."
Response.Write "<a href=viewcart.asp>Cart</a> "
Response.Write "or <a href=checkout.asp>Checkout</a> "
Response.Write "as you want."
End If
Session("user") = cususer
 rs.close
  conn.Close
%>