Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho um pequeno sistema para uma rádio, onde num local que o adimistrador cadastra 20 músicas, sendo o processo sempre o seguinte: antes de cadastrar as músicas em banco, o sistema já faz um delete do banco, e na próxima página recebe os dados do formulário somente para inserir em banco. Postarei abaixo o script da 2ª página, pois nunca vi este erro - (0x80020009).
Na 1ª página já foi feio o delete do banco inteiro...
2ª página que tenta cadastrar em bd:
<%
vmusica1=request.Form("musica1")
vnomemusica1=request.Form("nomemusica1")
vautormusica1=request.Form("nomeautor1")
vmusica2=request.Form("musica2")
vnomemusica2=request.Form("nomemusica2")
vautormusica2=request.Form("nomeautor2")
vmusica3=request.Form("musica3")
vnomemusica3=request.Form("nomemusica3")
vautormusica3=request.Form("nomeautor3")
vmusica4=request.Form("musica4")
vnomemusica4=request.Form("nomemusica4")
vautormusica4=request.Form("nomeautor4")
vmusica5=request.Form("musica5")
vnomemusica5=request.Form("nomemusica5")
vautormusica5=request.Form("nomeautor5")
vmusica6=request.Form("musica6")
vnomemusica6=request.Form("nomemusica6")
vautormusica6=request.Form("nomeautor6")
vmusica7=request.Form("musica7")
vnomemusica7=request.Form("nomemusica7")
vautormusica7=request.Form("nomeautor7")
vmusica8=request.Form("musica8")
vnomemusica8=request.Form("nomemusica8")
vautormusica8=request.Form("nomeautor8")
vmusica9=request.Form("musica9")
vnomemusica9=request.Form("nomemusica9")
vautormusica9=request.Form("nomeautor9")
vmusica10=request.Form("musica10")
vnomemusica10=request.Form("nomemusica10")
vautormusica10=request.Form("nomeautor10")
vmusica11=request.Form("musica11")
vnomemusica11=request.Form("nomemusica11")
vautormusica11=request.Form("nomeautor11")
vmusica12=request.Form("musica12")
vnomemusica12=request.Form("nomemusica12")
vautormusica12=request.Form("nomeautor12")
vmusica13=request.Form("musica13")
vnomemusica13=request.Form("nomemusica13")
vautormusica13=request.Form("nomeautor13")
vmusica14=request.Form("musica14")
vnomemusica14=request.Form("nomemusica14")
vautormusica14=request.Form("nomeautor14")
vmusica15=request.Form("musica15")
vnomemusica15=request.Form("nomemusica15")
vautormusica15=request.Form("nomeautor15")
vmusica16=request.Form("musica16")
vnomemusica16=request.Form("nomemusica16")
vautormusica16=request.Form("nomeautor16")
vmusica17=request.Form("musica17")
vnomemusica17=request.Form("nomemusica17")
vautormusica17=request.Form("nomeautor17")
vmusica18=request.Form("musica18")
vnomemusica18=request.Form("nomemusica18")
vautormusica18=request.Form("nomeautor18")
vmusica19=request.Form("musica19")
vnomemusica19=request.Form("nomemusica19")
vautormusica19=request.Form("nomeautor19")
vmusica20=request.Form("musica20")
vnomemusica20=request.Form("nomemusica20")
vautormusica20=request.Form("nomeautor20")
set conexao= Server.CreateObject("ADODB.connection")
conexao.open ConString
set rsinsere= Server.CreateObject("ADODB.recordset")
rsinsere.open("insert into tab_nomemusicas (musica1,musica2,musica3,musica4,musica5,musica6,musica7,musica8,musica9,musica10,musica11,musica12,musica13,musica14,musica15,musica16,musica17,musica18,musica19,musica20,nomemusica1,nomemusica2,nomemusica3,nomemusica4,nomemusica5,nomemusica6,nomemusica7,nomemusica8,nomemusica9,nomemusica10,nomemusica11,nomemusica12,nomemusica13,nomemusica14,nomemusica15,nomemusica16,nomemusica17,nomemusica18,nomemusica19,nomemusica20)values('"& vnomemusica1 &"','"& vnomemusica2 &"','"& vnomemusica3 &"','"& vnomemusica4 &"','"& vnomemusica5 &"','"& vnomemusica6 &"','"& vnomemusica7 &"','"& vnomemusica8 &"','"& vnomemusica9 &"','"& vnomemusica10 &"','"& vnomemusica11 &"','"& vnomemusica12 &"','"& vnomemusica13 &"','"& vnomemusica14 &"','"& vnomemusica15 &"','"& vnomemusica16 &"','"& vnomemusica17 &"','"& vnomemusica18 &"','"& vnomemusica19 &"','"& vnomemusica20 &"','"& vautormusica1 &"','"& vautormusica2 &"','"& vautormusica3 &"','"& vautormusica4 &"','"& vautormusica5 &"','"& vautormusica6 &"','"& vautormusica7 &"','"& vautormusica8 &"','"& vautormusica9 &"','"& vautormusica10 &"','"& vautormusica11 &"','"& vautormusica12 &"','"& vautormusica13 &"','"& vautormusica14 &"','"& vautormusica15 &"','"& vautormusica16 &"','"& vautormusica17 &"','"& vautormusica18 &"','"& vautormusica19 &"','"& vautormusica20 &"')"),conexao
vvalor="0"
vnometotal="-"
vtotal="total"
set rsinseremusica1= Server.CreateObject("ADODB.recordset")
rsinseremusica1.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica1 &"','"& vnomemusica1 &"','"& vvalor &"')"),conexao
set rsinseremusica2= Server.CreateObject("ADODB.recordset")
rsinseremusica2.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica2 &"','"& vnomemusica2 &"','"& vvalor &"')"),conexao
set rsinseremusica3= Server.CreateObject("ADODB.recordset")
rsinseremusica3.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica3 &"','"& vnomemusica3 &"','"& vvalor &"')"),conexao
set rsinseremusica4= Server.CreateObject("ADODB.recordset")
rsinseremusica4.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica4 &"','"& vnomemusica4 &"','"& vvalor &"')"),conexao
set rsinseremusica5= Server.CreateObject("ADODB.recordset")
rsinseremusica5.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica5 &"','"& vnomemusica5 &"','"& vvalor &"')"),conexao
set rsinseremusica6= Server.CreateObject("ADODB.recordset")
rsinseremusica6.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica6 &"','"& vnomemusica6 &"','"& vvalor &"')"),conexao
set rsinseremusica7= Server.CreateObject("ADODB.recordset")
rsinseremusica7.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica7 &"','"& vnomemusica7 &"','"& vvalor &"')"),conexao
set rsinseremusica8= Server.CreateObject("ADODB.recordset")
rsinseremusica8.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica8 &"','"& vnomemusica8 &"','"& vvalor &"')"),conexao
set rsinseremusica9= Server.CreateObject("ADODB.recordset")
rsinseremusica9.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica9 &"','"& vnomemusica9 &"','"& vvalor &"')"),conexao
set rsinseremusica10= Server.CreateObject("ADODB.recordset")
rsinseremusica10.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica10 &"','"& vnomemusica10 &"','"& vvalor &"')"),conexao
set rsinseremusica11= Server.CreateObject("ADODB.recordset")
rsinseremusica11.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica11 &"','"& vnomemusica11 &"','"& vvalor &"')"),conexao
set rsinseremusica12= Server.CreateObject("ADODB.recordset")
rsinseremusica12.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica12 &"','"& vnomemusica12 &"','"& vvalor &"')"),conexao
set rsinseremusica13= Server.CreateObject("ADODB.recordset")
rsinseremusica13.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica13 &"','"& vnomemusica13 &"','"& vvalor &"')"),conexao
set rsinseremusica14= Server.CreateObject("ADODB.recordset")
rsinseremusica14.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica14 &"','"& vnomemusica14 &"','"& vvalor &"')"),conexao
set rsinseremusica15= Server.CreateObject("ADODB.recordset")
rsinseremusica15.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica15 &"','"& vnomemusica15 &"','"& vvalor &"')"),conexao
set rsinseremusica16= Server.CreateObject("ADODB.recordset")
rsinseremusica16.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica16 &"','"& vnomemusica16 &"','"& vvalor &"')"),conexao
set rsinseremusica17= Server.CreateObject("ADODB.recordset")
rsinseremusica17.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica17 &"','"& vnomemusica17 &"','"& vvalor &"')"),conexao
set rsinseremusica18= Server.CreateObject("ADODB.recordset")
rsinseremusica18.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica18 &"','"& vnomemusica18 &"','"& vvalor &"')"),conexao
set rsinseremusica19= Server.CreateObject("ADODB.recordset")
rsinseremusica19.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica19 &"','"& vnomemusica19 &"','"& vvalor &"')"),conexao
set rsinseremusica20= Server.CreateObject("ADODB.recordset")
rsinseremusica20.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vmusica20 &"','"& vnomemusica20 &"','"& vvalor &"')"),conexao
set rsinseremusicatotal= Server.CreateObject("ADODB.recordset")
rsinseremusicatotal.open("insert into tab_recebevalormusicas (musica,musicax,valor)values('"& vtotal &"','"& vnometotal &"','"& vvalor &"')"),conexao
set rsinsere=nothing
set rsinseremusica1=nothing
set rsinseremusica2=nothing
set rsinseremusica3=nothing
set rsinseremusica4=nothing
set rsinseremusica5=nothing
set rsinseremusica6=nothing
set rsinseremusica7=nothing
set rsinseremusica8=nothing
set rsinseremusica9=nothing
set rsinseremusica10=nothing
set rsinseremusica11=nothing
set rsinseremusica12=nothing
set rsinseremusica13=nothing
set rsinseremusica14=nothing
set rsinseremusica15=nothing
set rsinseremusica16=nothing
set rsinseremusica17=nothing
set rsinseremusica18=nothing
set rsinseremusica19=nothing
set rsinseremusica20=nothing
set rsinseremusicatotal=nothing
conexao.Close
set conexao=nothing
%>Carregando comentários...