Jump to content

  2. → Viewing Profile: Posts: lizossomos

lizossomos

Member Since 05/02/2004
Offline Last Active 12/01/2006, 10:59
-----

Posts I've Made

In Topic: Como Eu Coloco Em Negrito

13/04/2005, 18:40

Eu acredito que essa seja a linha. Como eh que faço para adicionar o negrito quando ouver algum evento nesse dia? 
<div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
     response.write "#000000"
     Else
     response.write "#CCCCCC"
     End If%>"><%if giorno1 >= day1 and giorno1 <= dayoff then%>
      <a href="main.asp?data=<%=(day1-primog+x)%>" target="main"><%=day(day1-primog+x)%></a>
      <%else%>
      <%=day(day1-primog+x)%>
      <%End If%>
              </font></div>

In Topic: Como Eu Coloco Em Negrito

12/04/2005, 21:23

Taqui o codigo do calendario. tem como?


<%Server.ScriptTimeOut = 3%>
<%Dim giorno,mese,anno,tmese,day1,primog
   
   giorno = request("giorno")
   If giorno = "" then
   giorno = day(now())
   End If
   
   mese = request("mese")
   If mese = "" then
   mese = month(now())
   End If

   anno = request("anno")
   If anno = "" then
   anno = year(now())
   End If

   If mese = 12 then
      mese2 = 1
   anno2 = anno+1
   else 
   mese2 = mese+1
   anno2 = anno
   End If
   
   day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
      dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
      primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
   ultimog = Weekday(dayoff)-1
   
   If ultimog = 0 then
   ultimog = 7
   End If
   
   If primog = 0 then
   primog = 7
   End If

   Select Case mese
   case 1
   tmese = "Jan"
   case 2
    tmese = "Feb"
   case 3
   tmese = "Mar"
   case 4
   tmese = "Apr"
   case 5
   tmese = "May"
   case 6
   tmese = "Jun"
   case 7
   tmese = "Jul"
   case 8
   tmese = "Aug"
   case 9
   tmese = "Sep"
   case 10
   tmese = "Oct"
   case 11
   tmese = "Nov"
   case 12
   tmese = "Dec"
   End Select
x=1
   %>
        
<style type="text/css"><!--//by Studio VII Sparber001
a:link {color: #000000} 
a:active {color: #000000} 
a:visited {color: #006699} 
a:hover {color: #CC9900} 
body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #333333} 
td {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #333333} 
li {color: #339966; list-style-type: square} 
ul {color: #339966; list-style-type: square} 
ol {color: #339966} 
.mytext {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #666699} 
a.mytext:link {color: #333333; text-decoration: none} 
a.mytext:visited {color: #666666; text-decoration: none} 
a.mytext:active {color: #333333; text-decoration: none} 
a.mytext:hover {color: #999933; text-decoration: none} 
-->
</style>
<title>calendario</title>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<body bgcolor="#FFFFFF" onLoad="MM_preloadImages('images/calendar_03_b.gif')">
<table border="0" cellspacing="0" cellpadding="0" width="153">
  <tr> 
    <td width="79">&nbsp;</td>
    <td width="127"><a href="registrazione.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image7','','images/calendar_03_b.gif',1)" target="main"><img name="Image7" border="0" src="images/calendar_03_a.gif" width="109" height="18"></a></td>
  </tr>
</table>
<table width="190" border="0" cellspacing="1" cellpadding="1">
  <tr bgcolor="#3399CC"> 
    <td><a href="cal.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>"><img src="images/prev.gif" border="0"></a></td>
    <td width="50%" bordercolor="#666666"> 
      <div align="center"> <b><font color="#FFFFFF"><%=tmese%>
         </font></b></div>
    </td>
    <td width="50%" bordercolor="#666666"> 
      <div align="center"><b><font color="#FFFFFF"><%=anno%></font></b></div>
    </td>
    <td><a href="cal.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="images/next.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td colspan="4"> 
      <table width="100%" border="1" cellspacing="1" cellpadding="1" bordercolor="#666666">
        <tr bgcolor="#003399"> 
          <td> 
            <div align="center"><font color="#CCCCCC">M</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">T</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">W</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">T</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">F</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">S</font></div>
          </td>
          <td> 
            <div align="center"><font color="#CCCCCC">S</font></div>
          </td>
        </tr>
        <tr> 
          <%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
          <td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#FFCC33""" End If%>>
            <div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
     response.write "#000000"
     Else
     response.write "#CCCCCC"
     End If%>"><%if giorno1 >= day1 and giorno1 <= dayoff then%>
      <a href="main.asp?data=<%=(day1-primog+x)%>" target="main"><%=day(day1-primog+x)%></a>
      <%else%>
      <%=day(day1-primog+x)%>
      <%End If%>
              </font></div>
          </td>
          <%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
          <%
giorno1 = giorno1 + 1
x=x+1
loop%>
      </table>
    </td>
  </tr>
</table>
<table width="190" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="18">
      <div align="right"><a href="cal.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="images/next.gif" border="0"></a></div>
    </td>
    <td width="152"> 
      <div align="center"><a href="cal.asp?mese=<%=month(now())%>&anno=<%=year(now())%>" target="_self">go 
        current month</a></div>
    </td>
  </tr>
</table>
<table width="190" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="bottom"> 
      <form name="form1" method="post" action="cal.asp" target = "_self">
        <table width="170" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td> 
              <div align="center">
                <select name="mese" size="1">
                  <option value="1" selected>Jan</option>
                  <option value="2">Feb</option>
                  <option value="3">Mar</option>
                  <option value="4">Apr</option>
                  <option value="5">May</option>
                  <option value="6">Jun</option>
                  <option value="7">Jul</option>
                  <option value="8">Aug</option>
                  <option value="9">Sep</option>
                  <option value="10">Oct</option>
                  <option value="11">Nov</option>
                  <option value="12">Dec</option>
                </select>
              </div>
            </td>
            <td> 
              <div align="center">
                <select name="anno" size="1">
                  <option selected><%=year(now())%></option>
                  <%y = 1
do while y <= 6%>
                  <option><%=year(now())+y%></option>
                  <%y = y + 1
loop%>
                </select>
              </div>
            </td>
            <td>
              <div align="center">
                <input type="image" border="0" name="imageField" src="images/go.gif">
              </div>
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>

In Topic: Colocar Em Ordem

23/02/2005, 08:59

Mais tipo. Eu coloco esse codigo no meio da pagina que vai ser listada os usuarios? e eu queria saber como eu faço para listar tb em ordem de insermento. Ex: o ultimo que eu inserir va direto lah para cima da pagina de listagem e não para baixo. Alguem sabe?

In Topic: Colocar Data

23/02/2005, 00:52 

so colocar o valor inicial la na tabela do access como data()
COmo eh isso. pode explicar melho?

In Topic: Vcs Sabem Que Erro Eh Esse

01/02/2005, 10:39

Deu certo pessoal. Muito obrigado!

  1. Fórum WMO
  2. → Viewing Profile: Posts: lizossomos
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq