Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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_tmpset 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>Carregando comentários...