Múltipos inserts

[ahsc 1]

Olá a todos. Tenho uma dúvida. Estou criando um aplicativo e nele há um formulário que ao ser preenchido vai jogar informações em duas tabelas. Só que não consigo fazer o insert nas duas simultâneamente usando o mesmo script, há como fazê-lo?

 

códigos

 

CODE

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("../bd/azzurra.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

' cadastra os dados no banco de dados

sql = "Insert into produto (cod_subcategoria,cod_categoria,nome_produto,img_produto,explodida,descricao) values ('"& cod_subcategoria &"', '"& cod_categoria &"', '"& nome_produto &"','"& cfoto1 &"','"& cfoto &"', '"& descricao &"')"

Conexao.Execute(sql)

 

'cadasta os detalhes do produto'

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values('"21"','"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql2)

 

obtenho o seguinte erro:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/azzurra/web/novosite/intranet/addnotfoto1.asp, line 110, column 83

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values('"21"','"&motor&"','"&voltagem&"','"&detalhe&"')"

 

Agradeço a quem puder me ajudar.

[hargon 64]

O erro acontecesse porque você já informou o valor e colocou entre aspas simpes e dupla, sendo que necessitaria somente aspas simples para texto e no caso de campo numérico apenas o valor sem aspas.

 

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values('21','"&motor&"','"&voltagem&"','"&detalhe&"')"

 

 

Obs. Se a tabela possuir apenas uma chave primária, certeza que vai dar erro ao incluir o segundo registro.

 

Corrija a linha e tente novamente.

[ahsc 1]

O erro acontecesse porque você já informou o valor e colocou entre aspas simpes e dupla, sendo que necessitaria somente aspas simples para texto e no caso de campo numérico apenas o valor sem aspas.

 

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values('21','"&motor&"','"&voltagem&"','"&detalhe&"')"

 

 

Obs. Se a tabela possuir apenas uma chave primária, certeza que vai dar erro ao incluir o segundo registro.

 

Corrija a linha e tente novamente.

Deixa eu explicar melhor. Essa tabela de detalhe_produto ela não tem campo chave uma vez que ela é a entidade fraca do relacionamento entre produto e detalhe_produto. utilizo o cod_produto para que eu consiga saber de que produto é o detalhe.

 

O erro que ocorreu agora é o seguinte:

 

* Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

/azzurra/web/novosite/intranet/addnotfoto1.asp, line 111

 

* Tipo de navegador:

Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14

 

* Página:

POST 198761 bytes to /azzurra/web/novosite/intranet/addnotfoto1.asp

 

* POST Data:

erro '80020009'

 

Exceção.

 

/iisHelp/common/500-100.asp, line 223

 

a linha 111 onde dá o erro tem a linha de código: Conexao.Execute(sql2). Basicamente sem resover isso eu acabo atrasando o projeto, se você puder me ajudar eu agradeço.

[Mário Monteiro 179]

Tiozinho como foi dito o erro ta aqui

 

'"21"'

Se for variavel voce faz

 

'" & varivel & "'

agora se for o valor direto é sem aspas duplas

 

'21'

e se for campo numerico no Db é até sem as aspas simples

 

21

So isso

 

Faça isso que este erro acabará

 

Pode até aparecer outro depois mas este nao

[ahsc 1]

Tiozinho como foi dito o erro ta aqui

 

'"21"'

Se for variavel voce faz

 

'" & varivel & "'

agora se for o valor direto é sem aspas duplas

 

'21'

e se for campo numerico no Db é até sem as aspas simples

 

21

So isso

 

Faça isso que este erro acabará

 

Pode até aparecer outro depois mas este nao

Realmente você tinha razão, não houve o mesmo erro. O erro que me apareceu foi o seguinte:

CODE

* Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

/azzurra/web/novosite/intranet/addnotfoto1.asp, line 111

 

* Tipo de navegador:

Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14

 

* Página:

POST 16186 bytes to /azzurra/web/novosite/intranet/addnotfoto1.asp

 

* POST Data:

erro '80020009'

 

Exceção.

 

/iisHelp/common/500-100.asp, line 223

esse erro por sua vez está relacionado a linha 111 que tem o código:

CODE

Conexao.Execute(sql2)

A minha conexão com as duas inserções no bd estão assim:

CODE

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("../bd/azzurra.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

' cadastra os dados no banco de dados

sql = "Insert into produto (cod_subcategoria,cod_categoria,nome_produto,img_produto,explodida,descricao) values ('"& cod_subcategoria &"', '"& cod_categoria &"', '"& nome_produto &"','"& cfoto1 &"','"& cfoto &"', '"& descricao &"')"

Conexao.Execute(sql)

 

'cadasta os detalhes do produto'

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values(30,'"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql2)

Não sei o que posso fazer agora. Se alguém puder me dar um help nesse ponto eu agradeço. Tô começando a programar em asp agora e tô apanhando de 10x0

[Mário Monteiro 179]

o primeiro insert foi corretamente?

[ahsc 1]

Sim, o primeiro foi feito corretamente, o problema está nesse segundo. Aparentemente está tudo correto mais o erro permanece.

[Mário Monteiro 179]

estranho nao era para dar erro

 

tente com recordset so para ver se passa

 

 

em vez de

 

Conexao.Execute(sql2)

tente

set RS = server.CreateObject ("adodb.recordset")
RS.Open sql2, conexao, 3, 3

Poste o que aparecer

[hargon 64]

Putz...

 

Veja:

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values(30,'"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql2)

 

 

Você escreveu errado o nome das variáveis.

 

Não sei porque mais eu ainda caio nessa.... :huh:

[ahsc 1]

Putz...

 

Veja:

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values(30,'"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql2)

 

 

Você escreveu errado o nome das variáveis.

 

Não sei porque mais eu ainda caio nessa.... :huh:

Putz é verdade..... que mal..... http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[ahsc 1]

Tenho agora uma outra dúvida. Pequei no fórum um script para upload de imagem. Ele insere belezinha as imagens no bd e tudo mais. Então eu preciso, agora, fazer a atualização de registro e tb com possibilidade de se alterar a imagem, só que não consigo. Segue o código:

CODE

<!-- #include file="Upload.inc" -->

<%If session("usr_log_ok")="" Then

Response.Write "Você está Logado no sistema!"

Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

end if %>

<meta name="generator" content="Namo WebEditor v5.0">

<title>..::..Azzurra Representações - Sistema Administrativo..::..</title>

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link { Color:#666666 ;TEXT-DECORATION: none }

A:visited { Color:#666666 ;TEXT-DECORATION: none }

A:active { Color:#666666 ;TEXT-DECORATION: none }

A:hover { Color:#01A8E0 ;TEXT-DECORATION: underline }

</STYLE>

<body>

<p> </p>

 

<p align="center"><font face="Arial Black" color="red"><span style="font-size:14pt;">

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

' Recuperando os Dados Digitados ----------------------

nome_produto = UploadRequest.Item("nome_produto").Item("Value")

descricao = UploadRequest.Item("descricao").Item("Value")

cod_categoria = UploadRequest.Item("cod_categoria").Item("Value")

cod_subcategoria = UploadRequest.Item("cod_subcategoria").Item("Value")

motor = UploadRequest.Item("motor").Item("Value")

voltagem = UploadRequest.Item("voltagem").Item("Value")

detalhe = UploadRequest.Item("detalhe").Item("Value")

 

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

 

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

 

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

 

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto1 = UploadRequest.Item("foto1").Item("Value")

 

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("../imagem/")

nome_foto = "/"&nome_foto

nome_foto1 = "/"&nome_foto1

 

' pasta + nome dos arquivos

cfoto = "../imagem" + nome_foto

cfoto1 = "../imagem" + nome_foto1

 

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

 

if foto1 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(foto1)

MyFile.Write chr(AscB(MidB(foto1,i,1)))

Next

MyFile.Close

end if

 

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("../bd/azzurra.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

' cadastra os dados no banco de dados

sql = "Insert into produto (cod_subcategoria,cod_categoria,nome_produto,img_produto,explodida,descricao, motor, voltagem, detalhe) values ('"& cod_subcategoria &"', '"& cod_categoria &"', '"& nome_produto &"','"& cfoto1 &"','"& cfoto &"', '"& descricao &"','"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql)

 

 

 

 

' Mostra Mensagem de Confirmação na Tela

Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"

 

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"

%>

</span></font>

Upload.inc

CODE

<%

Sub BuildUploadRequest(RequestBin)

on error resume next

PosBeg = 1

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

BoundaryPos = InStrB(1, RequestBin, boundary)

Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

Dim UploadControl

Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))

Pos = InStrB(Pos, RequestBin, getByteString("name="))

PosBeg = Pos + 6

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))

PosBound = InStrB(PosEnd, RequestBin, boundary)

If PosFile <> 0 And (PosFile < PosBound) Then

PosBeg = PosFile + 10

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "FileName", FileName

Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))

PosBeg = Pos + 14

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "ContentType", ContentType

PosBeg = PosEnd + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

Else

Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))

PosBeg = Pos + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

End If

UploadControl.Add "Value", Value

UploadRequest.Add Name, UploadControl

BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)

Loop

End Sub

Function getByteString(StringStr)

For i = 1 To Len(StringStr)

Char = Mid(StringStr, i, 1)

getByteString = getByteString & ChrB(AscB(Char))

Next

End Function

Function getString(StringBin)

getString = ""

For intCount = 1 To LenB(StringBin)

getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))

