paginda index
<%
sub mesint(mes)
dim meses(13)
meses(1) = "Janeiro"
meses(2) = "Fevereiro"
meses(3) = "Março"
meses(4) = "Abril"
meses(5) = "Maio"
meses(6) = "Junho"
meses(7) = "Julho"
meses(8) = "Agosto"
meses(9) = "Stembro"
meses(10) = "Outubro"
meses(11) = "Novembro"
meses(12) = "Dezembro"
response.write meses(mes)
end sub
Const NumPerPageag = 20
Dim CurPageag
If Request.QueryString("CurPage") = "" then
CurPageag = 1
Else
CurPageag = Request.QueryString("CurPage")
End If
Dim connag
Set connag = Server.CreateObject("ADODB.Connection")
connag.Open "DBQ=" & Server.MapPath("agenda/agenda.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Dim rsag
Set rsag = Server.CreateObject("ADODB.Recordset")
rsag.CursorLocation = 3
rsag.CacheSize = NumPerPageag
Dim strSQLag
strSQLag = "SELECT * FROM Agenda ORDER BY Data ASC"
rsag.Open strSQLag, Connag
rsag.MoveFirst
rsag.PageSize = NumPerPageag
Dim TotalPagesag
TotalPagesagag = rsag.PageCount
rsag.AbsolutePage = CurPageag
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link href="baladasvip.css" rel="stylesheet" type="text/css">
<table width="234" border="0" cellpadding="0" cellspacing="0">
<%
Countag = 0
Do While Not rsag.EOF And Countag < rsag.PageSize
%>
<tr>
<td colspan="2" valign="top" class="textos"> <a href="javascript:;" class="txtbranco" onClick="MM_openBrWindow('agenda/balada_ver.asp?Id=<%=rsag("Id")%>','balada','scrollbars=yes,width=428,height=300')"><strong><%=day(rsag("Data"))%> de <%mesint(month(rsag("Data")))%> :: </strong><%=rsag("Nome")%></a><br></td>
</tr>
<%
Countag = Countag + 1
rsag.MoveNext
Loop
%>
</table>
PaginaPAGINA ADCIONAR EVENTOS
<%
if session("adminlogin") = "" then
response.redirect "../adminlogin.asp?go=agenda"
end if
useraction=request("action")
select case useraction
case "del"
sql1 = "delete from Agenda where Id =" & request("Id")
dsn1="DBQ=" & Server.Mappath("agenda.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn1=server.createObject("adodb.connection")
conn1.open dsn1
conn1.execute(sql1)
conn1.close
set conn1 = nothing
response.Redirect "all.asp"
end select
strConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("agenda.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Agenda ORDER BY Data ASC"
oRS.Open strSQL, strConn
%>
<html>
<head>
<title>NightES.com :: Admin :: Agenda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilo.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<%
while not oRS.EOF
%>
<tr align="center">
<td height="23" colspan="2" class="txtazulroxo"><strong class="txtvermelho"><%=oRS("Nome")%></strong></td>
</tr>
<tr>
<td width="50%" align="right" class="txtazulroxo">Local:</td>
<td width="50%" class="txtcinza"><%=oRS("Local")%> - <%=oRS("Cidade")%></td>
</tr>
<tr>
<td align="right" class="txtazulroxo">Preço:</td>
<td class="txtcinza"><%=oRS("Preco")%></td>
</tr>
<tr>
<td align="right" class="txtazulroxo">Data:</td>
<td class="txtcinza"><%=oRS("Data")%></td>
</tr>
<tr>
<td align="right" class="txtazulroxo">Hora:</td>
<td class="txtcinza"><%=oRS("Hora")%></td>
</tr>
<tr>
<td align="right" class="txtazulroxo">Promoção:</td>
<td class="txtcinza"><%=oRS("Promocao")%></td>
</tr>
<tr>
<td align="right" class="txtazulroxo">Comentario:</td>
<td class="txtcinza"><%=oRS("Comentario")%></td>
</tr>
<tr align="center">
<td colspan="2" class="linkazul"><a href="all.asp?action=del&Id=<%=oRS("Id")%>" class="txtazulroxo">Apagar</a><span class="txtazulroxo"> | </span><a href="javascript:;" class="txtazulroxo" onClick="MM_openBrWindow('editar.asp?Id=<%=oRS("Id")%>','editar','width=297,height=288')">Editar</a></td>
</tr>
<tr>
<td colspan="2" align="right" class="txtazulroxo"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table></td>
</tr>
<%oRS.MoveNext
wend%>
<tr align="center">
<td colspan="2" class="txtazulroxo"><strong><a href="javascript:;" class="txtazulroxo" onClick="MM_openBrWindow('add.asp','adicionar','width=325,height=340')">Adicionar Balada</a></strong> </td>
</tr>
</table>
</body>
</html>
