Ir para conteúdo

POWERED BY:

Arquivado

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

miquimba

global.asa e index.asp

Por , em ASP Clássico

Recommended Posts

miquimba    0

miquimba
Postado

Alguem pode me ajudar a entender como que funciona os arquivos global.asa e index.asp, por favor?

 

segue scripts abaixo;

global.asa

<script language="vbscript" runat="server">
sub Session_OnStart
	application("login") = "kodo"

	'cor1: background página
	'cor2: background tabela
	'cor3: background menu primário
	'cor4: background menu secundário
	'cor5: texto tabela
	'cor6: texto menu primário

	application("cor1") = "DDDDDD"
	application("cor2") = "BC1A17"
	application("cor3") = "800000"
	application("cor4") = "990000"
	application("cor5") = "FFFFFF"
	application("cor6") = "FFFFFF"
end sub
</script>

index.asp

<%
login = application("login")
cor1 = application("cor1")
cor2 = application("cor2")
cor3 = application("cor3")
cor4 = application("cor4")
cor5 = application("cor5")
cor6 = application("cor6")

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Provider=SQLOLEDB.1;SERVER=201.76.55.13;DATABASE=procurandomeucarro1;UID=procurandomeucarro1;PWD=ProcInfo08;"
Set conrs = Server.CreateObject("ADODB.RecordSet")
conrs.open "SELECT revenda, clicks FROM Revendas WHERE login = '" & login & "'",conexao,1,3
revenda = conrs("revenda")
clicks = conrs("clicks") + 1
conrs.close
conexao.execute "UPDATE Revendas SET clicks = " & clicks & " WHERE login = '" & login & "'"
Set conrs = nothing
conexao.close
Set conexao = nothing
%>
<html>
<head>
<title><%=revenda%></title>
</head>
<frameset cols="*"><frame src="http://www.procurandomeucarro.com.br/rev/nmod1/index.asp?l=<%=login%>&c1=<%=cor1%>&c2=<%=cor2%>&c3=<%=cor3%>&c4=<%=cor4%>&c5=<%=cor5%>&c6=<%=cor6%>"></frameset>
</html>

qdo tento acessar pelo dominio www.procurandomeucarro.com.br/evidenciaveiculos, da esse erro;

ADODB.Field error '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/evidenciaveiculos/index.asp, line 14

 

mas, qdo acesso pelo dominio www.procurandomeucarro.com.br/kodoveiculos, acessa normalmente.

Alguem pode me ajudar, pois esse e meu primeiro site em asp

 

Desde ja agradeco

 

ATT.

Marcos Adilson

marcos_miquimba@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O erro acontece na index.asp. Você tem que validar se encontrou ou não os registros, antes de tentar acessá-los.

If Not conrs.Eof Then
'acessa os campos
Else
	Response.Write "Nenhum registro encontado."
End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

miquimba    0

miquimba
Postado

O erro acontece na index.asp. Você tem que validar se encontrou ou não os registros, antes de tentar acessá-los.

If Not conrs.Eof Then
'acessa os campos
Else
	Response.Write "Nenhum registro encontado."
End If

e o mesmo arquivo nas 2 pastas, pq so uma aparece, sendo que sao iguais?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

São arquivos iguais, mas acessam informações diferentes. Um possui registros para retornar, o outro não possui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

miquimba    0

miquimba
Postado

continuei na mesma, sem entender...

oq reparei e que os sites, embora tenham dominios proprios, como o exemplo da kodo veiculos (www.kodoveiculos.com.br), da para acessar por

www.procurandomeucarro.com.br/kodoveiculos, os DNS do dominio kodoveiculos.com.br sao iguais ao do procurandomeucarro.com.br.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Cada vez que você acessa uma página ela faz essa consulta

conrs.open "SELECT revenda, clicks FROM Revendas WHERE login = '" & login & "'"

 

Essa consulta é baseada no login. Nesse caso cada página acessada terá um login diferente, o que retornará registrados diferentes.

 

Conforme foi falado acima, a página com erro, é pq não existe registros para a consulta citada. Para solucionar isso, basta fazer um If Not conrs.Eof Then para verifica se há ou não registros.

 

Qualquer dúvida poste novamente.

 

Obs. você estudou ASP antes de começar a programar?

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