Link No Bd

[Mateustg]

Olá, é o seguinte:

tenho um sistema onde tenho uma categoria cadastrada e dentro dela posso cadastrar vários albuns. Dentro dos albuns posso colocar várias fotos.

então, quando crio um album, ele fica possivel ser acessado através deste link:

""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """><img width=""60"" height=""60"" border=0 src="""&imagem&"""

Aqui ele pega o id e o nome da categoria, o id e nome do album, sendo que o id e nome da categoria, sempre serão os mesmo, somente o id e nome do album que mudaram...tipo..idalbum=5&album= Lote 2 (este vai para o lote 2), caso seja idalbum=6&album= Lote 3 (este vai para o lote 3), o que mudou foi o id e o nome...pois bem, gostaria de saber como faço para gravar isto no Banco de Dados?

É que vou fazer uma área de administração, para cadastro de usuários, então quero que no cadastro tenha, o login, a senha e o lote que o cara vai escolher..se ele escolher o lote 2...então será gravado no BD o login e a senha q ele digitou e se foi lote 2, será gerado no campo correspondente do BD o link que vai para o lote 2...como faço isso?

[--Ludson--]

olha Mateus..

se eu entendi, o que você quer é que o usuário acesse o lote que ele escolheu no cadastro certo?

então no seu BD, cria o campo lote, ai no sql você coloca....

lote_url = Request.QueryString("lote")

... SELECT * FROM tabela WHERE lote = '" & lote_url &"' "...

tipo..

é isso msmo q você qria?

[Mateustg]

Ludson,

o que eu quero é que eu possa cadastrar o login e senha do usuário e qual lote ele terá acesso..tipo...lote 2...então ele só poderá acesar o lote 2.

Mas para ir ao lote dois o link deve ser:

default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome")

Onde este código acima, pegará qual o lote desejado...pois pode ser lote 2, 3, 4, etc...

Se eu colocar lote_url = Request.QueryString("lote")

ele não irá permitir q o usuário vá para o lote 2 por exemplo....pois pelo q entendi q você colocou, ele irá pegar somente o nome do lote...

o que preciso é que ele pegue o link para o lote que foi escolhido por mim na área de administração...tipo...lote 10...então ele pega o link para abrir o lote 10...se o cara digitar o login e senha.

será q fui mais claro?

[--Ludson--]

então Mateus..

com esse select você vai retornar somente as fotos referente ao lote 2 por exemplo...

default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=lote 2

em vez de colocar o Request.QueryString, faz direto..

Select * from Album WHERE album = '"rsAlbum("nome")"'"

desse jeito..

vai te retornar todos os registro que tenham o nome igual a lote 2 por exemplo

dessa forma, qualquer usuário que entrar vai ter acesso à area correspondente..

porque só vai retornar as fotos do album "tabela 2".. ou "3" .. etc..

se não for isso que você quer.. foi mal....

eu acho que é o que você quer.. ou você não ta entendendo direito.. ou eu que não to consegundo explicar!

=)

hehehe..

acontece..

=)

tipo.. alguém mais ai..

ajuda"""

flows

[Mateustg]

bem, vou testar isso que você me passou...

só pra entender...tanto pra mim como pra você...é isso que quero:

na área de administração vai estar assim:

Usuário: ________

Senha: ________

Lote: |Lote 1| (aqui é um select)

Se eu escolher lote 2...no bd será gravado que a url é para o lote 2 somente.

Se eu usar isso que você me passou irá fucionar??? Mas como ele vai interpretar que é para ir para o link do lote 2?

[--Ludson--]

você vai criar uma página para cada lote?

[--Ludson--]

Mateus..

eu desenvolvi um sistema tipo de loja virtual..

eu criei apenas uma página para produtos...

no meu bd tenho..

as tabelas:

- Produtos

- Categorias

- Subcategorias

em produtos eu fiz da segunte maneira...

se a url for:

http://localhost/produtos.asp

o sistema vai me mostrar todas as categorias e todos os produtos.

se a url for:

http://localhost/produtos.asp?sessao=eletronicos

o sistema me mostra todos os produtos da area eletronicos

se a url for:

http://localhost/produtos.asp?sessao=eletronicos&area=tv

o sistema me mostra todas as televisões

