Erro De Sintaxe

mortal · Agosto 17, 2007

<%@LANGUAGE="VBSCRIPT" %>
<!--#include file="conexao.asp"-->


<%IF request.QueryString("codigo")="" and request.QueryString("descricao")="" and Request.ServerVariables("Request_Method")<>"Post" then%>


<html>
<head>
<title> | Consulta/Atualização de Produtos |</title>
</head>
<body leftmargin="60" topmargin="30">
<center>

<style>
    a:link{text-decoration: none; color: blue}
    a:hover{text-decoration: underline; color: red}
    a:visited{text-decoration: none; color: gray}
</style>

<style type="text/css">
div#container
{
   width: 800px;
   position: relative;
   margin-top: 0px;
   margin-left: auto;
   margin-right: auto;
   text-align: left;
}
body
{
   text-align: center;
   margin: 0;
}
</style>

<br><br>
<%
SQL = "SELECT * FROM Produtos"
Set RS=Conexao.Execute(SQL)
%>

<table border="0" cellpadding="5" cellspacing="1" bordercolor="blue">
<tr>
<th bgcolor="black"><font size="2" color="white">Produto</font></th>
<th bgcolor="black"><font size="2" color="white">Gênero</font></th>
<th bgcolor="black"><font size="2" color="white">Valor</font></th>
<th bgcolor="black"><font size="2" color="white">Img</font></th>
<th bgcolor="black"><font size="2" color="white">Formas de Pgto.</font></th>
<th bgcolor="black"><font size="2" color="white">Descrição</font></th>
</tr>

<%
Do While Not RS.EOF

valor = RS("prod_valor")

SQL1 = "SELECT gen_descricao FROM Genero WHERE gen_codigo = " & RS("gen_codigo")
Set genero = Conexao.Execute(SQL1)
%>

<tr>
<td bgcolor="#EEEEE0" width="270"><font size="2">
        <a href='con_prod.asp?codigo=<%=RS("Prod_codigo")%>'>
        <%=RS("Prod_nome")%>

</td>

<td bgcolor="#EEEEE0"><font size="2">
        <%=genero("gen_descricao")%></td>

<td bgcolor="#EEEEE0"><font size="2">
    R$ <%=FormatNumber(valor,2,-1,0,-1)%>
</td>

<td bgcolor="#EEEEE0"><font size="2">
<a href="<% = rs("Prod_img") %>">Ver</a></td>

<td bgcolor="#EEEEE0" width="230"><font size="2">
<%=RS("Formas_pgto")%></td>

<td bgcolor="#EEEEE0" width="20" align="center"><font size="2">
<a href='descricao_prod.asp?descricao=<% = RS("Prod_codigo")%>'>Ver</a></td>
<input type="hidden" name="Cod">

</tr>
<%
RS.MoveNext
Loop
RS.Close
Conexao.Close
Set RS = Nothing
%>
</table>
<%
Else
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_nome='" & Request.Form("nome") & "' WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";")
Conexao.Execute ("UPDATE Produtos SET Produtos.gen_codigo='" & Request.Form("Genero") & "' WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";")
Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_valor='" & Request.Form("Valor") &  "' WHERE Produtos.Prod_codigo="& Request.QueryString("codigo")& ";")
Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_img='" & Request.Form("imagem") &  "' WHERE Produtos.Prod_codigo="&Request.QueryString("codigo")& ";")
%>
<center>
<font size="2" face="Verdana" color="brown">
<%Response.write("Dados atualizados com sucesso!")%>
</font>
<p>
<a href="con_prod.asp">
<img src="imagens/nova_alteracao.gif" with="95" height="15" border="0"></a>
<%
Else
SQL = "SELECT * FROM [Produtos] where Produtos.Prod_codigo=" & Request.QueryString("codigo")
Set RS = Conexao.Execute(SQL)
valor  = RS("Prod_valor")
%>
<center>
<font size="2" face="Verdana" color="brown">
<h3>Atualizar Produtos</h3><br>
<hr size="1" color="black">
<p>
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#EEEEE0">
<form method="POST" action='con_prod.asp?codigo=<%=Request.QueryString("codigo")%>'>
<tr>
Nome:<br>
  <input type="text" name="nome" size="40" maxlength="40"
   value='<%=RS("Prod_nome")%>'><p>
Gênero:<br>
  <select name=genero>
  <%
  set lista_genero = Conexao.Execute("SELECT * FROM Genero")
  While not lista_genero.EOF
  %>
      <option value="<%=lista_genero("gen_codigo")%>">
       <%=lista_genero("gen_descricao")%></option>
      <%
lista_genero.MoveNext
Wend
%>
</select>
<p>
Valor: <br>
<input type="text" name="valor" size="10" maxlength="10" value="<%=FormatNumber(Prod_valor,2,-1,0,-1)%>"><p>
Imagem:<br>
<input type="text" name="imagem" size="40" maxlenght="40" value="<%=RS("Prod_img")%>"><p>
<td align="center" colspan="2">
<input type="image" name="submit" src="imagens/atualizar_reg.gif"
 with="110" height="15"></td>
</tr>

</form>
</table>
<%End If%>
<%End If%>
<%
Else
If request.QueryString("descricao")="" then
Conexao.Execute
SQL3 = "SELECT * FROM Produtos.Prod_codigo=" & Request.QueryString("descricao")
Set rs3 = Conexao.Execute(SQL3)

<table border ="0" cellpading="2" cellspacing="1" bordercolor="blue">
<tr>
    <th bgcolor="black"><font size="2" color="white">C&oacute;digo</font></th>
    <th bgcolor="black" width="200"><font size="2" color="white">Descrição</font></th>
</tr>
<%
Do While Not RS.Eof
%>

<tr>
    <td bgcolor="#EEEEE0" align="center"><Font size="2" color="black"><%=rs3("Prod_codigo")%></td></font>
    <td bgcolor="#EEEEE0" align="center"><Font size="2" color="black"><%=rs3("Descricao_res")%></td></font>
</tr>

<% rs3.MoveNext
Loop
rs3.close
conexao.close
Set rs3 = Nothing
%>
</table>

<%End If%>
</center>
</body>
</html>

eu queria fazer um esquema assim:

na parte do nome do produto, funciona direitinho, se você clikar em cima do nome do produto, pega o código do produto e gera uma página para alteração dos dados do produto: nome, valor,imagem, e talzz.

Tem uma outra parte da tabela que se chama descricação do produto e você clika em ver, ele até pega o código do produto , mas na hora de gerar a página de consulta dos dados do produto selecionado não funciona. Dá o seguinte erro aí que tá relatado

Alguém me ajuda aí to esperando hein

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)
Erro de sintaxe
/sitescurso/novo/con_prod.asp, line 156
Else

