lógica para album

hudsonalves · Junho 22, 2015

Preciso de ajuda com uma lógica para album de fotos.

Tenho um BD com duas tabelas:

- A primeira chamada TYPES onde cadastro o nome do album e a foto, nele tenho as seguintes colunas: TYPE_ID, TYPE_NAME e TYPE_IMAGE

- A segunda chamada PICTURES onde cadastro as fotos do álbum, nele tenho as seguintes colunas: PIC_ID, PIC_TYPE (onde uso os dados do TYPE_ID para relacionar), PIC_NAME e PIC_IMAGE.

Bem, chamo os albuns desta forma:

<%
Dim rsTypesGallery__MMColParam
rsTypesGallery__MMColParam = "1"
If (Request.QueryString("iUsuario") <> "") Then 
  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")
End If
%>

<%
Dim rsTypesGallery
Dim rsTypesGallery_numRows
Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")
rsTypesGallery.ActiveConnection = MM_conn_STRING
rsTypesGallery.Source = "SELECT TOP 20 * FROM TYPES WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' ORDER BY TYPE_DATED DESC"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>

<%
Do while not rsTypesGallery.eof
%>
<li id="item-91" class="col col-3 tablet-col-6 mobile-full lightbox" data-cat="design photography t-shirts">
	<a href="user.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>" >
		<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" class="attachment-post-thumbnail wp-post-image" />
		<span class="icon retroicon-gallery"></span>
		<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
	</a>
	<span class="hidden-gallery hidden">
		
	</span>
</li>		
						
<%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%>

Até ai sem problema, o proximo passo é clicar no album para abrir as fotos, não estou encontrando uma maneira de fazer isso, vocês podem me ajudar?

hudsonalves · Junho 26, 2015

Evoluiu um pouco mas ainda estou com problema:

Quando cadastro 5 albuns e coloco uma foto apenas, o sistema mostra os 5 albuns e quando eu clico em cada um aparece a foto. até ai tudo ok

Quando cadastro 5 albuns e um deles possui mais de uma foto, o sistema mostra 6 albuns na tela, ele duplica o album que contem duas fotos:

O que pode ser? Estou martelando aqui e não achei



<%

Dim rsTypesGallery__MMColParam

rsTypesGallery__MMColParam = "1"

If (Request.QueryString("iUsuario") <> "") Then 

  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")

End If

%>



<%

Dim rsTypesGallery

Dim rsTypesGallery_numRows

Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")

rsTypesGallery.ActiveConnection = MM_conn_STRING

rsTypesGallery.Source = "SELECT TOP 20 * FROM TYPES, PICTURES WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "'  AND TYPE_ID = PIC_TYPE ORDER BY TYPE_DATED DESC"

rsTypesGallery.CursorType = 0

rsTypesGallery.CursorLocation = 2

rsTypesGallery.LockType = 1

rsTypesGallery.Open()

rsTypesGallery_numRows = 0

%>



<main role="main">

<section>

<div class="section-inner " style="background-color: #9899a8; ">

<div class="container portfolio" data-id="44">

<div class="portfolio-list">

<ul class="row clear">

<li class="col col-3 mobile-full lightbox">

<a href="http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/" >

<img width="480" height="360" src="graphic-06-thumb11-480x360.jpg" alt="graphic-06-thumb" />

<span class="icon retroicon-gallery"></span>

<h3>Image galleries are funny</h3>

</a>

<span class="hidden-gallery hidden">

<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg"></a>

<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg"></a>

<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg"></a>

</span>

</li>

<%

Do while not rsTypesGallery.eof

%>

<li class="col col-3 mobile-full lightbox">

<a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">

<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />

<span class="icon retroicon-gallery"></span>

<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>

</a>

<span class="hidden-gallery hidden">

<a class="mfp-image" href="../images/<%= rsTypesGallery.Fields.Item("PIC_IMAGE") %>"></a>

</span>

</li> 

<%

rsTypesGallery.movenext