Next

End Function

%>

 

e o código para atualização do bd. "addnotfoto1.asp"

CODE

<%If session("usr_log_ok")="" Then

Response.Write "Você está Logado no sistema!"

Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

end if %>

<%

set db = server.CreateObject("ADODB.connection")

dim caminho

caminho = server.MapPath("../bd/azzurra.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

cod_produto = request.Form("cod_produto")

nome_produto = request.form("nome_produto")

descricao = request.Form("descricao")

detalhe = request.Form("detalhe")

cod_categoria = request.Form("cod_categoria")

cod_subcategoria = request.Form("cod_subcategoria")

'response.Write(""&cod_produto&"")

motor = request.Form("motor")

voltagem = request.form("voltagem")

foto = request.Form("foto")

foto1 = request.Form("foto1")

sql = "update produto set nome_produto='"&nome_produto&"', descricao='"&descricao&"', detalhe='"&detalhe&"', cod_categoria='"&cod_categoria&"', cod_subcategoria='"&cod_subcategoria&"', motor='"&motor&"', voltagem='"&voltagem&"' where cod_produto="&cod_produto&""

set rs = db.execute(sql)

response.redirect "admin.asp?pagina=" & Request.QueryString("pagina")

rs.close

db.close

set rs = nothing

set db = nothing

 

%>

<meta name="generator" content="Namo WebEditor v5.0">

<title>..::..Azzurra Representações - Sistema Administrativo..::..</title>

<style TYPE="text/css">

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link { Color:#666666 ;TEXT-DECORATION: none }

A:visited { Color:#666666 ;TEXT-DECORATION: none }

A:active { Color:#666666 ;TEXT-DECORATION: none }

A:hover { Color:#01A8E0 ;TEXT-DECORATION: underline }

</STYLE>

<body>

<p> </p>

Form que recebe os dados para atualização:

CODE

<form name="form1" action="addnotfoto1.asp" method="post" enctype="multipart/form-data">

<tr>

<td width="60"><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Máquina:</b></span></font></td>

<td width="564" colspan="3"><input name="nome_produto" type="text" id="nome_produto" size="80"></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Resumo:</b></span></font></p></td>

<td width="564" colspan="3">

<p><textarea name="descricao" cols="74" rows="3" id="descricao"></textarea>

</p></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Detalhes:</b></span></font></p></td>

<td width="564" colspan="3">

<p><textarea name="detalhe" cols="74" rows="8" id="detalhe"></textarea>

</p></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Categoria:</b></span></font></p></td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b>

<select name="cod_categoria" size="1" id="cod_categoria">

<%

Dim strMenuItem, RsMenuItem

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

strMenuItem = "Select * FROM categoria "

Set RsMenuItem = Conexao.Execute(strMenuItem)

While NOT RsMenuItem.EOF

%>

<option value="<%= RsMenuItem("cod_categoria")%>"><%= RsMenuItem("categoria")%></option>

<%

RsMenuItem.MoveNext()

Wend

RsMenuItem.Close()

Set RsMenuItem = Nothing

%>

</select>

</b></span></font></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Sub-Categoria:</b></span></font></p></td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b>

<select name="cod_subcategoria" size="1" id="cod_subcategoria">

<%

Dim strMenuItem1, RsMenuItem1

set conexao1 = Server.CreateObject("ADODB.Connection")

conexao1.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao1.open

strMenuItem1 = "Select * FROM subcategoria "

Set RsMenuItem1 = Conexao1.Execute(strMenuItem1)

While NOT RsMenuItem1.EOF

%>

<option value="<%= RsMenuItem1("cod_subcategoria")%>"><%= RsMenuItem1("subcategoria")%></option>

<%

RsMenuItem1.MoveNext()

Wend

RsMenuItem1.Close()

Set RsMenuItem1 = Nothing

%>

</select>  </b></span></font></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Motor:</b></span></font></p></td>

<td width="226"><input name="motor" type="text" id="motor" size="30"></td>

<td width="85" align="right"><b><font face="Tahoma" color="red"><span style="font-size:9pt;">Voltagem:</span></font></b></td>

<td width="249"><input name="voltagem" type="text" id="voltagem" size="30"></td>

</tr>

<tr>

<td width="60"><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Explodida</b></span></font></td>

<td width="222"><input name="foto" type="file" id="foto" size="24"></td>

<td width="85" align="right"><b><font face="Tahoma" color="red"><span style="font-size:9pt;">Foto:</span></font></b></td>

<td width="249"><input name="foto1" type="file" id="foto1" size="25"></td>

</tr>

<tr>

<td colspan="4" width="628">

<p align="center"><input type="submit" name="submit" value="Cadastrar produto">

</td>

</tr>

</form>

</table>

Como fazer para que a foto tb seja atualizada quando o usuário desejar?

[hargon 64]

Bom, já que a primeira dúvida foi resolvida, crie um novo tópico para ser discutido o novo assunto. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

Putz...

 

Veja:

slq2="Insert into detalhe_produto (cod_produto, motor, voltagem, detalhe) values(30,'"&motor&"','"&voltagem&"','"&detalhe&"')"

Conexao.Execute(sql2)

 

Você escreveu errado o nome das variáveis.

 

Não sei porque mais eu ainda caio nessa.... :huh:

O pior é que nao tinham muitas explicações ja que a primeira funcionou

 

Qual exatamente o problema com a atualização das imagens?

[ahsc 1]

Ele não deixa atualizar, o tempo de execução do iis estoura e dá erro na página. Basicamente só falta essa atualização da imagem para que a página fique atualizada.

[Mário Monteiro 179]

mas voce esta usando imagens muito grandes?

 

qual o erro exatamente?

[ahsc 1]

Não são imagens grandes, utilizo parte do script do arquivo "addnotfoto1.asp" para que quando eu quiser escolher uma imagem esse script mova a imagem para a pasta correta e no comando de update ele apenas troque o caminho. O erro que dá é que o tempo de execução do script pelo iis estorou. Não dá erro de sintax ou coisa parecida.

[ahsc 1]

Esse é o erro gerado quando tento atualizar a página:

 

CODE

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

 

Experimente o seguinte:

 

* Clique no botão Atualizar ou tente novamente mais tarde.

* Abra a localhost home page e procure os links para as informações desejadas.

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

Informações técnicas (para a equipe de suporte)

 

* Tipo de erro:

Active Server Pages, ASP 0113 (0x80004005)

O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.

/azzurra/web/novosite/intranet/altera1.asp

 

* Tipo de navegador:

Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14

 

* Página:

POST 2394 bytes to /azzurra/web/novosite/intranet/altera1.asp

 

* POST Data:

erro '80020009'

 

Exceção.

 

/iisHelp/common/500-100.asp, line 223

 

E o script que utilizo para atualização é este.

 

CODE

<!-- #include file="Upload.inc" -->

<%If session("usr_log_ok")="" Then

Response.Write "Você está Logado no sistema!"

Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

end if %>

<%

 

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

' Recuperando os Dados Digitados ----------------------

cod_produto = UploadRequest.Item("cod_produto").Item("Value")

nome_produto = UploadRequest.Item("nome_produto").Item("Value")

descricao = UploadRequest.Item("descricao").Item("Value")

cod_categoria = UploadRequest.Item("cod_categoria").Item("Value")

cod_subcategoria = UploadRequest.Item("cod_subcategoria").Item("Value")

motor = UploadRequest.Item("motor").Item("Value")

voltagem = UploadRequest.Item("voltagem").Item("Value")

detalhe = UploadRequest.Item("detalhe").Item("Value")

 

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

 

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

 

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

 

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto1 = UploadRequest.Item("foto1").Item("Value")

 

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("../imagem/")

nome_foto = "/"&nome_foto

nome_foto1 = "/"&nome_foto1

 

' pasta + nome dos arquivos

cfoto = "../imagem" + nome_foto

cfoto1 = "../imagem" + nome_foto1

 

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

 

if foto1 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(foto1)

MyFile.Write chr(AscB(MidB(foto1,i,1)))

Next

MyFile.Close

end if

 

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("../bd/azzurra.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

 

'cod_produto = request.Form("cod_produto")

'nome_produto = request.form("nome_produto")

'descricao = request.Form("descricao")

'detalhe = request.Form("detalhe")

'cod_categoria = request.Form("cod_categoria")

'cod_subcategoria = request.Form("cod_subcategoria")

'response.Write(""&cod_produto&"")

'motor = request.Form("motor")

'voltagem = request.form("voltagem")

'foto = request.Form("foto")

'foto1 = request.Form("foto1")

sql = "update produto set nome_produto='"&nome_produto&"', descricao='"&descricao&"', detalhe='"&detalhe&"', cod_categoria='"&cod_categoria&"', cod_subcategoria='"&cod_subcategoria&"', motor='"&motor&"', voltagem='"&voltagem&"', img_produto='"&cfoto&"', explodida='"&cfoto1&"' where cod_produto="&cod_produto&""

set rs = db.execute(sql)

response.redirect "admin.asp?pagina=" & Request.QueryString("pagina")

rs.close

db.close

set rs = nothing

set db = nothing

 

%>

<meta name="generator" content="Namo WebEditor v5.0">

<title>..::..Azzurra Representações - Sistema Administrativo..::..</title>

<style TYPE="text/css">

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link { Color:#666666 ;TEXT-DECORATION: none }

A:visited { Color:#666666 ;TEXT-DECORATION: none }

A:active { Color:#666666 ;TEXT-DECORATION: none }

A:hover { Color:#01A8E0 ;TEXT-DECORATION: underline }

</STYLE>

<body>

<p> </p>

 

O form que posta as informações para que o script acima proceda corretamente é este:

 

CODE

<%If session("usr_log_ok")="" Then

Response.Write "Você está Logado no sistema!"

Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

Else %>

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link { Color:#666666 ;TEXT-DECORATION: none }

A:visited { Color:#666666 ;TEXT-DECORATION: none }

A:active { Color:#666666 ;TEXT-DECORATION: none }

A:hover { Color:#01A8E0 ;TEXT-DECORATION: underline }

.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}

</STYLE>

<title>..::..Azzurra Representações - Sistema Administrativo..::..</title>

<body><table width="642" align="center">

<form name="aspacc" method="post" action="altera1.asp">

<tr>

<td height="50" colspan="2" align="left" valign="middle"><img name="logo_azzurra" src="../imagem/logo_azzurra1.png" width="203" height="68" border="0" alt="logo"> </td>

<td height="40"> </td>

<td height="40"><div align="right"><span style="margin-bottom: 0"><font face="Arial"><span style="font-size:9pt;"><b>Olá,</b></span><span style="font-size:12pt;"><b> </b></span></font><font face="Arial" color="red"><span style="font-size:10pt;"><b><%=rs("Nome_usuario")%></b></span></font><font face="Arial"><span style="font-size:10pt;"><b> seja bem vindo<br>

<%end if%>

</b></span></font></span></div></td>

</tr>

<tr>

<td height="50" colspan="4" align="left" valign="middle"><font face="Arial"><span style="font-size:11pt;"><b>D</b></span><span style="font-size:9pt;"><b>icas de formatação!</b></span></font></td>

</tr>

<tr>

<td colspan="4"><span style="line-height:100%; margin-top:0; margin-bottom:0;"><font size="1" face="Arial,Arial"><font size="1"><span class="style1"><strong>Negrito:</strong> <b>Texto</b> | Resultado: <b>Texto</b><br>

<strong>Italico:</strong> <i>Texto</i> | Resultado: <em>Texto</em> <br>

<strong>Sublinhado:</strong> <u>Texto</u> | Resultado: <u>Texto</u> <br>

<strong>Links:</strong> <a href="Endereço">Texto</a> <br>

- Exemplo: <a href="http://www.silvaextreme.com.br">Texto</a>

| Resultado: <a href="#">Texto</a><br>

<strong>Centralizar:</strong> <Center>Texto</center>

| Resultado: Deixa o texto centralizado<br>

<strong>Ir para Proxima linha:</strong> <br><br>

<strong>Pular uma linha:</strong> <p> ou <br><br><br>

<strong>Tamanho da Letra:</strong> <font size="1">Texto</font>

| Size vai de -7 até +7<br>

- Exemplo: <font size="3">Texto</font>

| Resultado: </span></font><span class="style1"><font size="3">Texto</font><font size="1"><br>

<font color="#FF0000"><strong><br>

OBs:</strong></font> Lembre-se sempre de fechar o que abrir

exemplo: <strong><b></strong> (Abriu), <strong></b></strong> (Fechou), só não precisa fechar <strong><br></strong> e o<strong> <P></strong></font></span></font></span></td>

</tr>

<tr>

<td height="50" colspan="4"> </td>

</tr>

<form name="cidosilva" method="post" action="altera1.asp">

<tr>

<td width="63" align="right" valign="middle"><b><font face="Tahoma"><span style="font-size:9pt;">Máquina:

</span></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../bd/azzurra.mdb")

sql = "SELECT * FROM produto WHERE cod_produto=" & Request.QueryString("cod_produto") & ""

set Rs = Con.Execute(sql)

%>

</font></td>

<td colspan="3"><input name="nome_produto" type="text" id="nome_produto" value="<%=Rs("nome_produto")%>" size="80"></td>

</tr>

<tr>

<td width="63" align="right" valign="top">

<p><b><font face="Tahoma"><span style="font-size:9pt;">Resumo:</span></font></b></p></td>

<td colspan="3">

<p><textarea name="descricao" cols="74" rows="3" id="descricao"><%=Rs("descricao")%></textarea></p></td>

</tr>

<tr>

<td width="63" align="right" valign="top">

<p><b><font face="Tahoma"><span style="font-size:9pt;">Detalhes:</span></font></b></p></td>

<td colspan="3">

<p><textarea name="detalhe" cols="74" rows="8" id="detalhe"><%=Rs("detalhe")%></textarea></p></td>

</tr>

<tr>

<td width="63" align="right" valign="middle">

<p><b><font face="Tahoma"><span style="font-size:9pt;">Categoria:</span></font></b></p></td>

<td colspan="3"><select size="1" name="cod_categoria" id="cod_categoria">

<%

Dim strMenuItem, RsMenuItem

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao.open

strMenuItem = "Select * FROM categoria "

Set RsMenuItem = Conexao.Execute(strMenuItem)

While NOT RsMenuItem.EOF

%>

<option value="<%= RsMenuItem("cod_categoria")%>"><%= RsMenuItem("categoria")%></option>

<%

RsMenuItem.MoveNext()

Wend

RsMenuItem.Close()

Set RsMenuItem = Nothing

%>

</select></td>

</tr>

<tr>

<td width="63" align="right" valign="middle">

<p><b><font face="Tahoma"><span style="font-size:9pt;">Sub-Categoria:</span></font></b></p></td>

<td colspan="3"><select size="1" name="cod_subcategoria" id="cod_subcategoria">

<%

Dim strMenuItem1, RsMenuItem1

set conexao1 = Server.CreateObject("ADODB.Connection")

conexao1.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../bd/azzurra.mdb")&";"

conexao1.open

strMenuItem1 = "Select * FROM subcategoria "

Set RsMenuItem1 = Conexao1.Execute(strMenuItem1)

While NOT RsMenuItem1.EOF

%>

<option value="<%= RsMenuItem1("cod_subcategoria")%>"><%= RsMenuItem1("subcategoria")%></option>

<%

RsMenuItem1.MoveNext()

Wend

RsMenuItem1.Close()

Set RsMenuItem1 = Nothing

%>

</select></td>

</tr>

<tr>

<td width="63" align="right" valign="middle">

<p><b><font face="Tahoma"><span style="font-size:9pt;">Motor:</span></font></b></p></td>

<td width="245"><input name="motor" type="text" id="motor" value="<%=Rs("motor")%>" size="30">

  </td>

<td width="70" align="right" valign="middle"><b><font face="Tahoma"><span style="font-size:9pt;">Voltagem:</span></font></b></td>

<td width="244" align="left"><input name="voltagem" type="text" id="voltagem" value="<%=Rs("voltagem")%>" size="30"></td>

</tr>

<tr>

<td align="right" valign="middle">

<p align="right"><b><font face="Tahoma"><span style="font-size:9pt;">Explodida:</span></font></b></td>

<td><input name="foto" type="file" id="foto" size="24" ></td>

<td align="right" valign="middle"><b><font face="Tahoma"><span style="font-size:9pt;">Foto:</span></font></b></td>

<td><input name="foto1" type="file" id="foto1" size="25"></td>

</tr>

<tr>

<td height="35" colspan="4" align="right" valign="bottom"><a href="java script:history.back();"><font face="Arial" size="2" color="red"><b>voltar</b></font></a>  

<input name="cod_produto" type="hidden" id="cod_produto" value='<%=request.querystring("cod_produto")%>'>

<input type="submit" name="submit" value="Alterar produto"></td>

</tr>

</form>

</table>

 

 

Realmente não sei onde há o erro, se alguém puder ajudar eu agradeço.