Ir para conteúdo

POWERED BY:

Arquivado

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

maktub

Próximo jogo

Por , em ASP Clássico

Recommended Posts

maktub    0

maktub
Postado

Salve! Preciso de um help com um cógigo. Estou criando um cadastro simples para uma página de futebol amador, na página principal, quero incluir uma janela chamada "próximo Jogo" onde mostrará basicamente a data, horário e os times que irão jogar, tem alguma forma de mostrar apenas o próximo jogo? Ex, hoje é dia 08/08/2010 o próximo jogo é dia 10/08/2010 eu queria que fosse mostrado apenas esta data mesmo se o sistema tiver um jogo cadastrado dia 07/08/2010, sacaram? Tem como fazer isso?

 

Segue o fomulário que é mostrado na tela:

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela contato
strQuery = "SELECT * FROM contato"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<head>
<title>Tela de Consulta - ASPBRASIL</title>
</head>
<body bgcolor="#FFFFFF">
<form method="GET" action="form_altera.asp">  
<table border="1" width="100%">
	<tr>
		<td>Nº</td>
		<td>Data</td>
		<td>Horário</td>
		<td>Time1</td>
		<td>vs</td>
		<td>Time2</td>
		<td><input type="submit" name="Submit" value="Alterar"></td>
	</tr>
<%While Not objRS.EOF %>
	<tr>
		<td><%Response.write objRS("autonum")%></td>
		<td><%Response.write objRS("data")%></td>
		<td><%Response.write objRS("horario")%></td>
		<td><%Response.write objRS("time1")%></td>
		<td>x</td>
		<td><%Response.write objRS("time2")%></td>
		<td><input type="radio" name="radio" value="<%=objRS(0)%>"></td>
	</tr>
<%
'Move para o próximo registro
objRS.MoveNext
Wend
'Fechando as conexões
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>
</table>
</form>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Você tem que fazer um SQL onde pegue o campo data e compare com a data maior que a atual...

 

ex> 

WHERE data_jogo > '"&date()&"'

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o que fica legal é você dar a opção do user poder escolher a data para pesquisa e também exibir os próximos jogos igual o

globoesporte.globo.com, você clicando no escudo do time ele exibe, último confronto,próximos confrontos

Compartilhar este post

Link para o post
Compartilhar em outros sites

maktub    0

maktub
Postado

Ted K

 

Eu fiz assim, mas não esta certo pois ele pega os últimos cadastrados:

 

<script RUNAT=SERVER LANGUAGE=VBSCRIPT>	
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
  dim strRet
  strRet = Server.HTMLEncode(str)
  strRet = replace(strRet, vbcrlf,"")
  strRet = replace(strRet, vbtab,"")
  If (LEN(strRet) > nNamedFormat) Then
    strRet = LEFT(strRet, nNamedFormat)			
    If (properly = 1) Then					
      Dim TempArray								
      TempArray = split(strRet, " ")	
      Dim n
      strRet = ""
      for n = 0 to Ubound(TempArray) - 1
        strRet = strRet & " " & TempArray(n)
      next
    End If
    If (pointed = 1) Then
      strRet = strRet & points
    End If
  End If
  DoTrimProperly = strRet
End Function
</SCRIPT>
<%
Set objConn =  Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("contato.mdb")
set rs = conn.execute("SELECT TOP 2 * FROM contato ORDER BY date DESC")
do while not rs.eof
%>

<% =(DoTrimProperly((rs("data").Value), 42, 1, 1, " .. ")) %>>

<%
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>

xanburzum

 

Estou pensando em uma solução igual, mas ainda preciso adaptar meu sistema.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você opde ter um campo onde o user entra com a data e depois você a coloca no SQL

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