Erro De Compilação (0x800a03ee)

[Guest - henrique -]

Oba a todos!

Preciso de um help! Estou desenvolvendo um site de informática e tenho um formulário onde eu seleciono alguns itens para montar minha configuração de acordo com o que quero, porém estou tendo um problema no bloco que se refere ao HD, pois não estou conseguindo passar a variável para o where do meu select.

Abaixo estou colocando o erro que me dá no IE e os scirpst referentes, se alguém poder ajudar... agradeço... pois não sei mais o que fazer...

Erro no IE:

Tipo de erro:

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

')' esperado

/rocel/monteoseuCusto.asp, line 93, column 56

rsHD.open("select * from tbProduto where ID_Produtos = "&hardisk),conn

A linha 93 que está sendo apontada é essa:

rsHD.open("select * from tbProduto where ID_Produtos = "&hardisk),conn

-- Scripts da Página onde monto o Formulário: --

<!--ASP - Formulario Produtos-->

<form name="form" method="post" action="monteoseuCusto.asp">

<table width="390" cellpadding="0" cellspacing="0" border="0">

<tr>

<td class="Texto03">Qual processamento voc&ecirc; quer? <select name="TPProc" onChange="MM_jumpMenu('parent',this,0)" class="FormCampo">

<option>escolha o tipo de processador</option>

<option>&nbsp;</option>

<option value="<%Request.ServerVariables("SCRIPT_NAME")%>?IDPROC=24">Intel^&reg;</option>

<option value="<%Request.ServerVariables("SCRIPT_NAME")%>?IDPROC=25">AMD</option>

</select></td>

</tr>

<%

IDPROC = 0

IDPROC = Request.QueryString("IDPROC")

if IDPROC > 0 then

%>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td align="center" class="Texto03" style="border:1px solid #333333; font-weight: bold; text-transform: uppercase;" bgcolor="#CCCCCC">processamento <%if IDPROC = "24" then Response.Write("Intel&reg;") else Response.Write("AMD") end if%></td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<!--PROCESSADOR-->

<%

set rsProc = Server.CreateObject("adodb.recordset")

rsProc.open("select * from tbProduto where ID_CategoriaSub = "&IDPROC&" order by NM_Produto ASC"),conn

if not rsProc.eof then

%>

<tr>

<td class="Texto03">Escolha o tipo de processador:</td>

</tr>

<tr>

<td><select name="processador" class="FormCampo">

<option value="0">n&atilde;o quero esse item</option>

<option>..................................</option>

<%while not rsProc.eof%>

<option value="<%=rsProc("ID_Produtos")%>"><%=rsProc("NM_Produto")%></option>

<%rsProc.movenext

wend

rsProc.close() : set rsProc = nothing%>

</select></td>

</tr>

<%end if%>

<!--FIM PROCESSADOR-->

<tr>

<td>&nbsp;</td>

</tr>

<!--MOTHERBOARD-->

<%

set rsMB = Server.CreateObject("adodb.recordset")

if IDPROC = "24" then

rsMB.open("select * from tbProduto where ID_CategoriaSub = 16 order by NM_Produto ASC"),conn

elseif IDPROC = "25" then

rsMB.open("select * from tbProduto where ID_CategoriaSub = 17 order by NM_Produto ASC"),conn

end if

if not rsMB.eof then

%>

<tr>

<td class="Texto03">Escolha o tipo de placa m&atilde;e:</td>

</tr>

<tr>

<td><select name="motherboard" class="FormCampo">

<option value="0">n&atilde;o quero esse item</option>

<option>..................................</option>

<%while not rsMB.eof%>

<option value="<%=rsMB("ID_Produtos")%>"><%=rsMB("NM_Produto")%></option>

<%rsMB.movenext

wend

rsMB.close() : set rsMB = nothing%>

</select></td>

</tr>

<%end if%>

<!--FIM MOTHERBOARD-->

<tr>

<td>&nbsp;</td>

</tr>

<!--HARD DISK - HD-->

<%