loop

rsTypesGallery.close

%> 

</ul>

</div><!-- portfolio-list -->

</div>

</div>

</section> 

</main>

hudsonalves · Julho 1, 2015

continuo na mesma, fazendo desta forma aparece todos os albuns mas se o album tiver mais de uma foto o album também repete

:(

<%
Dim rsTypesGallery__MMColParam
rsTypesGallery__MMColParam = "1"
If (Request.QueryString("iUsuario") <> "") Then 
  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")
End If
%>


<%
Dim rsTypesGallery
Dim rsTypesGallery_numRows
Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")
rsTypesGallery.ActiveConnection = MM_conn_STRING
rsTypesGallery.Source = "SELECT TOP 20 * FROM TYPES, PICTURES WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "'  AND TYPE_ID = PIC_TYPE ORDER BY TYPE_DATED DESC"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>


<main role="main">
<section>
<div class="section-inner " style="background-color: #9899a8; ">
<div class="container portfolio" data-id="44">
<div class="portfolio-list">
<ul class="row clear">
<li class="col col-3 mobile-full lightbox">
<a href="http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/" >
<img width="480" height="360" src="graphic-06-thumb11-480x360.jpg" alt="graphic-06-thumb" />
<span class="icon retroicon-gallery"></span>
<h3>Image galleries are funny</h3>
</a>
<span class="hidden-gallery hidden">
<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg"></a>
<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg"></a>
<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg"></a>
</span>
</li>
<%
Do while not rsTypesGallery.eof
%>
<li class="col col-3 mobile-full lightbox">
<a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">
<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />
<span class="icon retroicon-gallery"></span>
<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
</a>
<span class="hidden-gallery hidden">
<a class="mfp-image" href="../images/<%= rsTypesGallery.Fields.Item("PIC_IMAGE") %>"></a>
</span>
</li> 
<%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%> 
</ul>
</div><!-- portfolio-list -->
</div>
</div>
</section> 
</main>

xanburzum · Julho 3, 2015

O correto seria rever sua estrutura de como está exibindo os dados, inserindo e mostrando (INSERT e SELECT) está fazendo, mas na hora de exibir que está com erros. Hoje para visualizar álbuns eu costuma exibir tudo com efeitos de jquery, fica muito mais bonito e tem vários tipos de efeitos, apenas insira no bd e faça pegar o jquery pegar o path dele.

hudsonalves · Julho 3, 2015

Nunca tentei assim, você tem algum exemplo que eu possa seguir?

explore · Julho 4, 2015

amigo o erro está em seu SQL. tenta isso aqui, LEGAL DEBUGAR direto no banco.

SELECT

TOP 20 tbALBUM.*

FROM

TYPES AS tbALBUM

INNER JOIN

PICTURES AS tbFOTOS

ON

tbALBUM.TYPE_ID = tbFOTOS.PIC_TYPE

WHERE

tbALBUM.TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "'

ORDER BY

tbALBUM.TYPE_DATED DESC

hudsonalves · Julho 5, 2015

amigo o erro está em seu SQL. tenta isso aqui, LEGAL DEBUGAR direto no banco.

SELECT

TOP 20 tbALBUM.*

FROM

TYPES AS tbALBUM

INNER JOIN

PICTURES AS tbFOTOS

ON

tbALBUM.TYPE_ID = tbFOTOS.PIC_TYPE

WHERE

tbALBUM.TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "'

ORDER BY

tbALBUM.TYPE_DATED DESC

Aparente parou no segundo album, mostrou dois albuns mas travou no terceiro, mudei o trecho que sugeriu:

<%
Dim rsTypesGallery__MMColParam
rsTypesGallery__MMColParam = "1"
If (Request.QueryString("iUsuario") <> "") Then 
  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")
End If
%>

<%
Dim rsTypesGallery
Dim rsTypesGallery_numRows
Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")
rsTypesGallery.ActiveConnection = MM_connDUportal_STRING
rsTypesGallery.Source = "SELECT TOP 20 tbALBUM.* FROM TYPES AS tbALBUM INNER JOIN PICTURES AS tbFOTOS ON tbALBUM.TYPE_ID = tbFOTOS.PIC_TYPE WHERE tbALBUM.TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' ORDER BY tbALBUM.TYPE_DATED DESC"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>
	
<main role="main">
	<section>
		<div class="section-inner " style="background-color: #9899a8; ">
			<div class="container portfolio" data-id="44">
				<div class="portfolio-list">
					<ul class="row clear">
						<li class="col col-3 mobile-full lightbox">
							<a href="http://themes.opendept.net/retro-portfolio-4/portfolio/image-galleries-are-funny/" >
								<img width="480" height="360" src="graphic-06-thumb11-480x360.jpg" alt="graphic-06-thumb" />
								<span class="icon retroicon-gallery"></span>
								<h3>Image galleries are funny</h3>
							</a>
							<span class="hidden-gallery hidden">
								<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-03-big11.jpg"></a>
								<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-05-big11.jpg"></a>
								<a class="mfp-image" href="http://themes.opendept.net/retro-portfolio-4/wp-content/uploads/2014/07/photo-04-big11.jpg"></a>
							</span>
						</li>
						<%
						Do while not rsTypesGallery.eof
						%>
						<li class="col col-3 mobile-full lightbox">
							<a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">
								<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />
								<span class="icon retroicon-gallery"></span>
								<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
							</a>
							<span class="hidden-gallery hidden">
								<a class="mfp-image" href="../images/<%= rsTypesGallery.Fields.Item("PIC_IMAGE") %>"></a>
							</span>
						</li>	
						<%
						rsTypesGallery.movenext
						loop
						%>
					</ul>
				</div><!-- portfolio-list -->
			</div>
		</div>
	</section>	
</main>
<%
rsTypesGallery.close
%>

Ainda não rolou mas parou de repetir

xanburzum · Julho 7, 2015

Tem um exemplo de sistema administrativo no fórum que coloquei, dá uma olhada.

E dá um response.write na sua string SQL para ver o que está sendo pasasda

hudsonalves · Julho 12, 2015

Olá Xan, na verdade o código esta funcionando, mas não como deveria, enxuguei algumas partes conforme abaixo.

Atualmente esta funcionando assim:

Ao cadastrar um album com 3 fotos nele chamo no ASP o código abaixo; o sistema multiplica o album por 3 e insere uma foto em cada um. É como se o sistema não entendesse que o album deve ter 3 fotos.

Como deve funcionar: ao cadastrar um album e inserir fotos nele, ao chamar o código abaixo mostrar apenas um album com suas fotos dentro

<%Dim rsTypesGallery__MMColParamrsTypesGallery__MMColParam = "1"If (Request.QueryString("iUsuario") <> "") Then   rsTypesGallery__MMColParam = Request.QueryString("iUsuario")End If%><%Dim rsTypesGalleryDim rsTypesGallery_numRowsSet rsTypesGallery = Server.CreateObject("ADODB.Recordset")rsTypesGallery.ActiveConnection = MM_conn_STRINGrsTypesGallery.Source = "SELECT TOP 20 * FROM TYPES, PICTURES WHERE TYPE_USER = '" + Replace(rsTypesGallery__MMColParam, "'", "''") + "' AND TYPE_ID = PIC_TYPE ORDER BY TYPE_DATED DESC"rsTypesGallery.CursorType = 0rsTypesGallery.CursorLocation = 2rsTypesGallery.LockType = 1rsTypesGallery.Open()rsTypesGallery_numRows = 0%>	<main role="main"> <section>  <div class="section-inner " style="background-color: #9899a8; ">   <div class="container portfolio" data-id="44">    <div class="portfolio-list">     <ul class="row clear">     <%     Do while not rsTypesGallery.eof     %>     <li class="col col-3 mobile-full lightbox">      <a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">       <img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />      <span class="icon retroicon-gallery"></span>      <h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>     </a>     <span class="hidden-gallery hidden">      <a class="mfp-image" href="../images/<%= rsTypesGallery.Fields.Item("PIC_IMAGE") %>"></a>     </span>    </li>	    <%    rsTypesGallery.movenext    loop    %>    </ul>   </div><!-- portfolio-list -->  </div> </div></section>	</main><%rsTypesGallery.close%>

Help

xanburzum · Julho 15, 2015

Ele cria 3 álbuns diferentes. Como vc está criando eles. e como está exibindo os mesmo.

hudsonalves · Julho 15, 2015

Olá Xan, insiro ele normalmente no BD via script. Mas acho mesmo que o problema deve ser na lógica que estou usando para exibi-lo

Na foto 1 abaixo mostra como esta ficando no html:

Foto 2: onde cadastro meu album na Tabela "Types"

foto.2.jpg

Foto 3: onde cadastro as fotos e onde informo em qual album devem aparecer:

xanburzum · Julho 17, 2015

é a estrutura do view ( na exibição) veja se não tem uma linha duplicando álbum

hudsonalves · Julho 17, 2015

Olá Xan

Na verdade andei olhando o código para identificar justamente esta questão e duplicidade, na verdade não tem nada que gere a duplicidade, estranho não?

Mudei um pouco a forma onde seleciono as tabelas e mesmo assim esta gerando a duplicidade. Na verdade, o sistema esta entendendo que apenas uma foto deve permanecer em um album, se eu cadastro mais de uma ele duplica o album para colocar uma foto.

<ul>
<%
Dim rsTypesGallery__MMColParam
rsTypesGallery__MMColParam = "1"
If (Request.QueryString("iUsuario") <> "") Then 
  rsTypesGallery__MMColParam = Request.QueryString("iUsuario")
End If
%>

<%
Dim rsTypesGallery
Dim rsTypesGallery_numRows
Set rsTypesGallery = Server.CreateObject("ADODB.Recordset")
rsTypesGallery.ActiveConnection = MM_conn_STRING
rsTypesGallery.Source = "SELECT TOP 20 * FROM [TYPES], PICTURES WHERE TYPE_USER = '" & Replace(rsTypesGallery__MMColParam, "'", "''") & "' AND TYPE_ID = PIC_TYPE ORDER BY TYPE_DATED DESC;"
rsTypesGallery.CursorType = 0
rsTypesGallery.CursorLocation = 2
rsTypesGallery.LockType = 1
rsTypesGallery.Open()
rsTypesGallery_numRows = 0
%>

<%
Do while not rsTypesGallery.eof
%>

<li class="col col-3 mobile-full lightbox">
<a href="typeimage.asp?iType=<%=(rsTypesGallery.Fields.Item("TYPE_ID").Value)%>">
<img width="480" height="360" src="../images/<%= rsTypesGallery.Fields.Item("TYPE_IMAGE") %>" />
<span class="icon retroicon-gallery"></span>
<h3><%=(rsTypesGallery.Fields.Item("TYPE_NAME").Value)%></h3>
</a>

<%
rsTypesGallery.movenext
loop
rsTypesGallery.close
%>
</li>	
</ul>

xanburzum · Julho 17, 2015

olha a melhor forma, seria fazendo um teste de mesa no seu código para identificar isso em seu code.

hudsonalves · Julho 17, 2015

Ola Xan,

É o que mais tenho feito, mas sinceramente o problema esta este trecho que postei. quando rodo ele isolado de qualquer outra aplicação o resultado é o mesmo. Creio que a forma como fiz este trecho não esteja correta.

xanburzum · Julho 18, 2015

a class="col col-3 mobile-full lightbox" está tudo OK,

dê um response.write em rsTypesGallery.Fields.Item("TYPE_ID").Value), rsTypesGallery.Fields.Item("TYPE_IMAGE") e rsTypesGallery.Fields.Item("TYPE_NAME").Value) para ver o que está sendo passado.

