[Resolvido] IIS com erro

reinaldo polato · Maio 20, 2011

e ai galera beleza seguinte instalei o windows seven e o iis ai da erro

esse é o codigo e da o seguinte erro

O site não pode exibir a página

HTTP 500

Causas prováveis:

•O site está em manutenção.

•O site tem um erro de programação.

e da outro erro também o

Server Error in Application "DEFAULT WEB SITE/SISTEMA"Internet Information Services 7.5

Error Summary

HTTP Error 404.0 - Not Found

The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Sistema de Vendas </title>
<form name="CPF" Method="Post" action="">
CPF
<input type="text" name="CPF" Size="20">
<input type="Submit" name="cpf" value="Cadastrar Usuario" >>">
<P> </P>
</form>
</BODY>
</HTML>
<%
function MascaraCPF(cpf){
if(mascaraInteiro(cpf)==false){
event.returnValue = false;
} 
return formataCampo(cpf, '000.000.000-00', event);
}

function ValidarCPF(Objcpf){
var cpf = Objcpf.value;
if(Objcpf=='000.000.000-00')
alert('CPF Invalido!');
if (cpf.length!=0) {
exp = /\.|\-/g
cpf = cpf.toString().replace( exp, "" ); 
var digitoDigitado = eval(cpf.charAt(9)+cpf.charAt(10));
var soma1=0, soma2=0;
var vlr =11;

for(i=0;i<9;i++){
soma1+=eval(cpf.charAt(i)*(vlr-1));
soma2+=eval(cpf.charAt(i)*vlr);
vlr--;
} 
soma1 = (((soma1*10)%11)==10 ? 0:((soma1*10)%11));
soma2=(((soma2+(2*soma1))*10)%11);

var digitoGerado=(soma1*10)+soma2;
if(digitoGerado!=digitoDigitado) 
alert('CPF Invalido!'); 
if(Objcpf=='000.000.000-00')
alert('CPF Invalido!'); 
}
}
%>

0cool · Maio 20, 2011

você ta colocando um code javascript em tags asp...

<%  %>

O certo é

<script type="text/javascript"></script>

É por isso que esta dando erro... nas tags asp você deve colocar code asp... nas tags javascript você deve colocar codes javascript... você se confundiu.

reinaldo polato · Maio 20, 2011

e ai beleza seguinte eu to fazendo um sistema em html e asp e está dando o seguinte erro

Server Error in Application "DEFAULT WEB SITE/SISTEMA"Internet Information Services 7.5

Error Summary

HTTP Error 404.0 - Not Found

The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.

o codigo é

<%

'Recebendo Parametros