se o se a url for:

http://localhost/produtos.asp?sessao=eletr...&codigo=1006559

o sistema mostra uma página só para o produto, com detalhes e tal..

funciona assim...

ele pega o que eu preciso pelo endereço, e eu filtro isso pelo SQL...

na minha tabela produtos eu tenho:

codigo, nome, fabricante, preço, categoria e subcategoria...

vou postar o script +- pra você dar uma olhada..

...

[--Ludson--]

eu tva meio sem saco de escrever os códigos, então fiz no dreeamweaver.. mais vai dar pra você ter uma idéia....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>

<%
Dim MM_produtos_STRING
MM_produtos_STRING = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:/Inetpub/wwwroot/mapicenter/mdb/produtos.mdb"


Dim produtos__MMColParam
produtos__MMColParam = "1"
If (Request.QueryString("cod") <> "") Then 
  produtos__MMColParam = Request.QueryString("cod")
End If
%>


   <%
    area = request.QueryString("area")
  sessao = request.QueryString("sessao")
  cod = request.QueryString("cod")
    	
  if area = "" then

Dim Recordset2
Dim Recordset2_numRows
Dim sessao

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_produtos_STRING

Recordset2.Source = "SELECT top 10 * FROM produtos WHERE categoria LIKE '" & sessao & "%' ORDER BY vezes DESC"

Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0

   If Recordset2.EOF or Recordset2.BOF Then 
' Pesquisa não encontrou nada 
%>

<center>Nenhum registro encontrado nesta categoria!</center>
<%
Response.End 
End If 
%>

	<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>

                
se area for vazio entra nessa página..  
  	
    	
     
  <% else%>
  <%
    if area <> "" then
    if cod = "" then
' se área não for vazio, mais o código é
   %>
       
  <%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_produtos_STRING

Recordset3.Source = "SELECT * FROM produtos WHERE subcategoria LIKE '" & area & "%' AND categoria LIKE '" & sessao & "%' ORDER BY vezes DESC"

Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0

If Recordset3.EOF or Recordset3.BOF Then 
' Pesquisa não encontrou nada 
%>

<center>Nenhum registro encontrado nesta categoria!</center>

<%
Response.End 
End If 
%>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset3.EOF)) 
%>

entra nessa página se area = ""

<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset3.MoveNext()
Wend
%>


      	
	<% end if
  if cod <> "" then %>
<%
Dim produtos
Dim produtos_numRows


Set produtos = Server.CreateObject("ADODB.Recordset")
produtos.ActiveConnection = MM_produtos_STRING

produtos.Source = "SELECT * FROM produtos WHERE codigo = '" + Replace(produtos__MMColParam, "'", "''") + "'"

produtos.CursorType = 0
produtos.CursorLocation = 2
produtos.LockType = 1
produtos.Open()

produtos_numRows = 0

If produtos.EOF or produtos.BOF Then 
' Pesquisa não encontrou nada 
%>

 Nenhum registro encontrado nesta categoria!



<%
Response.End 
End If 

%>

entra aqui se codigo não for vazio.
      	
<%
  sql = "UPDATE produtos SET vezes = vezes + 1 WHERE codigo = '" & cod  & "' "
  set rs = conexao.execute(sql)
%>

<%
produtos.Close()
Set produtos = Nothing

end if
end if
end if

%>

tipo..

eu tirei os códigos HTMl...

o código ai ta meio sujo..

mais acho que da pra você ter uma noção +-

[Mateustg]

é isso..meu código é assim (aqui só um pedaço, q no caso está inserindo o id e a imagem no db):

Case "en_foto" 
If Request.Form("enviado") = "sim" Then 
Sql = "INSERT INTO fotos (idalbum,imagem) "
Sql = Sql & "VALUES('"&Request.Form("idalbum")&"','"&Request.Form("imagem")&"')" 
Conexao.Execute(Sql) 
Response.Write "Enviado Com Sucesso<BR><A href=admin.asp>Voltar</a>"
Else %>
<form method="POST" action="admin.asp?sessao=en_foto">
<input type="hidden" name="enviado" value="sim">
Album: <select size="1" name="idalbum">
<% Set rs=Conexao.Execute("SELECT * FROM album ORDER BY nome")
While not rs.EOF
Response.Write "<option value="&rs("id")&">"&rs("nome")&"</option>"
rs.Movenext
Wend %>
</select><BR>
Imagem: <input type="text" name="imagem" size="20" value="http://"><BR>
<input type="submit" value="Enviar">
</form>

