Wrox Home  
Search P2P Archive for: Go

  Return to Index  

access_asp thread: Error while inserting/Updating to the DB


Message #1 by "Santosh" <santosh_bn1@y...> on Fri, 31 Aug 2001 12:44:47
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"))









%>

  Return to Index