Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

jonime

pagina asp. não abre.porque????

Por , em ASP Clássico

Recommended Posts

jonime    0

jonime
Postado

SOU INICIANTE EM SITES E ESTOU COM UM PROBLEMA.fiz meu primeiro site "www.vipecasintercomercial.com.br"Tudo está funcionando certo com exeção das paginas em ASP "cadastro" e"lista de preços" como podem ver se acessarem o site as páginas não abrem.Eu não sou programador e fiz tudo no dreamweaver.Quando testo no servidor localtudo funciona perfeitamente,mas quando está no ar não Funciona.Não sei mais o que fazer pois não entendo de programação asp.Por favor alguem me ajude.Quando o site é aberto no navegador firefox é exibida a seguinte mensagem napágina "LISTA DE PREÇOS""Active Server Pages error 'ASP 0141'Page Command Repeated/Connections/CONEX2.asp, line 1The @ command can only be used once within the Active Server Page. NA PAGINA "CADASTRO" É A MENSAGEM EXIBIDA:"Active Server Pages error 'ASP 0141'Page Command Repeated/Connections/CONEX2.asp, line 1The @ command can only be used once within the Active Server Page. SEGUE ANEXO O CODIGO DA PAGINA"LISTA DE PREÇO"<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conex1.asp" --><%Dim Recordset1__SENHARecordset1__SENHA = "20"If (20 <> "") Then Recordset1__SENHA = 20End If%><%Dim Recordset1__SENHARecordset1__SENHA = "10"If (10 <> "10") Then Recordset1__SENHA = 10End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_conex1_STRINGRecordset1.Source = "SELECT " + Replace(Recordset1__SENHA, "'", "''") + " FROM SENHA1"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><%' *** Validate request to log in to this site.MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryStringMM_valUsername=CStr(Request.Form("nome"))If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="ACESSOLISTAPRE%C7OS.htm" MM_redirectLoginFailed="TENTE%20NOVAMENTE.ASP" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conex1_STRING MM_rsUser.Source = "SELECT NOME, SENHA" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM SENHA1 WHERE NOME='" & Replace(MM_valUsername,"'","''") &"' AND SENHA='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="600" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutDefaultTable--> <tr> <td width="183" height="50"> </td> <td width="381"> </td> <td width="36"> </td> </tr> <tr> <td height="189"> </td> <td align="center" valign="middle" bgcolor="#00CCFF"> <form name="form1" method="POST" action="<%=MM_LoginAction%>"> <p><font face="Arial, Helvetica, sans-serif"><strong>ACESSO AS LISTAS DE PREÇOS</strong></font></p> <p><font face="Arial, Helvetica, sans-serif"><strong>Se você está cadastrado como cliente VIPEÇAS Digite o nome e a senha que lhe foram enviados.</strong></font> </p> <p align="center">Nome <input name="nome" type="text" id="nome"> </p> <p> Senha <input name="senha" type="password" id="senha"> </p> <p> <input type="submit" name="Submit" value="Enviar"> </p> </form></td> <td> </td> </tr></table></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>AGORA VAI O CÓDIGO DA PÁGINA "CADASTRO"<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/CONEX2.asp" --><!--#include file="Connections/conex3.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "CADASTRO") Then MM_editConnection = MM_CONEX2_STRING MM_editTable = "tbl_cadastral" MM_editRedirectUrl = "PARABENS.HTM" MM_fieldsStr = "RAZAO SOCIAL|value|FANTASIA|value|CNPJ|value|ISCR.EST.|value|fone-a|value|fax-a|value|EMAIL|value|ENDEREÇO|value|NUMERO|value|BAIRRO|value|CIDADE|value|ESTADO|value|STHIL|value|HUSQVARNA|value|NENHUM|value|BRANCO|value|OUTRO|value|QUAL|value|ANOS|value|INDUSTRIA|value|COMERCIO|value|PRESERVIÇO|value|1-PROPRIE|value|1-CPF|value|1NASC|value|2PROPRIET|value|2CPF|value|2NASC|value|3PROPRIE|value|3CPF|value|3NASC|value|1BANCO|value|1AGENCIA|value|1FONE|value|1CTACORREN|value|2BANCO|value|2AGENCIA|value|2FONE|value|2CTACORREN|value|3BANCO|value|3AGENCIA|value|3FONE2|value|3CTACORREN|value|1EMPRESA|value|1TELEFO|value|2EMPRESA|value|2TELEFO|value|3EMPRESA|value|3TELEFO|value|1TRANSPO|value|2TRANSPO|value|3TRANSPO|value|POREMAIL|value|PORFAX|value|PORFONE|value" MM_columnsStr = "NomeEmpresa|',none,''|Nomefantasia|',none,''|CNPJ|',none,''|INSCREST|',none,''|NúmeroTelefone|',none,''|Fax|',none,''|EndereçodeEmail|',none,''|Endereço|',none,''|numero|',none,''|bairro|',none,''|Cidade|',none,''|Estado|',none,''|stihl|none,'Y','N'|husqvarna|none,'Y','N'|nenhuma|none,'Y','N'|branco|none,'Y','N'|outra|none,'Y','N'|Qual|',none,''|tempo|',none,''|industria|none,'Y','N'|comercio|none,'Y','N'|[prestaçao de serviço]|none,'Y','N'|NomeDodono|',none,''|cpf|',none,''|aniversario|',none,''|NomeDodono1|',none,''|cpf1|',none,''|aniversario1|',none,''|NomeDodono2|',none,''|cpf2|',none,''|aniversario2|',none,''|banco|',none,''|agencia|',none,''|fone|',none,''|[numero da conta]|',none,''|banco1|',none,''|agencia1|',none,''|fone1|',none,''|[numero da conta 1]|',none,''|banco2|',none,''|agencia2|',none,''|fone2|',none,''|[numero da conta 2]|',none,''|empresa1|',none,''|foneA|',none,''|empresa2|',none,''|foneB|',none,''|empresa3|',none,''|foneC|',none,''|transportadora|',none,''|transportadora1|',none,''|transportadora2|',none,''|poremail|none,'Y','N'|porfax|none,'Y','N'|porfone|none,'Y','N'" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_conex3_STRINGRecordset1.Source = "SELECT CNPJ FROM tbl_cadastral WHERE CNPJ ORDER BY CNPJ"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script></head><body bgcolor="#CCFFFF"><div id="Layer1" style="position: absolute; left: 93px; top: 16px; width: 586px; height: 134px; z-index: 1; background: #000000; vertical-align: middle; overflow: auto;"> <blockquote> <p align="center"> </p> <p align="center"><font color="#FFFF00" size="3" face="Arial, Helvetica, sans-serif"><strong>APÓS PREENCHER ESTE FORMULÁRIO CLIQUE NO BOTÃO "ENVIAR".ASSIM QUE SEU CADASTRO FOR APROVADO ENVIAREMOS INFORMAÇÕES DE COMO ACESSAR A PAGINA QUE CONTÉM A LISTA DE PREÇOS DO CATÁLOGO VIPEÇAS.</strong></font></p> </blockquote></div><div id="Layer2" style="position: absolute; left: 91px; top: 150px; width: 590px; height: 1631px; z-index: 2; background: #99CCFF"> <p align="center"> </p> <p align="center"><font color="#000000" size="5" face="Arial, Helvetica, sans-serif"><strong><em>CADASTRO DE CLIENTES</em></strong></font></p> <p><img src="IMAGENS%20INTERCOMERCIAL/LOGOVIPE.gif" width="590" height="39"></p> <p align="center"><font size="3" face="Arial, Helvetica, sans-serif"><strong><em>INFORMAÇÕES COMERCIAIS</em></strong></font></p> <form ACTION="<%=MM_editAction%>" METHOD="POST" name="CADASTRO" id="CADASTRO"> <p align="center">Razão Social <input name="RAZAO SOCIAL" type="text" id="RAZAO SOCIAL" size="61"> </p> <p align="center">Nome Fantasia <input name="FANTASIA" type="text" id="FANTASIA" size="."> </p> <p align="center">CNPJ/CPF <input name="CNPJ" type="text" id="CNPJ" size="26"> INSCR. EST. <input name="ISCR.EST." type="text" id="ISCR.EST." size="26"> </p> <p align="center">Telefone <input name="fone-a" type="text" id="fone-a2"> - Fax - <input name="fax-a" type="text" id="fax-a"> </p> <p align="center">E-mail <input name="EMAIL" type="text" id="EMAIL" size="67"> </p> <p align="center">Endereço <input name="ENDEREÇO" type="text" id="ENDEREÇO" size="44"> Número <input name="NUMERO" type="text" id="NUMERO" size="10"> </p> <p align="center">Bairro <input name="BAIRRO" type="text" id="BAIRRO"> </p> <p align="center">Cidade <input name="CIDADE" type="text" id="CIDADE" size="50"> Estado <input name="ESTADO" type="text" id="ESTADO" size="3"> </p> <p align="center">A SUA EMPRESA É AUTORIZADA:</p> <p align="center"> <input name="STHIL" type="checkbox" id="STHIL" value="checkbox"> STIHL <input name="HUSQVARNA" type="checkbox" id="HUSQVARNA" value="checkbox"> HUSVARNA <input name="NENHUM" type="checkbox" id="NENHUM" value="checkbox"> NENHUMA <input name="BRANCO" type="checkbox" id="BRANCO" value="checkbox"> BRANCO <input name="OUTRO" type="checkbox" id="OUTRO" value="checkbox"> OUTRA </p> <p align="center">Qual? <input name="QUAL" type="text" id="QUAL" size="30"> </p> <p align="center">Quanto tempo a Empresa tem de Atividades? <input name="ANOS" type="text" id="ANOS" size="5"> Anos</p> <p align="center">Seu ramo de atividade é <input name="INDUSTRIA" type="checkbox" id="INDUSTRIA" value="checkbox"> Industria <input name="COMERCIO" type="checkbox" id="COMERCIO" value="checkbox"> Comércio <input name="PRESERVIÇO" type="checkbox" id="PRESERVIÇO" value="checkbox"> Prestação de serviços</p> <p align="center"><font size="3" face="Arial, Helvetica, sans-serif"><strong><em>PROPRIETÁRIOS</em></strong></font> </p> <p align="center"> Nome <input name="1-PROPRIE" type="text" id="1-PROPRIE" size="47"> CPF <input name="1-CPF" type="text" id="1-CPF" size="14"> </p> <p align="center">Data Nascimento <input name="1NASC" type="text" id="1NASC"> </p> <p align="center">Nome <input name="2PROPRIET" type="text" id="2PROPRIET" size="47"> CPF <input name="2CPF" type="text" id="2CPF" size="14"> </p> <p align="center">Data Nascimento <input name="2NASC" type="text" id="2NASC"> </p> <p align="center">Nome <input name="3PROPRIE" type="text" id="3PROPRIE" size="47"> CPF <input name="3CPF" type="text" id="3CPF" size="14"> </p> <p align="center">Data Nascimento <input name="3NASC" type="text" id="3NASC"> </p> <p align="center"><font size="3" face="Arial, Helvetica, sans-serif"><strong><em>INFORMAÇÕES BANCÁRIAS</em></strong></font></p> <p align="center">Banco <input name="1BANCO" type="text" id="1BANCO" value="" size="25"> AG <input name="1AGENCIA" type="text" id="1AGENCIA" size="8"> Telefone <input name="1FONE" type="text" id="1FONE" size="18"> </p> <p align="center"> C/Corrente Nº <input name="1CTACORREN" type="text" id="1CTACORREN"> </p> <p align="center">Banco <input name="2BANCO" type="text" id="2BANCO" value="" size="25"> AG <input name="2AGENCIA" type="text" id="2AGENCIA" size="8"> Telefone <input name="2FONE" type="text" id="2FONE" size="18"> </p> <p align="center">C/Corrente Nº <input name="2CTACORREN" type="text" id="2CTACORREN"> </p> <p align="center">Banco <input name="3BANCO" type="text" id="3BANCO" value="" size="25"> AG <input name="3AGENCIA" type="text" id="3AGENCIA" size="8"> Telefone <input name="3FONE2" type="text" id="3FONE2" size="18"> </p> <p align="center">C/Corrente Nº <input name="3CTACORREN" type="text" id="3CTACORREN"> </p> <p align="center"><font face="Arial, Helvetica, sans-serif"><strong><font size="3"><em>INFORMAÇÕES COMERCIAIS</em></font></strong></font></p> <p align="center"> Empresa <input name="1EMPRESA" type="text" id="1EMPRESA" size="36"> Telefone <input name="1TELEFO" type="text" id="1TELEFO" size="18"> </p> <p align="center">Empresa <input name="2EMPRESA" type="text" id="2EMPRESA" size="36"> Telefone <input name="2TELEFO" type="text" id="2TELEFO" size="18"> </p> <p align="center">Empresa <input name="3EMPRESA" type="text" id="3EMPRESA" size="36"> Telefone <input name="3TELEFO" type="text" id="3TELEFO" size="18"> </p> <p align="center"><font size="2" face="Arial, Helvetica, sans-serif"><em><strong>QUAIS AS EMPRESAS DE ÔNIBUS FAZEM LINHA EM SUA CIDADE?</strong></em></font></p> <p align="center"> Nome da Empresa <input name="1TRANSPO" type="text" id="1TRANSPO" size="47"> </p> <p align="center">Nome da Empresa <input name="2TRANSPO" type="text" id="2TRANSPO" size="47"> </p> <p align="center">Nome da Empresa <input name="3TRANSPO" type="text" id="3TRANSPO" size="47"> </p> <div align="center"> <p><font face="Arial, Helvetica, sans-serif"><strong><em><font size="2">MARQUE COMO VOCÊ GOSTARIA DE RECEBER AS INSTRUÇÕES PARA</font></em></strong></font></p> <p><font face="Arial, Helvetica, sans-serif"><em><strong><font size="2">ACESSAR A </font></strong></em><font size="2"><em><strong>LISTA DE PREÇOS DO CATÁLOGO VIPEÇAS ?</strong></em></font></font> </p> </div> <p align="center"><em><strong><font face="Arial, Helvetica, sans-serif"> <input name="POREMAIL" type="checkbox" id="POREMAIL" value="checkbox"> Por E-mail ? <input name="PORFAX" type="checkbox" id="PORFAX" value="checkbox"> Por Fax ? <input name="PORFONE" type="checkbox" id="PORFONE2" value="checkbox"> Por Telefone?</font></strong></em></p> <p align="center"><em><strong> <input type="submit" name="Submit" value="Enviar"> </strong></em></p> <input type="hidden" name="MM_insert" value="CADASTRO"> </form> <p align="center"> </p> <p> </p></div></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>AGRADEÇO A QUEM POSSA ME AJUDAR.