então devo fazer similar a isto, mas colocando para ler o link???

default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome")

estou falando deste link, pois ele só leva ao album correspondente se ele souber qual vai ser o idablum e qual o album....é tudo uma coisa só. entendeu?

[Mateustg]

alguém pode me ajudar?

[dark0]

olá mateus

explique até onde você chegou.. pois seu tópico tá grandinho, hehe

se puder explicar melhor, eu posso tentar ajudar..

Abraço..

[Mateustg]

Resumindo tudo....eu tenho um sistema onde o mesmo mostra as categorias cadastradas (ex.: lote1, lote2) e ao clicar na categoria, é aberta as fotos dela.

Já tenho toda a administração para criar categorias e as fotos, agora quero fazer que ao clicar na categoria, em vez de mostrar as fotos de uma vez, primeiro entre pedindo login e senha, pois só quem tem senha vai entrar e ver. Só que quero fazer o seguinte...no cadastro vou definir qual lote ele pode ver...(ex.: lote 2), então se ele entrar e clicar na categoria do lote2, ele irá digitar o login e senha e será levado ao lote 2.

o que não to sabendo é que para cada categoria abrir e mostrar suas respectivas fotos, ele tem um link que leva para a categoria e para os albuns de foto:

<a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>

Então quero que na administração eu possa cadastrar o login, a senha e escolher num select qual o lote q ele tem acesso....sendo que ao escolher lote 2 por exemplo...ele tem q definir que ao abri o lote2 e digitar os dados de login e senha cadastrados no BD, ele abra as fotos...

entendeu?

[dark0]

Então

Crie o formulario, exatamente como você falou

Um campo usuario

Outro campo Senha

Um combo listando todos os lotes

No banco, na tabela que deve guardar o login, crie um campo pra guardar o lote junto ào login também.

Assim, quando você der o submit para cadastrar esse usuario, faça um insert nessa tabela, guardando estes dados nela.

Depois, quando solicitar o login, somente teste se o usuario e senha são válidos, e pegue o nome do lote do usuario digitado e compare com o lote que ele acabou de clicar.

Logicamente falando, seria essa a idéia

[Mateustg]

certo, entendi a lógica....mas como posso fazer para comparar o lote q cadastrei com o lote clicado?

[dark0]

o cara clica no lote: CASA

então, você faz aparecer o formulario de login.

O usuario digita o usuario e a senha, e você valida na hora: usuario, senha e lote.

sql = "select * from tabela where usuario=usuario_digitado and senha=senha_digitada and lote=CASA"

set rs = conexao.execute(sql)

if rs.eof = true then

response.write "Senha ou usuario invalidos"

response.end

end if

[Mateustg]

vou tentar, mas só uma outra dúvida minha:

para entrar em um lote ele usa este seguinte link:

<a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>

eu devo fazer o login dentro desta mesma página (onde mostra o link) ou posso trocar o link para em vez de entrar no link da foto, entrar numa página chamada logon.asp por exemplo....ai na pág. logon eu coloco isto q você me falou???

[dark0]

tanto faz

você pode fazer de diversos modos.

um modo bastante usado tb, seria assim:

Quando o cara clica para abrir um lote, você redireciona ele para a pagina de login.

Depois que ele fizer o login, (no select para verificar ologin, você testa só o usuario e a senha), você guarda o lote que aquele usuario tem acesso em uma session. tipo: session("lote") = rs("lote")

Depois que o login for feito, você redireciona ele para essa pagina de lote novamente.

E, no começo dela você testa:

If session("lote") = "Lote1" then

' libera a pagina

else

' da uma mensagem de erro pra ele, dizendo que não tem acesso a esse lote

end if

Mas, como lhe falei, tanto faz.. monta do modo que você achar melhor.

[Mateustg]

dark0, se eu quiser que a senha para um lote sempre seja a mesma, só mude o usuário? tipo, o lote 2 a senha sempre será 02, como posso fazer com que no BD seje colocado sempre esta senha, evitando que seje necessário o administrador ter q digitar todas as vezes?

