Ir para conteúdo

POWERED BY:

Arquivado

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

jonime

programadores asp

Por , em ASP Clássico

Recommended Posts

jonime    0

jonime
Postado

SENHORES PROGRAMADORES ASP.Não sei nada de programação,estou fazendo um site no dreamweaver,tem uma página que contem nome ,senha em asp que quando coloco em ftpnão abre.NO servidor local funciona perfeitamente.Já estou quase louco de tanto mexer e não resolver.Portanto peço ajuda mais uma vez.AQUI VAI O CODIGO DA PAGINA A SER ABERTA:<%@LANGUAGE="VBSCRIPT" %> <!--#include file="Connections/LUA.asp" --><%Dim Recordset1__SENHARecordset1__SENHA = "5"If (100 <> "") Then Recordset1__SENHA = 100End If%><%Dim Recordset1__NOMERecordset1__NOME = "6"If (5 <> "") Then Recordset1__NOME = 5End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_LUA_STRINGRecordset1.Source = "SELECT " + Replace(Recordset1__SENHA, "'", "''") + ", " + Replace(Recordset1__NOME, "'", "''") + ", NUMERAÇÃO FROM TBL_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 <> "" ThenMM_fldUserAuthorization=""MM_redirectLoginSuccess="ACESSOLISTAPREÇOS.htm"MM_redirectLoginFailed="TENTE NOVAMENTE.ASP"MM_flag="ADODB.Recordset"set MM_rsUser = Server.CreateObject(MM_flag)MM_rsUser.ActiveConnection = MM_LUA_STRINGMM_rsUser.Source = "SELECT NOME, SENHA"If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorizationMM_rsUser.Source = MM_rsUser.Source & " FROM TBL_SENHA1 WHERE NOME='" & Replace(MM_valUsername,"'","''") &"' AND SENHA='" & Replace(Request.Form("senha"),"'","''") & "'"MM_rsUser.CursorType = 0MM_rsUser.CursorLocation = 2MM_rsUser.LockType = 3MM_rsUser.OpenIf Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid userSession("MM_Username") = MM_valUsernameIf (MM_fldUserAuthorization <> "") ThenSession("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)ElseSession("MM_UserAuthorization") = ""End Ifif CStr(Request.QueryString("accessdenied")) <> "" And false ThenMM_redirectLoginSuccess = Request.QueryString("accessdenied")End IfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginSuccess)End IfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginFailed)End If%><html><head><title>ACESSO A TABELA</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 ACTION="<%=MM_LoginAction%>" name="form1" method="POST"><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%>AQUI VAI O CODIGO DA FONTE DSN<%' FileName="Connection_odbc_conn_dsn.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_LUA1_STRINGMM_LUA1_STRING = "dsn=NOVISSIMA;"%>por favor me retornem o mais breve possiveldesde ja fico agradecido.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O erro é que essa DSN "NOVISSIMA", informada no seu arquivo de conexão, com certeza quase absoluta, não existe.

 

Dê uma olhada no tópico pendurado "Perguntas Frequentes" e dê uma olhada no tópico sobre Conexões, e use a que informa o nome de seu BD access.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

desculpe,postei o codigo da dsn erradoo correto é:<%' FileName="Connection_odbc_conn_dsn.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_LUA_STRINGMM_LUA_STRING = "dsn=LUANA;"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

mas mesmo com o codigo postado acima não funciona ou seja a pagina não abre.porque que quando faço o teste no servidor local tudo fuciona perfeito?O erro pode estar com o provedor ou está na conexão?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem o DSN que funciona na sua maquina só vai funcionar no servidor se for criado lá também...utilize DBQ pra funcionar em ambos sem a necessidade de mexer no servidor...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

http://www.connectionstrings.com/

 

varios exemplos de conexões

 

na parte que tem

 

Dbq=C:\mydatabase.mdb

 

você poe o caminho de seu banco, pose ser o caminho virtual desde que você use SERVER.MAPPATH para converter para o caminho fisico...

 

qualquer coisa grita...

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

nome da conexão: LUAnome do banco de dados:bancovipecas.mdbo banco de dados esta neste end:C:\inetpub\wwwroot\vipecasintercomercial\connections\bancovipeças.mdbCOMO FICA ESTA CONEXÃO COM MAPPATH ?Pode montar para mim,grato pela atenção

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

em qual destas paginas estára a pagina??? ou se estiver em outra ela estará no mesmo nivel de qual??

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

ÉSTA É A PAGINA QUE EU PRECISO QUE ABRA QUANDO FOR CLICADO O BOTÃO "LISTA DE PREÇOS" (O SITE É www.vipecasintercomercial.com.br")<%@LANGUAGE="VBSCRIPT" %> <!--#include file="Connections/LUA.asp" --><%Dim Recordset1__SENHARecordset1__SENHA = "5"If (100 <> "") Then Recordset1__SENHA = 100End If%><%Dim Recordset1__NOMERecordset1__NOME = "6"If (5 <> "") Then Recordset1__NOME = 5End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_LUA_STRINGRecordset1.Source = "SELECT " + Replace(Recordset1__SENHA, "'", "''") + ", " + Replace(Recordset1__NOME, "'", "''") + ", NUMERAÇÃO FROM TBL_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ÇOS.htm" MM_redirectLoginFailed="TENTE NOVAMENTE.ASP" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_LUA_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 TBL_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>ACESSO A TABELA</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 ACTION="<%=MM_LoginAction%>" name="form1" method="POST"> <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%>-E NESTA PAGINA (ACIMA) QUE DEVERÁ SER FEITA OU ACERTADA A CONEXÃO COM OS DADOS POSTADOS ANTERIORMENTE-Mais uma vez grato pela atenção

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

sei disso...mas pra fazer a conexao preciso saber em qual diretprio se encontra a pagina...é em algum dos mostrados naquele seu caminho?? se não for me diz qual é no nivel de qual daquele exemplo...se estiver no diretorio vipecasintercomercialserá assim..."Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("connections\bancovipeças.mdb")

Compartilhar este post

Link para o post
Compartilhar em outros sites

jonime    0

jonime
Postado

o caminho é este mesmo que você colocou porem ao fazer um teste de conexão deu varios erros.veja se estou fazendo certo:1-clico banco de dados (+) abre no menu flutuante-sequencia personalizada de caracteres da conexão-nome da fonte de dados (DS)2- clico na primeira opção ...sequen...abre janela-nome da conexão-sequencia personsl...(aqui coloco o texto)-seleciono utilizar drive no servidor de teste3-clico em testar..dai da varias opções de erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que teste é esse?? teste na pagina mesmo...na pagina o que acontece??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

O TESTE É FEITO NO DREAMWEAVER.RECEBEU MEU EMAIL???

não sei vou verificar...EDITADOJá respondi

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