e coloque o cursortype=1 e locktype=3

hudsonalves · Julho 18, 2015

apliquei um response.write em (rsTypesGallery.Fields.Item("TYPE_ID").Value), passou o ID do album

apliquei um response.write em rsTypesGallery.Fields.Item("TYPE_IMAGE") passou o ID da foto

apliquei um response.write em (rsTypesGallery.Fields.Item("TYPE_NAME").Value), passou o nome do album

Troquei o cursortype para 1 e locktype para 3

Continua repetindo o album

xanburzum · Julho 19, 2015

qual o code que cria o a´álbum, somente onde cria e insere as imgs

hudsonalves · Julho 21, 2015

Eu faço separado para ambos processos:

No album, insiro desta forma:

<%
' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert")) = "form1") Then

  MM_editConnection = MM_conn_STRING
  MM_editTable = "TYPES"
  MM_editRedirectUrl = "imagem.asp"
  MM_fieldsStr  = "TYPE_NAME|value|TYPE_PICTURE|value|TYPE_DATED|value|TYPE_DESCRIPTION|value|TYPE_HEIGHT|value|TYPE_WIDTH|value|TYPE_ACTIVE|value"
  MM_columnsStr = "TYPE_NAME|',none,''|TYPE_IMAGE|',none,''|TYPE_DATED|',none,NULL|TYPE_DESCRIPTION|',none,''|TYPE_HEIGHT|',none,''|TYPE_WIDTH|',none,''|TYPE_ACTIVE|none,1,0"

  ' 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(UploadFormRequest(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
    End If
  End If

