Superiniciante - sobre DATA

[Madeline 0]

Oi pessoal,

 

Não tenho o hábito de interagir em fóruns, por isso já peço desculpas se cometer alguma gafe.

 

Bem, a minha história é longa, mas vou tentar simplificá-la. Trabalho em um jornal, entendo de fotografia, design e um pouquinho de HTML. Não sei nada de ASP, por isso preciso de ajuda. Há algum tempo, a empresa onde trabalho contratou um programador para desenvolver o nosso site. O problema é que o cara fez um trabalho de porco e sumiu. Agora, sempre que tenho dúvidas, recorro ao google para tentar resolvê-las, até que meu chefe tome vergonha e contrate um bom programador.

 

Vamos ao que interessa. Tenho uma página -- materia.asp -- que gera as notícias do dia. No banco de dados (Access), tenho os campos: DATA, COLUNA, TITULO E MATERIA. Mas na página não aparece a data, ou seja, se um leitor lê a matéria, não sabe quando ela foi publicada. Como o código está todo bagunçado (eu até tentei entender no bloco de notas), não consigo inserir esse campo DATA na página.

 

Será que alguém pode me ajudar, indicando algum material para ler e tentar entender essa confusão?

 

Abraços http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Buscopan 0]

É verdade ...Se você tem um Select * from tbl_X ....é só depois você fazer algo mais ou menos assim:Data: <% =rsX("Data")%>...Mas é melhor aguardar o código original ...

[Madeline 0]

Oi Lucas e Buscopam, http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Valeu pela ajuda. Estou postando o código para vocês darem uma olhada. A propósito, vocês poderiam me indicar algum material para iniciante?

 

Abraços http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

Karina

 

 

 

<!-- #include file=topo.asp --><%	vTipo = Request.QueryString("tipo")	vMat  = Request.QueryString("mat")	vCol  = Request.QueryString("col")	if vTipo = "" then vTipo = "materia"	if vMat = "" then 		if vCol = "" Then 			vMat  = "u"			vTipo = "ult_noticia"		else			SQL = "SELECT MAT_CODIGO FROM "&vTipo&" WHERE MAT_COLUNA = "&vCol&" AND MAT_DATA <= #"&arrumaData2(Session("sData"))&"# ORDER BY MAT_DATA DESC"			set rs = conn.Execute(SQL)			if not rs.eof then vMat = rs("MAT_CODIGO") else vMat = "u"			rs.Close			set rs = Nothing		end if	end if	if vMat = "u" or vTipo = "ult_noticia" then		vTipo = "ult_noticia"		if vMat <> "u" then			SQL = "SELECT * FROM ULT_NOTICIA WHERE ULT_CODIGO = "&vMat&" ORDER BY ULT_DATA DESC, ULT_HORA DESC"		else   		SQL = "SELECT * FROM ULT_NOTICIA ORDER BY ULT_DATA DESC, ULT_HORA DESC"		end if		set rs = conn.Execute(SQL)		vData   = arrumaData(rs("ULT_DATA")) & " - " & rs("ULT_HORA")		vMat	= rs("ULT_CODIGO")		vColuna = "Última Notícia - " & vData		vTitulo = rs("ULT_TITULO")		vTexto  = Replace(rs("ULT_TEXTO"),chr(13),"<br>")		vFoto   = ""	else		SQL = "SELECT MAT_CODIGO, MAT_DATA, MAT_TITULO, MAT_MATERIA, MAT_COLUNA, COL_DESCRICAO FROM "&vTipo&", COLUNA WHERE COL_CODIGO = MAT_COLUNA AND MAT_CODIGO = " & vMat		set rs = conn.Execute(SQL)		vCol	  = rs("MAT_COLUNA")		vData   = arrumaData(rs("MAT_DATA"))		vColuna = rs("COL_DESCRICAO")		vTitulo = rs("MAT_TITULO")		vTexto  = Replace(rs("MAT_MATERIA"),chr(13),"<br>")		vMat	= rs("MAT_CODIGO")		set objArq = Server.CreateObject("Scripting.FileSystemObject")		if objArq.FileExists(Server.MapPath("datafiles/imgs/"&vTipo&"s/" & vMat & ".jpg")) = true then			vFoto = "datafiles/imgs/"&vTipo&"s/" & vMat & ".jpg"		else			vFoto = ""		end if		set objArq = Nothing	end if	rs.Close	set rs = Nothing%>						<table width="450" border="0" cellspacing="0" cellpadding="0" align=center><tr><td><font color=Red style="font-variant:small-caps"><b><%=vColuna%></b></td></tr><tr height="5"><td height="5"></td></tr><tr><td align=left style="font-size:13pt; font-weight:bold"><%=vTitulo%></font></td></tr><tr height="5"><td height="5"></td></tr><tr><td><%if vFoto <> "" then%><table width="165" border="0" cellspacing="0" cellpadding="0" align="right"><tr><td align="right"><img border="0" src="<%=vFoto%>" width="160"></td></tr></table><%end if%><p style="text-align:justify; font-family:Verdana; font-size:9pt"><%=vTexto%></p></td></tr><tr height="10"><td height="10"></td></tr><%if vTipo <> "ult_noticia" ThenSQL = "SELECT MAT_CODIGO, MAT_DATA, MAT_TITULO FROM "&vTipo&" WHERE MAT_COLUNA = "&vCol&" AND MAT_CODIGO <> "&vMat&" AND MAT_DATA <= #"&arrumaData2(Session("sData"))&"# ORDER BY MAT_DATA DESC"set rs = conn.Execute(SQL)If not rs.eof then%>									<tr><td><br><br><br><b>Outras Matérias</b></td></tr><tr><td></td></tr><%x = 1While not rs.eof and x <= 15vData   = arrumaData(rs("MAT_DATA"))vTitulo = rs("MAT_TITULO")%><tr><td><a class="materias" href="materia.asp?mat=<%=rs("MAT_CODIGO")%>&tipo=<%=vTipo%>">• <%=vTitulo%></a></font></td></tr><tr><td></td></tr><%rs.movenextx = x + 1wendend ifrs.Closeset rs = NothingelseSQL = "SELECT ULT_CODIGO, ULT_DATA, ULT_HORA, ULT_TITULO FROM ULT_NOTICIA WHERE ULT_CODIGO <> "&vMat&" ORDER BY ULT_DATA DESC, ULT_HORA DESC"set rs = conn.Execute(SQL)If not rs.eof then%>							<tr><td><b>Outras Notícias</b></td></tr><tr><td></td></tr><%x = 1While not rs.eof and x <= 10vData   = arrumaData(rs("ULT_DATA")) & " - " & rs("ULT_HORA")vTitulo = rs("ULT_TITULO")%><tr><td><a class="materias" href="materia.asp?mat=<%=rs("ULT_CODIGO")%>&tipo=<%=vTipo%>">• <%=vTitulo%></a></font></td></tr><tr><td></td></tr><%rs.movenextx = x + 1wendend ifrs.Closeset rs = Nothingend if%></table><!-- #include file=rodape.asp -->

[Madeline 0]

Oi Lucas, valeu pela ajuda.Deu certinho, já fiz as alterações e testei no servidor. :P Muito obrigada. Agora, só preciso estudar para não precisar mais encher o saco de vocês. Abraços