T
tony
Please could you assist me on this query. i have to
complete this task the earliest time. i am not that
experienced in asp, but i manage more and less to
program basic functionalities....
i have included a form in my application. on
submission, i store the form typed data in an MS
ACCESS DATABASE. the number of inputs in the form is
not constant and the user is expected to alter his
choice. therefore, before writing to the database, i
first delete the previous data linked to that user,
then i write the new submitted data.
this basic op. works fine. however, if i change the
form content quickly, i see that the newly data is
not included. generally, i have found 15-20 seconds
enough time between 2 submissions to be both stored
in the database. i am using ISS on my local machine,
so i have not deployed it on a common public server.
the above inconvenient really annoys me, just
imagine the inconevenience that occurs especially
with high number of concurent users ....
i don't know if there a problem with my code, or
access...
i am attaching below my code
many thanks
===========================
<%
option explicit
%>
<html>
<head>
<title> Submit user selectiosn to Database</title>
<link rel="Stylesheet" href="Stylesheet.css"
type="text/css">
</head>
<body>
<h1>Submit the Changes to the Web Site Database</h1>
<%
Dim dbname, cnpath, connStr, sql, connect, rs
dbname = "userDb"
cnpath = "DBQ=" + Server.mappath(dbname)
connStr = "DRIVER={Microsoft Access Driver (*.mdb)};
" + cnpath
on error resume next
set connect =
Server.CreateObject("ADODB.Connection")
connect.open(connStr)
set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
Dim N,Title
N=Session("TitlesNum")
sql = "Delete * from tbl_user where
tbl_user.Email ='" & Session("Email") & "'"
rs.open sql, connect,3,3
'rs.Close
'connect.Close
'connect.open(connStr)
sql = "Select * from tbl_user where tbl_user.Email
='" & Session("Email") & "'"
rs.open sql, connect,3,3
for i=1 To N
rs.AddNew
rs("Title") = request.form(Title)
rs.update
response.Write("update done ....")
NEXT
response.write("<P>Your preferences are now
stored")
rs.close
set rs=nothing
set connect=nothing
%>
<p><center><font size="5">
<a href="Home.asp">Home</a>
</body>
</html>
complete this task the earliest time. i am not that
experienced in asp, but i manage more and less to
program basic functionalities....
i have included a form in my application. on
submission, i store the form typed data in an MS
ACCESS DATABASE. the number of inputs in the form is
not constant and the user is expected to alter his
choice. therefore, before writing to the database, i
first delete the previous data linked to that user,
then i write the new submitted data.
this basic op. works fine. however, if i change the
form content quickly, i see that the newly data is
not included. generally, i have found 15-20 seconds
enough time between 2 submissions to be both stored
in the database. i am using ISS on my local machine,
so i have not deployed it on a common public server.
the above inconvenient really annoys me, just
imagine the inconevenience that occurs especially
with high number of concurent users ....
i don't know if there a problem with my code, or
access...
i am attaching below my code
many thanks
===========================
<%
option explicit
%>
<html>
<head>
<title> Submit user selectiosn to Database</title>
<link rel="Stylesheet" href="Stylesheet.css"
type="text/css">
</head>
<body>
<h1>Submit the Changes to the Web Site Database</h1>
<%
Dim dbname, cnpath, connStr, sql, connect, rs
dbname = "userDb"
cnpath = "DBQ=" + Server.mappath(dbname)
connStr = "DRIVER={Microsoft Access Driver (*.mdb)};
" + cnpath
on error resume next
set connect =
Server.CreateObject("ADODB.Connection")
connect.open(connStr)
set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
Dim N,Title
N=Session("TitlesNum")
sql = "Delete * from tbl_user where
tbl_user.Email ='" & Session("Email") & "'"
rs.open sql, connect,3,3
'rs.Close
'connect.Close
'connect.open(connStr)
sql = "Select * from tbl_user where tbl_user.Email
='" & Session("Email") & "'"
rs.open sql, connect,3,3
for i=1 To N
rs.AddNew
rs("Title") = request.form(Title)
rs.update
response.Write("update done ....")
NEXT
response.write("<P>Your preferences are now
stored")
rs.close
set rs=nothing
set connect=nothing
%>
<p><center><font size="5">
<a href="Home.asp">Home</a>
</body>
</html>