Ir para conteúdo

POWERED BY:

Arquivado

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

Robson Martins

Imagens

Por , em ASP Clássico

Recommended Posts

Robson Martins    1

Robson Martins
Postado

ola boa noite a todos do fórum imaster

 

eu não estou sabendo com que o site busque as imagens que estão em pastas ele vai ate a pasta não mostra nada

 

esta aqui e os codigos que eu estou usando

 

<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/abrebanco.asp"-->
<!--#include file="includes/adovbs.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML>
<HEAD>
<TITLE><%=titulo%></TITLE>

<LINK href="css/estilo.css" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="favicon/favicon.ico" >
<link rel="icon" type="image/gif" href="favicon/animated_favicon1.gif" >

<%
Function geraID ()
  geraID_tmp = ""
  Randomize
  For i = 1 to 12
    intNum = Int(10 * Rnd + 48)
    intUpper = Int(26 * Rnd + 65)
    intLower = Int(26 * Rnd + 97)
    intRand = Int(3 * Rnd + 1)
    Select Case intRand
    Case 1
      strPartPass = Chr(intNum)
    Case 2
      strPartPass = Chr(intNum)
    Case 3
      strPartPass = Chr(intNum)
    End Select

    geraID_tmp = geraID_tmp & strPartPass
  Next

  geraID = geraID_tmp
End Function

set banco = Server.CreateObject("ADODB.Connection")
banco.Open "DBQ="&Server.MapPath("database/database.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
set rectodos = Server.CreateObject("ADODB.Recordset")
rectodos.open "SELECT * FROM imoveis", banco

do while not rectodos.eof
sql_newid = "UPDATE imoveis SET NewId='"&geraID()&"' WHERE id="&rectodos("id")
set recnewid = banco.execute(sql_newid)
rectodos.movenext
loop

rectodos.close

set recrandom = Server.CreateObject("ADODB.Recordset")
sql_rnd = "SELECT TOP 1 imob_categoria, id , newid FROM imoveis WHERE imob_categoria <> '' ORDER BY newid"
recrandom.open sql_rnd, banco


%>



</HEAD>
<BODY>
<table width="188" align="center" style="text-decoration: none;">
  <tbody>
    <tr valign="top">
      <td width="180"  align="center" style="border: 1px solid rgb(204, 153, 51); background: rgb(238, 238, 238) url(imagens/bgV-f.gif) repeat-y scroll right top; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;" ><table width="164" height="282" class="itemBox" onClick="location.href='?pid=cat&cat=28&sub=63&prid=125';" onMouseOver="this.style.background='#eeeeee url(imagens/bg-f.gif) top right repeat-y'; this.style.border='1px solid #3f9ee2';" onMouseOut="this.style.background='#eeeeee url(imagens/bgV-f.gif) repeat-y top right'; this.style.border='1px solid #cc9933';" style="width: 138px; height: 243px; margin-top: 1px;">
        <tbody>
          <tr>
            <td style="color: rgb(255, 0, 0); height: 30px;" align="center"><b class="Nome"><%=recrandom("imob_categoria")%></b>       
          </tr>
          <tr>
            <td style="height: 100px;" align="center"><a href="mais.asp?categoria=<%=recrandom("imob_categoria")%>&id=<%=recrandom("id")%>">
            <img src="imagens/produtos/<%=recrandom("id")%>/.jpeg" width="170" height="158" style="border: 3 solid #C0C0C0; padding-top: 0"></a><BR>
                 </td>
          </tr>
        </tbody>
      </table></td>
    </tr>
  </tbody>
</table>
  </body>
</html>

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