End If
%>

<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(UploadFormRequest("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 & ", TYPE_APPROVED, TYPE_USER) values (" & MM_dbValues & ", 2, '" & rsUser.Fields.Item("USUARIO").Value & "')"

  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 If

End If
%>

Para carregar as imagens (individualmente) faço desta forma:

<%
' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert")) = "form1") Then

  MM_editConnection = MM_conn_STRING
  MM_editTable = "PICTURES"
  MM_editRedirectUrl = "enviaimagens.asp"
  MM_fieldsStr  = "PIC_TYPE|value|PIC_NAME|value|PIC_PICTURE|value|PIC_DATED|value|PIC_DESCRIPTION|value|PIC_HEIGHT|value|PIC_WIDTH|value|PIC_APPROVED|value|PIC_ACTIVE|value|PIC_STATUS|value"
  MM_columnsStr = "PIC_TYPE|none,none,NULL|PIC_NAME|',none,''|PIC_IMAGE|',none,''|PIC_DATED|',none,NULL|PIC_DESCRIPTION|',none,''|PIC_HEIGHT|',none,''|PIC_WIDTH|',none,''|PIC_APPROVED|none,none,NULL|PIC_ACTIVE|none,1,0|PIC_STATUS|',none,''"

  ' 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(UploadFormRequest(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
    End If
  End If

End If
%>

<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(UploadFormRequest("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 & ", PIC_USER) values (" & MM_dbValues & ",  '" & rsUser.Fields.Item("USUARIO").Value & "')"

  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 If

End If
%>
<%
Dim rsType
Dim rsType_numRows

Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_conn_STRING
rsType.Source = "SELECT * FROM TYPES WHERE TYPE_USER = '" & Session("MM_Username") & "' ORDER BY TYPE_NAME ASC"
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()

rsType_numRows = 0
%>

Em ambos uso também o "Smart Image Processor" para redimensionar a imagem do álbum e das fotos

xanburzum · Julho 22, 2015

e a renderização do álbum

Arquivado

lógica para album

Recommended Posts

hudsonalves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hudsonalves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hudsonalves 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

hudsonalves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

hudsonalves 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

hudsonalves 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

hudsonalves 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

hudsonalves 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

hudsonalves 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

hudsonalves 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

hudsonalves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169