set rsHD = Server.CreateObject("adodb.recordset")

rsHD.open("select * from tbProduto where ID_CategoriaSub = 32 order by NM_Produto ASC"),conn

if not rsHD.eof then

%>

<tr>

<td class="Texto03">Escolha o HD - Hard Disk:</td>

</tr>

<tr>

<td><select name="hardisk" class="FormCampo">

<option value="0">n&atilde;o quero esse item</option>

<option>..................................</option>

<%while not rsHD.eof%>

<option value="<%=rsHD("ID_Produtos")%>"><%=rsHD("NM_Produto")%></option>

<%rsHD.movenext

wend

rsHD.close() : set rsHD = nothing%>

</select></td>

</tr>

<%end if%>

<!--FIM HARD DISK - HD-->

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td align="center"><input type="submit" name="enviar" value="Calcular Configura&ccedil;&atilde;o : <%if IDPROC = "24" then Response.Write("Intel") else Response.Write("AMD") end if%>" class="FormCampo"></td>

</tr>

<%end if%>

</table>

</form>

<!--Fim ASP - Formulario Produtos-->

-- FIM do Scripts da Página onde monto o Formulário: --

-- Scripts da Página Resposta --

<!--ASP - Formulario Produtos-->

<table width="390" cellpadding="0" cellspacing="3" border="0">

<!--PROCESSADOR-->

<%

processador = Request("processador")

set rsProc = Server.CreateObject("adodb.recordset")

rsProc.open("select * from tbProduto where ID_Produtos = "&processador),conn

if not rsProc.eof then

%>

<%vlrProc = rsProc("VLR_Produto")%>

<tr>

<td class="Texto03"><strong>Processador:</strong> <%=rsProc("NM_Produto")%></td>

</tr>

<%end if

rsProc.close() : set rsProc = nothing%>

<!--FIM PROCESSADOR-->

<!--MOTHERBOARD-->

<%

motherboard = Request("motherboard")

set rsMB = Server.CreateObject("adodb.recordset")

rsMB.open("select * from tbProduto where ID_Produtos = "&motherboard),conn

if not rsMB.eof then

%>

<%vlrMB = rsMB("VLR_Produto")%>

<tr>

<td class="Texto03"><strong>Placa M&atilde;e:</strong> <%=rsMB("NM_Produto")%></td>

</tr>

<%end if

rsMB.close() : set rsMB = nothing%>

<!--FIM MOTHERBOARD-->

<!--HARD DISK - HD-->

<%

hardisk = Request("hardisk")

set rsHD = Server.CreateObject("adodb.recordset")

rsHD.open("select * from tbProduto where ID_Produtos = "&hardisk),conn

if not rsHD.eof then

%>

<%vlrHD = rsHD("VLR_Produto")%>

<tr>

<td class="Texto03"><strong>HD - Hard Disk:</strong> <%=rsHD("NM_Produto")%></td>

</tr>

<%end if

rsHD.close() : set rsHD = nothing%>

<!--FIM HARD DISK - HD-->

</table>

<!--Fim ASP - Formulario Produtos-->

-- FIM do Scripts da Página Resposta --

[alexmarcelo]

rsHD.open("select * from tbProduto where ID_Produtos = "&hardisk),conn

Tente isso:

SQL = "select * from tbProduto where ID_Produtos = " & hardisk

SET rsHD= Server.CreateObject("adodb.recordset")

rsHD.Open SQL,conn,3,3

A variável ID_Produtos está definida no Banco de Dados como um campo numérico?

se estiver definido com campo de texo a SQL fica assim:

SQL = "select * from tbProduto where ID_Produtos = ' " & hardisk & " ' "

Embaixo da variável SQL escreva isso para testar:

response.write SQL

response.end

Isso vai fazer a instrução SQL ser impressa na tela e vai parar o servidor.

[dark0]

brother, qual das linhas é a linha do erro?

você pode postar todo seu codigo aí.. mas deixe a linha do erro salientada.. pode ser com negrito.. ou colorida..

ok?