descricao=Request.Form("Descricao")
MarcaFabricante=Request.Form("MarcaFabricante")
Categoria=Request.Form("Categoria")
Identificacao=Request.Form("Identificacao")
CodBarras=Request.Form("CodBarras")
Custo=Request.Form("Custo")
PrecoVarejo=Request.Form("PrecoVarejo")
PrecoPromocional=Request.Form("PrecoPromocional")
PrecoAtacado=Request.Form("PrecoAtacado")
UltimaCompra=Request.Form("UltimaCompra")
Margem1=Request.Form("Margem1")
Margem2=Request.Form("Margem2")
Margem3=Request.Form("Margem3")
EstoqueMinimo=Request.Form("EstoqueMinimo")
EstoqueCompra=Request.Form("EstoqueCompra")
EstoqueAtual=Request.Form("EstoqueAtual")
UnidadeCompra=Request.Form("UnidadeCompra")
UnidadeVenda=Request.Form("UnidadeVenda")
Estoque=Request.Form("Estoque")
Peso=Request.Form("Peso")
TamLarguraCompAlt=Request.Form("TamLarguraCompAlt")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\produtos\db_vendedor.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("MarcaFabricante")= Request("MarcaFabricante")
objrecordset.Fields("Categoria")= Request("Categoria")
objrecordset.Fields("Identificacao")= Request("Identificacao")
objrecordset.Fields("CodBarras")= Request("CodBarras")
objrecordset.Fields("Custo")= Request("Custo")
objrecordset.Fields("PrecoVarejo")=Request("PrecoVarejo")
objrecordset.Fields("PrecoPromocional")= Request("PrecoPromocional")
objrecordset.Fields("PrecoAtacado")= Request("PrecoAtacado")
objrecordset.Fields("UltimaCompra")= Request("UltimaCompra")
objrecordset.Fields("Margem1")= Request("Margem1")
objrecordset.Fields("Margem2")= Request("Margem2")
objrecordset.Fields("Margem3")= Request("Margem3")
objrecordset.Fields("EstoqueMinimo")= Request("EstoqueMinimo")
objrecordset.Fields("EstoqueCompra")= Request("EstoqueCompra")
objrecordset.Fields("EstoqueAtual")= Request("EstoqueAtual")
objrecordset.Fields("UnidadeCompra")= Request("UnidadeCompra")
objrecordset.Fields("UnidadeVenda")= Request("UnidadeVenda")
objrecordset.Fields("Estoque")= Request("Estoque")
objrecordset.Fields("Peso")= Request("Peso")
objrecordset.Fields("TamLarguraCompAlt")= Request("TamLarguraCompAlt")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Descricao

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="green"><font color="white">Descricao</td>
<td bgcolor="white"><%Response.Write(Descricao)%></td>
</tr>
<tr>	
<td bgcolor="green"><font color="white">MarcaFabricante</td>
<td bgcolor="white"><%Response.Write(MarcaFabricante)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Categoria</td>
<td bgcolor="white"><%Response.Write(Categoria)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Identificacao</td>
<td bgcolor="white"><%Response.Write(Identificacao)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">CodBarras</td>
<td bgcolor="white"><%Response.Write(CodBarras)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Custo</td>
<td bgcolor="white"><%Response.Write(Custo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoVarejo</td>
<td bgcolor="white"><%Response.Write(PrecoVarejo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoPromocional</td>
<td bgcolor="white"><%Response.Write(PrecoPromocional)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoAtacado</td>
<td bgcolor="white"><%Response.Write(PrecoAtacado)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UltimaCompra</td>
<td bgcolor="white"><%Response.Write(UltimaCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem1</td>
<td bgcolor="white"><%Response.Write(Margem1)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem2</td>
<td bgcolor="white"><%Response.Write(Margem2)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem3</td>
<td bgcolor="white"><%Response.Write(Margem3)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">EstoqueMinimo</td>
<td bgcolor="white"><%Response.Write(EstoqueMinimo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">HomePage</td>
<td bgcolor="white"><%Response.Write(HomePage)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueCompra</td>
<td bgcolor="white"><%Response.Write(EstoqueCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueAtual</td>
<td bgcolor="white"><%Response.Write(EstoqueAtual)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeCompra</td>
<td bgcolor="white"><%Response.Write(UnidadeCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeVenda</td>
<td bgcolor="white"><%Response.Write(UnidadeVenda)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Estoque</td>
<td bgcolor="white"><%Response.Write(Estoque)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Peso</td>
<td bgcolor="white"><%Response.Write(Peso)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">TamLarguraCompAlt</td>
<td bgcolor="white"><%Response.Write(TamLarguraCompAlt)%></td>
</tr>
<tr>
</table>
<form  name="btn1" method="Post" action="consulta.asp">
<input type="Submit" name="frm4" value="Consulta >>>">
</form>

Vinicius Ianni · Maio 20, 2011

O que precisamente, você está fazendo para aparecer esse erro?

Note que: "HTTP Error 404.0 - Not Found" é o erro clássico de pagina inexistente.

Você está tentando acessar uma página que não existe ou está nomeada de outro jeito que não o apontado na barra de endereços do navegador.

xanburzum · Maio 21, 2011

desabilçite a opção de exibir mensagem de erro HTTP amigáveis no browser e verifique o numero do erro e linha.

reinaldo polato · Maio 23, 2011

e ai beleza xanburzum seguinte eu desabilitei a opção de exibir mensagem de erro HTTP amigáveis e apareceu isso

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

<%

'Recebendo Parametros

descricao=Request.Form("Descricao")
MarcaFabricante=Request.Form("MarcaFabricante")
Categoria=Request.Form("Categoria")
Identificacao=Request.Form("Identificacao")
CodBarras=Request.Form("CodBarras")
Custo=Request.Form("Custo")
PrecoVarejo=Request.Form("PrecoVarejo")
PrecoPromocional=Request.Form("PrecoPromocional")
PrecoAtacado=Request.Form("PrecoAtacado")
UltimaCompra=Request.Form("UltimaCompra")
Margem1=Request.Form("Margem1")
Margem2=Request.Form("Margem2")
Margem3=Request.Form("Margem3")
EstoqueMinimo=Request.Form("EstoqueMinimo")
EstoqueCompra=Request.Form("EstoqueCompra")
EstoqueAtual=Request.Form("EstoqueAtual")
UnidadeCompra=Request.Form("UnidadeCompra")
UnidadeVenda=Request.Form("UnidadeVenda")
Estoque=Request.Form("Estoque")
Peso=Request.Form("Peso")
TamLarguraCompAlt=Request.Form("TamLarguraCompAlt")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\cadastrar produtos\db_produtos.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("MarcaFabricante")= Request("MarcaFabricante")
objrecordset.Fields("Categoria")= Request("Categoria")
objrecordset.Fields("Identificacao")= Request("Identificacao")
objrecordset.Fields("CodBarras")= Request("CodBarras")
objrecordset.Fields("Custo")= Request("Custo")
objrecordset.Fields("PrecoVarejo")=Request("PrecoVarejo")
objrecordset.Fields("PrecoPromocional")= Request("PrecoPromocional")
objrecordset.Fields("PrecoAtacado")= Request("PrecoAtacado")
objrecordset.Fields("UltimaCompra")= Request("UltimaCompra")
objrecordset.Fields("Margem1")= Request("Margem1")
objrecordset.Fields("Margem2")= Request("Margem2")
objrecordset.Fields("Margem3")= Request("Margem3")
objrecordset.Fields("EstoqueMinimo")= Request("EstoqueMinimo")
objrecordset.Fields("EstoqueCompra")= Request("EstoqueCompra")
objrecordset.Fields("EstoqueAtual")= Request("EstoqueAtual")
objrecordset.Fields("UnidadeCompra")= Request("UnidadeCompra")
objrecordset.Fields("UnidadeVenda")= Request("UnidadeVenda")
objrecordset.Fields("Estoque")= Request("Estoque")
objrecordset.Fields("Peso")= Request("Peso")
objrecordset.Fields("TamLarguraCompAlt")= Request("TamLarguraCompAlt")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Descricao

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="green"><font color="white">Descricao</td>
<td bgcolor="white"><%Response.Write(Descricao)%></td>
</tr>
<tr>	
<td bgcolor="green"><font color="white">MarcaFabricante</td>
<td bgcolor="white"><%Response.Write(MarcaFabricante)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Categoria</td>
<td bgcolor="white"><%Response.Write(Categoria)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Identificacao</td>
<td bgcolor="white"><%Response.Write(Identificacao)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">CodBarras</td>
<td bgcolor="white"><%Response.Write(CodBarras)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Custo</td>
<td bgcolor="white"><%Response.Write(Custo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoVarejo</td>
<td bgcolor="white"><%Response.Write(PrecoVarejo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoPromocional</td>
<td bgcolor="white"><%Response.Write(PrecoPromocional)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoAtacado</td>
<td bgcolor="white"><%Response.Write(PrecoAtacado)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UltimaCompra</td>
<td bgcolor="white"><%Response.Write(UltimaCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem1</td>
<td bgcolor="white"><%Response.Write(Margem1)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem2</td>
<td bgcolor="white"><%Response.Write(Margem2)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem3</td>
<td bgcolor="white"><%Response.Write(Margem3)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">EstoqueMinimo</td>
<td bgcolor="white"><%Response.Write(EstoqueMinimo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">HomePage</td>
<td bgcolor="white"><%Response.Write(HomePage)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueCompra</td>
<td bgcolor="white"><%Response.Write(EstoqueCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueAtual</td>
<td bgcolor="white"><%Response.Write(EstoqueAtual)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeCompra</td>
<td bgcolor="white"><%Response.Write(UnidadeCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeVenda</td>
<td bgcolor="white"><%Response.Write(UnidadeVenda)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Estoque</td>
<td bgcolor="white"><%Response.Write(Estoque)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Peso</td>
<td bgcolor="white"><%Response.Write(Peso)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">TamLarguraCompAlt</td>
<td bgcolor="white"><%Response.Write(TamLarguraCompAlt)%></td>
</tr>
<tr>
</table>
<form  name="btn1" method="Post" action="consultar_produtos_cadastrados.asp">
<input type="Submit" name="frm4" value="Consulta >>>">
</form>

esse é o codigo da erro 500 http

0cool · Maio 23, 2011

Eu uso iis 7.5 mais se eu não me engano em versões anteriores o sistema não permitia o response write desta maneira

<%Response.Write(TamLarguraCompAlt)%>

Tinha que ser desta

<%=Response.Write(TamLarguraCompAlt)%>

Quando fosse colocado em uma única linha tinha que utilizar o operador "="

Faz um teste ai... coloque em todos e verifique.

xanburzum · Maio 23, 2011

dá um reset no IIS,e verifique

reinaldo polato · Maio 23, 2011

eu Dar um reset nele como o iis localhost está funcionando so essa pagina não funciona

pagina 1

%>
<form name="frm1" Method="Post" action="recebe_produtos.asp">
<table align="left" border="1" width="35%">
<tr>
			<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Descricao</font></td>
<td width="423" colspan="8"><input type="text" name="Descricao" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">MarcaFabricante</font></td>
<td width="423" colspan="8"><input type="text" name="MarcaFabricante" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Categoria</font></td>
<td width="100%" width="423" colspan="8" ><Select Name="Tipo" Style="WIDTH: 100%" Onchange="Verifica_Categoria()">
<Option Value="">(Selecione)</option>
<Option Value="1">Acessorios</option>
<Option Value="2">Diversos</option>
<Option Value="3">Servicos</option> 
</select>
</td>  
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="50" align="left"><font color="#ffffffr">Identificacao</font></td>
<td width="423" colspan="8"><input type="text" name="Identificacao" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="50" align="left"><font color="#ffffffr">CodBarras</font></td>
<td width="423" colspan="8"><input type="text" name="CodBarras" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="50" align="left"><font color="#ffffffr">Custo</font></td>
<td width="423" colspan="8"><input type="text" name="Custo" Size="20"></td>
<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="50" align="left"><font color="#ffffffr">PrecoVarejo</font></td>
<td width="423" colspan="8"><input type="text" name="PrecoVarejo" Size="20"></td>
<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="50" align="left"><font color="#ffffffr">PrecoPromocional</font></td>
<td width="423" colspan="8"><input type="text" name="PrecoPromocional" Size="20"></td>
<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">PrecoAtacado</font></td>
<td width="423" colspan="8"><input type="text" name="PrecoAtacado" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">UltimaCompra</font></td>
<td width="423" colspan="8"><input type="text" name="UltimaCompra" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Margem1</font></td>
<td width="423" colspan="8"><input type="text" name="Margem1" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>		
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Margem2</font></td>
<td width="423" colspan="8"><input type="text" name="Margem2" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>		
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Margem3</font></td>
<td width="423" colspan="8"><input type="text" name="Margem3" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">EstoqueMinimo</font></td>
<td width="423" colspan="8"><input type="text" name="EstoqueMinimo" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">EstoqueCompra</font></td>
<td width="423" colspan="8"><input type="text" name="EstoqueCompra" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">EstoqueAtual</font></td>
<td width="423" colspan="8"><input type="text" name="EstoqueAtual" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">UnidadeCompra</font></td>
<td width="100%" width="423" colspan="8" ><Select Name="Tipo" Style="WIDTH: 100%" Onchange="Verifica_Unidade Compra()">
<Option Value="">(Selecione)</option>
<Option Value="CX">Caixa</option>
<Option Value="HR">Hora</option>
<Option Value="PCT">Pacote</option> 
<Option Value="PC">Peca</option>
<Option Value="UN">Unidade</option>
</select>
</td>  
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">UnidadeVenda</font></td>
<td width="100%" width="423" colspan="8" ><Select Name="Tipo" Style="WIDTH: 100%" Onchange="Verifica_Unidade Venda()">
<Option Value="">(Selecione)</option>
<Option Value="CX">Caixa</option>
<Option Value="HR">Hora</option>
<Option Value="PCT">Pacote</option> 
<Option Value="PC">Peca</option>
<Option Value="UN">Unidade</option>
</select>
</td>  
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Estoque</font></td>
<td width="100%" width="423" colspan="8" ><Select Name="Tipo" Style="WIDTH: 100%" Onchange="Verifica_Estoque()">
<Option Value="">(Selecione)</option>
<Option Value="1">Controla Estoque</option>
<Option Value="2">Pode Vender Sem Estoque</option>
<Option Value="3">Produto Sem Estoque</option> 
</select>
</td>
			<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Peso</font></td>
<td width="423" colspan="8"><input type="text" name="Peso" Size="20"></td>
		<tr>
	<td>
	</tr>
	</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">TamLarguraCompAlt</font></td>
<td width="423" colspan="8"><input type="text" name="TamLarguraCompAlt" Size="20"></td>	 	
		<tr>
	<td>
	</tr>
	</td>
<input type="Submit" name="btn_Cadastrar Vendas" value=" Cadastrar Produto >>">
</form>
</table>
<P> </P>

</BODY>
</HTML>
<P> </P>

</BODY>
</HTML>

pagina 2

<%

'Mostrar Parametros

descricao=Request.Form("Descricao")
MarcaFabricante=Request.Form("MarcaFabricante")
Categoria=Request.Form("Categoria")
Identificacao=Request.Form("Identificacao")
CodBarras=Request.Form("CodBarras")
Custo=Request.Form("Custo")
PrecoVarejo=Request.Form("PrecoVarejo")
PrecoPromocional=Request.Form("PrecoPromocional")
PrecoAtacado=Request.Form("PrecoAtacado")
UltimaCompra=Request.Form("UltimaCompra")
Margem1=Request.Form("Margem1")
Margem2=Request.Form("Margem2")
Margem3=Request.Form("Margem3")
EstoqueMinimo=Request.Form("EstoqueMinimo")
EstoqueCompra=Request.Form("EstoqueCompra")
EstoqueAtual=Request.Form("EstoqueAtual")
UnidadeCompra=Request.Form("UnidadeCompra")
UnidadeVenda=Request.Form("UnidadeVenda")
Estoque=Request.Form("Estoque")
Peso=Request.Form("Peso")
TamLarguraCompAlt=Request.Form("TamLarguraCompAlt")

'Recebendo Parametros

%>

<table align="left" border="1" width="35%">
</tr>
<tr>
<td bgcolor="White"><font color="Blue">Descricao</td>
<td bgcolor="White"><%=Response.Write(Descricao)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="Blue">MarcaFabricante</td>
<td bgcolor="White"><%=Response.Write(MarcaFabricante)%></td>
</tr>
<tr>
<td bgcolor="white"><font color="blue">Categoria</td>
<td bgcolor="white"><%if Categoria="1" then
Response.Write("Acessorios")
else
if Categoria="2" then
Response.Write("Diversos")
else
Response.Write("Servicos")
end if
end if
%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Identificacao</td>
<td bgcolor="White"><%=Response.Write(Identificacao)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">CodBarras</td>
<td bgcolor="White"><%=Response.Write(CodBarras)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Custo</td>
<td bgcolor="White"><%=Response.Write(Custo)%></td>
</tr>
<tr>

<td bgcolor="White"><font color="blue">PrecoVarejo</td>
<td bgcolor="White"><%=Response.Write(PrecoVarejo)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">PrecoPromocional</td>
<td bgcolor="White"><%=Response.Write(PrecoPromocional)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">PrecoAtacado</td>
<td bgcolor="White"><%Response.Write(PrecoAtacado)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">UltimaCompra</td>
<td bgcolor="White"><%=Response.Write(UltimaCompra)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Margem1</td>
<td bgcolor="White"><%Response.Write(Margem1)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Margem2</td>
<td bgcolor="White"><%=Response.Write(Margem2)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Margem3</td>
<td bgcolor="White"><%=Response.Write(Margem3)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">EstoqueMinimo</td>
<td bgcolor="White"><%Response.Write(EstoqueMinimo)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">EstoqueCompra</td>
<td bgcolor="White"><%=Response.Write(EstoqueCompra)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">EstoqueAtual</td>
<td bgcolor="White"><%=Response.Write(EstoqueAtual)%></td>
</tr>
<tr>
<td bgcolor="white"><font color="blue">UnidadeCompra</td>
<td bgcolor="white"><%if UnidadeCompra="1" then
Response.Write("Caixa")
else
if UnidadeCompra="2" then
Response.Write("Hora")
else
if UnidadeCompra="3" then
Response.Write("Pacote")
else
if UnidadeCompra="4" then
Response.Write("Peca")
else
Response.Write("Unidade")
end if
end if
end if 
end if
%></td>
</tr>
<tr>
<td bgcolor="white"><font color="blue">UnidadeVenda</td>
<td bgcolor="white"><%if UnidadeVenda="1" then
Response.Write("Caixa")
else
if UnidadeVenda="2" then
Response.Write("Hora")
else
if UnidadeVenda="3" then
Response.Write("Pacote")
else
if UnidadeVenda="4" then
Response.Write("Peca")
else
Response.Write("Unidade")
end if
end if
end if
end if 
%></td>
</tr>
<tr>
<td bgcolor="white"><font color="blue">Controla Estoque & Pode Vender Sem Estoque e Produto Sem Estoque </td>
<td bgcolor="white"><%if Estoque="1" then
Response.Write("Controla Estoque")
else
if Estoque="2" then
Response.Write("Pode Vender Sem Estoque")
else
Response.Write("Produto Sem Estoque")
end if
end if
%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue">Peso</td>
<td bgcolor="White"><%=Response.Write(Peso)%></td>
</tr>
<tr>
<td bgcolor="White"><font color="blue"><FONT color="blue">TamLarguraCompAlt</td>
<td bgcolor="White"><%=Response.Write(TamLarguraCompAlt)%></td>
</tr>
<tr>
</table>
<form name="frm1" Method="Post" action="cadastro.asp">
<input type="Submit" name="btn_Receber" value=" Produtos >>"> 

<input type="hidden" name="Descricao" value="<%=Response.Write("Descricao")%>">
<input type="hidden" name="MarcaFabricante" value="<%=Response.Write("MarcaFabricante")%>">
<input type="hidden" name="Categoria" value="<%=Response.Write("Categoria")%>">
<input type="hidden" name="Identificacao" value="<%=Response.Write("Identificacao")%>">
<input type="hidden" name="CodBarras" value="<%=Response.Write("CodBarras")%>">
<input type="hidden" name="Custo" value="<%=Response.Write("Custo")%>">
<input type="hidden" name="PrecoVarejo" value="<%=Response.Write(PrecoVarejo)%>">
<input type="hidden" name="PrecoPromocional" value="<%=Response.Write(PrecoPromocional)%>">
<input type="hidden" name="PrecoAtacado" value="<%=Response.Write(PrecoAtacado)%>">
<input type="hidden" name="UltimaCompra" value="<%=Response.Write(UltimaCompra)%>">
<input type="hidden" name="Margem1" value="<%=Response.Write(Margem1)%>">
<input type="hidden" name="Margem2" value="<%=Response.Write(Margem2)%>">
<input type="hidden" name="Margem3" value="<%=Response.Write(Margem3)%>">
<input type="hidden" name="EstoqueMinimo" value="<%=Response.Write(EstoqueMinimo)%>">
<input type="hidden" name="EstoqueCompra" value="<%=Response.Write(EstoqueCompra)%>">
<input type="hidden" name="EstoqueAtual" value="<%=Response.Write(EstoqueAtual)%>">
<input type="hidden" name="UnidadeCompra" value="<%=Response.Write(UnidadeCompra)%>">
<input type="hidden" name="UnidadeVenda" value="<%=Response.Write(UnidadeVenda)%>">
<input type="hidden" name="Estoque" value="<%=Response.Write(Estoque)%>">
<input type="hidden" name="Peso" value="<%=Response.Write(Peso)%>">
<input type="hidden" name="TamLarguraCompAlt" value="<%=Response.Write(TamLarguraCompAlt)%>">

pagina 3

<%

'Recebendo Parametros

descricao=Request.Form("Descricao")
MarcaFabricante=Request.Form("MarcaFabricante")
Categoria=Request.Form("Categoria")
Identificacao=Request.Form("Identificacao")
CodBarras=Request.Form("CodBarras")
Custo=Request.Form("Custo")
PrecoVarejo=Request.Form("PrecoVarejo")
PrecoPromocional=Request.Form("PrecoPromocional")
PrecoAtacado=Request.Form("PrecoAtacado")
UltimaCompra=Request.Form("UltimaCompra")
Margem1=Request.Form("Margem1")
Margem2=Request.Form("Margem2")
Margem3=Request.Form("Margem3")
EstoqueMinimo=Request.Form("EstoqueMinimo")
EstoqueCompra=Request.Form("EstoqueCompra")
EstoqueAtual=Request.Form("EstoqueAtual")
UnidadeCompra=Request.Form("UnidadeCompra")
UnidadeVenda=Request.Form("UnidadeVenda")
Estoque=Request.Form("Estoque")
Peso=Request.Form("Peso")
TamLarguraCompAlt=Request.Form("TamLarguraCompAlt")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\cadastrar produtos\db_produtos.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("MarcaFabricante")= Request("MarcaFabricante")
objrecordset.Fields("Categoria")= Request("Categoria")
objrecordset.Fields("Identificacao")= Request("Identificacao")
objrecordset.Fields("CodBarras")= Request("CodBarras")
objrecordset.Fields("Custo")= Request("Custo")
objrecordset.Fields("PrecoVarejo")=Request("PrecoVarejo")
objrecordset.Fields("PrecoPromocional")= Request("PrecoPromocional")
objrecordset.Fields("PrecoAtacado")= Request("PrecoAtacado")
objrecordset.Fields("UltimaCompra")= Request("UltimaCompra")
objrecordset.Fields("Margem1")= Request("Margem1")
objrecordset.Fields("Margem2")= Request("Margem2")
objrecordset.Fields("Margem3")= Request("Margem3")
objrecordset.Fields("EstoqueMinimo")= Request("EstoqueMinimo")
objrecordset.Fields("EstoqueCompra")= Request("EstoqueCompra")
objrecordset.Fields("EstoqueAtual")= Request("EstoqueAtual")
objrecordset.Fields("UnidadeCompra")= Request("UnidadeCompra")
objrecordset.Fields("UnidadeVenda")= Request("UnidadeVenda")
objrecordset.Fields("Estoque")= Request("Estoque")
objrecordset.Fields("Peso")= Request("Peso")
objrecordset.Fields("TamLarguraCompAlt")= Request("TamLarguraCompAlt")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Descricao

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="green"><font color="white">Descricao</td>
<td bgcolor="white"><%=Response.Write(Descricao)%></td>
</tr>
<tr>	
<td bgcolor="green"><font color="white">MarcaFabricante</td>
<td bgcolor="white"><%=Response.Write(MarcaFabricante)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Categoria</td>
<td bgcolor="white"><%=Response.Write(Categoria)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Identificacao</td>
<td bgcolor="white"><%=Response.Write(Identificacao)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">CodBarras</td>
<td bgcolor="white"><%=Response.Write(CodBarras)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Custo</td>
<td bgcolor="white"><%=Response.Write(Custo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoVarejo</td>
<td bgcolor="white"><%=Response.Write(PrecoVarejo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoPromocional</td>
<td bgcolor="white"><%=Response.Write(PrecoPromocional)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">PrecoAtacado</td>
<td bgcolor="white"><%=Response.Write(PrecoAtacado)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UltimaCompra</td>
<td bgcolor="white"><%=Response.Write(UltimaCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem1</td>
<td bgcolor="white"><%=Response.Write(Margem1)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem2</td>
<td bgcolor="white"><%=Response.Write(Margem2)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Margem3</td>
<td bgcolor="white"><%=Response.Write(Margem3)%></td>
</tr>
<tr>
<td bgcolor="green"><font color="white">EstoqueMinimo</td>
<td bgcolor="white"><%=Response.Write(EstoqueMinimo)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">HomePage</td>
<td bgcolor="white"><%=Response.Write(HomePage)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueCompra</td>
<td bgcolor="white"><%=Response.Write(EstoqueCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">EstoqueAtual</td>
<td bgcolor="white"><%=Response.Write(EstoqueAtual)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeCompra</td>
<td bgcolor="white"><%=Response.Write(UnidadeCompra)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">UnidadeVenda</td>
<td bgcolor="white"><%=Response.Write(UnidadeVenda)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Estoque</td>
<td bgcolor="white"><%=Response.Write(Estoque)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">Peso</td>
<td bgcolor="white"><%Response.Write(Peso)%></td>
</tr>
<tr>
<td bgcolor="Green"><font color="white">TamLarguraCompAlt</td>
<td bgcolor="white"><%=Response.Write(TamLarguraCompAlt)%></td>
</tr>
<tr>
</table>
<form  name="btn1" method="Post" action="consultar_produtos_cadastrados.asp">
<input type="Submit" name="frm4" value="Consulta >>>">
</form>

seguinte as duas primeiras paginas do sistema está funcionando essa terceira pagina está com problema e da esse erro

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

xanburzum · Maio 23, 2011

é então o problema, não é com o IIS, as configurações estão corretas, qual erro ele esta gerando atualmente ?

reinaldo polato · Maio 23, 2011

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

esse é o erro ele está em ingles porque o meu windows seven é em ingles ai eu instalei na atualização a linguagem portugues brazil br

eu desmarquei o mostrar mensagens de erro http amigaveis apareceu isso que está escrito em ingles

e ai galera beleza esse erro acontece na pagina que eu coloco cadastro o banco de dados o erro é

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

o iis do windows 7 ele da esse erro mais so com o banco de dados o resto funciona

o que pode ser isso

Vinicius Ianni · Maio 27, 2011

Os drivers para o banco de dados estão instalados corretamente ?

Por via das duvidas, reinstale-os e veja se o erro persiste

reinaldo polato · Maio 27, 2011

Deu certo valeu pela ajuda de todos voces ai

eu instalei o driver do banco de dados access 2003 resolvido

Vinicius Ianni · Maio 27, 2011

Que bom que deu certo !

Precisando, estamos ai :joia:

Arquivado

[Resolvido] IIS com erro

Recommended Posts

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

0cool 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

0cool 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

reinaldo polato 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Fóruns

Tempo Real

Informação importante