Compartilhar este post

Link para o post
Compartilhar em outros sites

covered    0

covered
Postado

tu tá reptindo o comando

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>[/tr]

 

Quando tu fizer inclde, na pagina que vai ser incluida, tire o código que está acima

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

AMIGO,GRATO PELA ATENÇÃO.EU DELETEI O CÓDIGO"<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>"AGORA O FIREFOX EXIBE O SEGUINTE ERRO QUANDO CLICKO NO BOTÃO "LISTA DE PREÇOS"Active Server Pages error 'ASP 0135'Cyclic Include/Connections/conex1.asp, line 2The file '../Connections/conex1.asp' is included by itself (perhaps indirectly). Please check include files for other Include statements.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que ta dizendo agora é você inclui uma pagina que inclui outra e que acaba incluindo a mesma pagina inicialmente chamada, ouseja os includes entraram em loop....

Compartilhar este post

Link para o post
Compartilhar em outros sites

mvz    0

mvz
Postado

O dreamweaver costuma repetir o "<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>" quando você faz um segundo conjunto de registros na página por exemplo.... preste atenção pq vai acontecer de novo.... e você está usando include no arquivo de conexão?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

O dreamweaver costuma repetir o "<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>" quando você faz um segundo conjunto de registros na página por exemplo.... preste atenção pq vai acontecer de novo.... e você está usando include no arquivo de conexão?

agora o erro é outro: Cyclic Include

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito