| |
|
<%
Dim Codigo1, Codigo2, Codigo3, Cogido4
Dim Descricao, Descricao2, Descricao3, Descricao4, Descricao5, Descricao6
Dim Preco, Preco2, Preco3, Preco4, Preco5, Preco6
Dim Titulo, Titulo2, Titulo3, Titulo4, Titulo5, Titulo6
Dim Foto, Foto2, Foto3, Foto4, Foto5, Foto6
Dim oConn, sConn, sqlstr
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
cnpath="DBQ=" & server.mappath("coionline.mdb")
sConn = "DRIVER={Microsoft Access Driver (*.mdb)};"& cnpath
oConn.Open(sConn)
Sqlstr = "Select * from Promocoes where posicao = 1"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo1 = rs("codigo")
Titulo = rs("titulo")
Descricao = rs("descricao")
Preco = rs("preco")
Foto = rs("foto")
end if
RS.close
Sqlstr = "Select * from Promocoes where posicao = 2"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo2 = rs("codigo")
Titulo2 = rs("titulo")
Descricao2 = rs("descricao")
Preco2 = rs("preco")
Foto2 = rs("foto")
end if
RS.close
Sqlstr = "Select * from Promocoes where posicao = 3"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo3 = rs("codigo")
Titulo3 = rs("titulo")
Descricao3 = rs("descricao")
Preco3 = rs("preco")
Foto3 = rs("foto")
end if
RS.close
Sqlstr = "Select * from Promocoes where posicao = 4"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo4 = rs("codigo")
Titulo4 = rs("titulo")
Descricao4 = rs("descricao")
Preco4 = rs("preco")
Foto4 = rs("foto")
end if
RS.close
Sqlstr = "Select * from Promocoes where posicao = 5"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo5 = rs("codigo")
Titulo5 = rs("titulo")
Descricao5 = rs("descricao")
Preco5 = rs("preco")
Foto5 = rs("foto")
end if
RS.close
Sqlstr = "Select * from Promocoes where posicao = 6"
RS.Open sqlstr, oConn, 3,3
if not RS.eof then
Codigo6 = rs("codigo")
Titulo6 = rs("titulo")
Descricao6 = rs("descricao")
Preco6 = rs("preco")
Foto6 = rs("foto")
end if
RS.close
%>
| |
Promoções
|
|
| |
 |
<% response.write Titulo%> |
 |
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
* Foto
Ilustrativa -
Detalhes
|
|
|
|
<%response.write descricao%> |
|
|
|
<% response.write preco %> |
|
|
|
|
<% response.write Titulo2%> |
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
* Foto
Ilustrativa -Detalhes
|
|
|
|
<%response.write descricao2%> |
|
|
|
<% response.write preco2 %> |
|
|
|
|
| |
|
|
| |
|
|
<% response.write Titulo3%> |
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
* Foto
Ilustrativa -Detalhes
|
|
|
|
<%response.write descricao3%> |
|
|
|
<% response.write preco3 %> |
|
|
|
|
<% response.write Titulo4%> |
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
* Foto
Ilustrativa -Detalhes
|
|
|
|
<%response.write descricao4%> |
|
|
|
<% response.write preco4 %> |
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