Obrigado por enquanto

kuroi · Agosto 17, 2007

na linha 156 você pos um Else sem que nenhum If tivesse aberto.

mortal · Agosto 17, 2007

eu já consegui resolver meu problema

deu certinho

só criei outra página resgatando a query string descricao

vlw

eu tenho utro erro:

<%@Language="VBScript"%>

<html>

<head><title>Cesta</title>

</head>

<h2>Cesta de Filmes</h2>

<tr>

<td align=right><a href="reservas.asp">Voltar para a Loja</a></td>

</tr>

<%

acao = Request.Querystring("acao")

prod_codigo = Request.querystring("prod_codigo")

car_item_codigo = Request.querystring("car_item_codigo")

Select Case "acao"

Case "incluir"

temp = ""

set car_prod = Conexao.Execute ("SELECT * FROM produtos ORDER BY Prod_codigo="& prod_codigo &"")

prod_nome = car_prod ("Prod_nome")

Prod_valor = car_prod("Prod_valor")

gen_codigo = car_prod("gen_codigo")

set car_genero = Conexao.Execute("SELECT gen_descricao FROM genero WHERE gen_codigo="& gen_codigo &"")

gen_descricao = car_genero("gen_descricao")

If IsEmpty(Session("item_codigo")) Then

Session("item_codigo") = 1

Else

Session("item_codigo") = Session("item_codigo") + 1

End If

item_codigo = Session("item_codigo")

temp = item_codigo & "&" & fil_codigo

If Not IsEmpty(Session("car_prod")) AND IsArray(Session("car_prod")) Then

For loop1 = LBound(session("car_prod")) to UBound(session("car_prod"))

temp = temp & "/" & session("car_prod")(loop1)

arrTemp = Split(temp,"/")

Session("car_prod") = arrTemp

Case "excluir"

temp = ""

If Not (IsEmpty(Session("car_prod"))) Then

For loop1 = LBound(Session("car_prod")) to UBound(session("car_prod"))

arrTemp = Split(Session("car_prod")(loop1),"&")

item_codigo = arrTemp(0)

If Not (item_codigo = car_item_codigo) Then

If temp = "" Then

temp = session("car_prod")(loop1)

Else

temp = temp & "/" & session("car_prod")(loop1)

End If

Session("car_prod") = ""

Else

arrTemp = Split(temp,"/")

Session("car_prod") = arrTemp

End IF

End If

End Select

temp = ""

%>

<h3>Filmes Selecionados</h3></font></td></tr>

<%

If IsEmpty(Session("car_prod")) or Not IsArray(Session("car_prod")) Then

%>

<h4>Cesta vazia, não há filmes selecionados</h4>

<%

Else

%>

<th><font face="Verdana" size="2">Filme</font></th>

<th><font face="Verdana" size="2">Valor</font></th>

<th><font face="Verdana" size="2">Gênero</font></th>

<th><font face="Verdana" size="2">Opção</font></th>

<%

For loop1 = LBound(session("car_prod")) to UBound(session("car_prod"))

arrTemp = Split(Session("car_prod")(loop1),"&")

car_item_codigo = arrTemp(0)

car_item_prod = arrTemp(1)

set car_filme_atual = Conexao.Execute("SELECT * FROM Produtos WHERE prod_codigo="& car_item_prod &"")

car_filme_nome = car_filme_atual("fil_nome")

car_Prod_valor = car_filme_atual("Prod_valor")

gen_codigo = car_filme_atual("gen_codigo")

set car_genero = Conexao.execute("SELECT gen_descricao FROM genero WHERE gen_codigo="& gen_codigo &"")

gen_descricao = car_genero("gen_descricao")

%>

<%=car_filme_nome%></font></td>

R$<%=FormatNumber(car_Prod_valor,2,-1,0,-1)%></font></td>

<%=gen_descricao%></font></td>

Cancelar</a></font></td>

</tr>

<%

car_filme_atual.Close

set car_filme_atual = Nothing

<% End If%>

</table>

Reservar para:

</form>

não da erro mais também aparece la que eu não selecionei nenhum filme, sendo que selecionei

no bd tenho uma table chamada produtos com: Prod_codigo , Prod_nome, Descricao_res, Prod_img, Gen_codigo, Prod_valor, Formas_Pgto

Obrigado !

Editado Agosto 18, 2007 por mortal

Entrar

Erro De Sintaxe

Pergunta

mortal

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

kuroi

Link para o comentário

Compartilhar em outros sites

mortal

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades