Adicionando
Registros com o método ADO Add New
1 <TITLE>dbnewADO.asp</TITLE>
2 <body
bgcolor="#FFFFFF">
3 <HTML>
4 <%
5 on
error resume next
6 aunome=request.querystring("nome")
7 auano=request.querystring("ano")
8 auID=request.querystring("ID")
9 Set
Conn = Server.CreateObject("ADODB.Connection")
10 '
DSN usuário senha
11 conn.open
"Estudante","Estudante","magic"
12 Set
RS = Server.CreateObject("ADODB.Recordset")
13 RS.Open
"autores",Conn,3,3
14 RS.AddNew
15 RS("AU_ID")=auid
16 RS("autor")
= aunome
17 RS("ano_nasc")=
int(auano)
18 RS.Update
19 RS.Close
20 Conn.Close
21 If
err.number>0 then
22
response.write "Ocorreram Erros:" &
"<P>"
23
response.write "Número=" & err.number &
"<P>"
24
response.write "Descrição=" & err.description
& "<P>"
25
response.write "Help Context=" & err.helpcontext
& "<P>"
26
response.write "Help Path=" & err.helppath &
"<P>"
27
response.write "Native Error=" & err.nativeerror
& "<P>"
28
response.write "Source=" & err.source &
"<P>"
29
response.write "SQLState=" & err.sqlstate &
"<P>"
30 else
31
response.write "Nenhum erro apareceu!" &
"<P>"
32 end
if
33 IF
conn.errors.count> 0 then
34
response.write "Ocorreram erros no Database!" &
"<P>"
35 for
counter= 0 to conn.errors.count
36
response.write "Número " &
conn.errors(counter).number & "<P>"
37
response.write "Descrição -> " &
conn.errors(counter).description & "<P>"
38 next
39 else
40
response.write "Nenhum ocorreu no Database!" &
"<P>"
41 end
if
42 %>
43 </BODY>
44 </HTML>
Copyright (c) 1998 - Alexandre Barreto