No Error, No Insert: ASP to Access

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 425,932 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,672 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

Thread Tools Display Modes

Views: 1649 | Replies: 1

•

Join Date: Jan 2007

Posts: 10

Reputation: nekesa is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

nekesa

Offline

Newbie Poster

No Error, No Insert: ASP to Access

Jan 23rd, 2007

I hope someone can help me decide what is happening with this. It recognizes and carries out the select statement, will redirect to the proper place if entry is valid/invalid, but will not insert anything into the database. I first wanted an timestamp but am trying to troubleshoot backwards and simply enter text. Still no go. (Here is the code. First post. Hope I do this right)

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<%
Dim conn,rs,strsql,sql_insert
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
 
'DSN less connection
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\shared\Casework.mdb"
 
strsql = "Select SSN From CWCT07 where SSN = '" & _ 
Request.Form("SSN") & "'"
set rs = conn.Execute (strsql)
 
 
    If (not rs.BOF) and (not rs.EOF) then
    sql_insert = "insert into CWCT07 (cps) values ('Yes')"
    'response.Write(sql_Insert)
    set sql_insert = conn.Execute (sql_insert)
   Response.Redirect "http://cwpsalem.pdx.edu/staff/Index.html" 
else
   Response.Redirect "http://cwpsalem.pdx.edu"
end if
 
response.write strsql
 
'close the recordset
rs.close
set rs = nothing
 
'close the connection
conn.close
set conn = nothing
%>
</script> 
<%
Dim conn,rs,strsql,sql_insert
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\shared\Casework.mdb"

strsql = "Select SSN From CWCT07 where SSN = '" & _ 
Request.Form("SSN") & "'"
set rs = conn.Execute (strsql)

    
    If (not rs.BOF) and (not rs.EOF) then
    sql_insert = "insert into CWCT07 (cps) values ('Yes')"
    'response.Write(sql_Insert)
    set sql_insert = conn.Execute (sql_insert)
   Response.Redirect "http://cwpsalem.pdx.edu/staff/Index.html" 
else
   Response.Redirect "http://cwpsalem.pdx.edu"
end if

response.write strsql

'close the recordset
rs.close
set rs = nothing

'close the connection
conn.close
set conn = nothing
%>
</script> 

Thanks for any help.

•

Join Date: Nov 2005

Location: Dubai,UAE

Posts: 36

Reputation: noman78 is an unknown quantity at this point

Rep Power: 3

Solved Threads: 0

noman78

Offline

Light Poster

Re: No Error, No Insert: ASP to Access

Jan 25th, 2007

hi there
it seems u r new to asp
here is ur mistake
instead of this
set sql_insert = conn.Execute (sql_insert)
use this
conn.Execute (sql_insert)

it will work