[dark0]

bom, ae muda tudo né..

você teria que criar uma tabela só pra lotes.. e nela definir a senha que quiser

depois, quando o usuario for fazer login, ele usaria essa senha do lote..

ou alguma coisa parecida

[Mateustg]

galera, alguém pode me socorrer...to tentando fazer com que esta página abaixo em vez de ir para a página dos albuns, ela abra primeiro pedindo login e senha e depois sim...se os dados baterem, ela ir para o album selecionado.

No item '/////COMECA OS ALBUNS, há o link que leva para o lote escolhido: <a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>

Em vez dele ir para este link, gostaria q fosse 1º para logar e depois sim para ele.

Como faço? sendo que eu irei cadastrar qual album ele tem acesso.

<!--#include file="conectar.asp"-->
<html>
<head>
<title>Album de Fotos</title>
</head>
<body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2">
<font face="Verdana" size="1">
<BR><HR size="1"><BR>
<% AbreConexao
idcat=request.querystring("idcat")
idalbum=request.querystring("idalbum")
cat=request.querystring("cat")
album=request.querystring("album")

'/////COMECA AS CATEGORIAS
If idcat = "" Then
Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome")
If rsCats.EOF Then
Response.Write "Nenhuma categoria encontrada!"
Else
While not rsCats.EOF
Response.Write "<a href=""default.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><br>"
rsCats.Movenext
Wend
End If

'/////COMECA OS ALBUNS
Else
If idalbum = "" Then
Response.Write "<font size=2><B>"&cat&"</font></B>"
Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome")
If rsAlbum.EOF Then
Response.Write "Nenhum lote encontrado!"
Else
Response.Write "<div align=""center""><table border=0 cellpadding=5 cellspacing=0 width=""70%"">"
contar = 0
Do while not rsAlbum.eof 
If contar <> 5 Then 
Response.Write "<TR>"
End If 
imagem=rsAlbum("imagem")
If RsAlbum.eof then exit do
Response.Write "<td><a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td><BR>"
contar = contar +1
rsAlbum.Movenext
Loop
Response.Write "</tr></table></div>"
End if


'/////COMECA AS FOTOS
Else
Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>"
Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"")
If rsFotos.EOF Then
Response.Write "Nenhuma foto encontrada!"
Else
Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"
contar = 0
Do while not rsFotos.eof 
If contar = 5 Then 
Response.Write "<tr>"
End If 
If contar <> 5 Then 
Response.Write "<TR>"
End If 
imagem=rsFotos("imagem")
If RsFotos.eof then exit do
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>"
contar = contar +1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
Loop
Response.Write "</tr></table></div>"
End if
End If

End If %></font>
<p><HR size="1">
</body>
</html>

[dark0]

Olá

você pode fazer direto..

Aqui nessa pagina, você está mandando para a pagina de lotes, né?

Então, no começo da pagina de lotes, você verifica se foi feito o login.

Se não tiver logado, manda para pagina de login.

Se tiver logado, você libera a pagina

A idéia mais simples é essa.

Então, quando é feito o login, você cria uma Session.

A session fica ativa por todas as paginas acessadas, e só perde seu valor, quando a pagina for fechada.

Sendo assim, fica facil né?

você cria uma session quando é feito o login.

Se essa session estiver vazia, significa que o usuario não fez login, então, você bloqueia ele, e manda ele fazer o login.

Depois que ele fizer o login, você redireciona ele para a pagina de lotes, e, como ele já fez o login, vai estar liberado

Qualquer duvida, pode postar

Abraço

[Mateustg]

O meu problema é que da categoria para os lotes...tudo está na mesma página (defaul.asp)...a página que postei acima é a página default.asp, onde mostra todo o relacionamento.

se eu crio o login separado (outra pág) ele dá erro, pois o link que leva para mostrar os lotes tem referencia com a pág. default.asp

[dark0]

então

Antes de mostrar na tela os lotes, faz o if testando se a session foi criada

Se ela estiver vazia, dá um simples redirect para a pagina de login.

Após o login, dá outro redirect para a default.asp

assim, ele terá feito o login, e deve funcionar na boa

Qualquer coisa posta aí

Abraço

