Hi,
when i submit the form the form just hangs its not getting submitted..all
data going in to asp file is valid as i checked by printing each value to
be inserted before submitting.....i am using access 2K DB on win 2K....see
the code below
<%
Dim ab,ac,ad
ab=request.form("date1")
ac=request.form("Var1")
ad=request.form("Var2")
set myconn=server.createobject("ADODB.connection")
myconn.open "FILEDSN=C:\nanjsan\timesheet.dsn"
sql1="select Team from Activity where Acdate="CDate(ab)#&" and
Userid='"&request.form("userid")&"' "
set rs=myconn.execute(sql1)
if rs.EOF then
Sql= "insert into Activity values ('"&request.form("userid")&"','"CDate
(ab)#&"','"&request.form("teams")&"','"&request.form("leave")
&"','"&request.form("analysis")&"','"&request.form("Reproduction")
&"','"&request.form("Fixing")&"','"&request.form("Review")
&"','"&request.form("Testing")&"','"&request.form("Coding")
&"','"&request.form("EnvSetup")&"','"&request.form("Meeting")
&"','"&request.form("ntadmin")&"','"&request.form("ccadmin")
&"','"&request.form("Training")&"','"&request.form("SelfStudy")
&"','"&request.form("Overtime")&"','"&request.form("Miscellanious")
&"','"&request.form("TOTAL")&"','"&request.form("Comments")
&"','"&request.form("Flag")&"')"
else
Sql=" update Activity Set Team='"&request.form("teams")
&"',Leave='"&request.form("leave")&"',Analysis='"&request.form("analysis")
&"',Reprod='" &request.form("Reproduction")&"',Fixing='"&request.form
("Fixing")&"',Review='"&request.form("Review")&"',Testing='" &request.form
("Testing")&"',Coding='"&request.form("Coding")&"',Envsetup='"&request.form
("EnvSetup")&"', Meeting='"&request.form("Meeting")
&"',Ntadmin= '"&request.form("ntadmin")&"', CCadmin='"&request.form
("ccadmin")&"',Training='"&request.form("Training")&"',Selfstudy= '"
&request.form("SelfStudy")&"', Overtime='"&request.form("Overtime")
&"',Misc='"&request.form("Miscellanious")&"',Total= '"&request.form
("TOTAL")&"', Comments='"&request.form("Comments")&"' where
Acdate='"CDate(ab)#&"' and Userid='"&request.form("userid")&"' "
end if
response.write("Sql")
set rs=myconn.execute(Sql)
response.write("Successfully Entered for ")
response.write(" User: ")
response.write(request.form("userid"))
%>