PS: Eu até posso fazer para vc.. conforme havia me pedido no MSN.. não cobraria caro.. Mas, como você já quase resolveu tudo.. acredito que nem precise gastar dinheiro

[Mateustg]

dark0, você é o cara...lhe devo uma....você me ajudou bastante...já consegui fazer funcionar aplicando um método aqui.

Agora gostaria de uma outra pequena ajuda...

se eu pegar o endereço e digitar na barra de endereço, ele está abrindo o album...e gostaria que não abrisse...só abrir se for pelo login...o que faço?

[dark0]

digamos que tem 2 modos de fazer isso..

1 deles, é testando a pagina anterior. Se for a pagina de login, libera.

O outro modo, é testando a session, como lhe falei..

Poste aqui como ficou o seu codigo, pra mim ver se não tem nada de errado

Pois, se você fez o if testando a session, deveria bloquear mesmo digitando o endereço completo..

[Mateustg]

Estanho eu fiz o if testando a session...veja meu código:

<%
'A primeira coisa a ser feita é verificar se o usuário está logado
If session("nivel_acesso") = "" Then
Response.Write "Você não está logado!"
Response.End
End If

'Vamos então, verificar o nivel de acesso do usuário e inserirmos o conteúdo correspondente
If session("nivel_acesso") = 1 Then 'gerentes
%>
<!--#include file="conectar.asp"-->
<html>
<head>
<title>Album de Fotos</title>
</head>
<body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2">
<font face="Verdana" size="1">
<BR><HR size="1"><BR>
<% AbreConexao
idcat=request.querystring("idcat")
idalbum=request.querystring("idalbum")
cat=request.querystring("cat")
album=request.querystring("album")
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha") 

'/////COMECA AS CATEGORIAS
If idcat = "" Then
Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome")
If rsCats.EOF Then
Response.Write "Nenhuma categoria encontrada!"
Else
While not rsCats.EOF
Response.Write "<a href=""default2.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><br>"
rsCats.Movenext
Wend
End If

'/////COMECA OS ALBUNS
Else
If idalbum = "" Then
Response.Write "<font size=2><B>"&cat&"</font></B>"
Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome")
If rsAlbum.EOF Then
Response.Write "Nenhum lote encontrado!"
Else
Response.Write "<div align=""center""><table border=0 cellpadding=5 cellspacing=0 width=""70%"">"
contar = 0
Do while not rsAlbum.eof 
If contar <> 5 Then 
Response.Write "<TR>"
End If 
imagem=rsAlbum("imagem")
If RsAlbum.eof then exit do
Response.Write "<td><a href=""login.html""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></td><BR>"
contar = contar +1
rsAlbum.Movenext
Loop
Response.Write "</tr></table></div>"
End if


'/////COMECA AS FOTOS
Else
Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>"
Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"")
If rsFotos.EOF Then
Response.Write "Nenhuma foto encontrada!"
Else
Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"
contar = 0
Do while not rsFotos.eof 
If contar = 5 Then 
Response.Write "<tr>"
End If 
If contar <> 5 Then 
Response.Write "<TR>"
End If 
imagem=rsFotos("imagem")
If RsFotos.eof then exit do
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>"
contar = contar +1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem=rsFotos("imagem") 
Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60""  border=0 src="""&imagem&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
Loop
Response.Write "</tr></table></div>"
End if
End If

End If 
End If

'/////COMECA LOGIN
sessao = request.querystring("sessao")
Select case sessao
Case "log"
Set rsCadastro = Conexao.Execute("SELECT * FROM cadastro WHERE login = '"&login2&"' and senha = '"&senha2&"'")
If rsCadastro.EOF Then
Response.Write "usuário ou senha inválido(s)!"
Response.End
End If

'Se chegou até aqui, é porque o login e senha estão corretos.
'Vamos então verificar o nível de acesso do usuário.

session("nivel_acesso") = RSCadastro("nivel")

'Colocamos numa session pois iremos utiliza-las em outras páginas

Response.Redirect "default2.asp?idcat=" & 1 & "&cat=" & Lotes & "&idalbum=" & rsCadastro("idalbum")& "&album=" & rsCadastro("nome") & "" 'página restrita
End Select

%></font>
<p><HR size="1">
</body>
</html>