Nao Esta Completo O Meu Programa

[iniciante]

<%

dia = day(now)

mes = month(now)

ano = year(now)

Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)

idade = DateDiff("yyyy",CDate(RS("dob")),Data)

%>

vou citar um exemplo , assim fica mais facil , uma pessoa nascida em 1982 ele teria 21 , mas no meu programa ela esta indicando que tem 22anos .

alguém poderia arrumar meu programa.

[dark0]

ola mestre fyoda (seu outro nick)

eu havia lhe passado esse codigo à uns dias atras

vide tópico: Calcular idade

leia as nossas respostas para seu outro tópico!

Para resolver seu problema, você deve basicamente ler os links que eu coloquei sobre a funcao DateDiff, e comparar o mes e o dia

E para que criar mais de um usuário?

se quiser trocar de nick, é possivel.. não precisa criar outro!

[Reginaldo ASP]

Está fyoda suportar isso...

If eu = "preguiça de tentar aprender" Then

Response.Write "Me passem um código pronto, detalhado, comentado e grátis, mesmo sabendo que eu não vou tentar aprender e não vou fazer perguntas pertinentes"

Else

Response.Write "Tentarei aprender, pesquisarei, não serei folgado e não vou trocar o nick pra tentar enganar a galera"

End If

Francamente....

[mestre fyoda]

O meu codigo esta dando erro :

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

/clanevil/paginacao.asp, line 140

function formatadata(data)

^

<%
dim dataatual, datanascimento, n1, n2

function formatadata(data)
dd = day(data)
mm = month(data)
aa = year(data)

if len(dd) = 1 then dd = "0" & dd
if len(mm) = 1 then mm = "0" & mm

formatadata = cstr(dd & "/" & mm & "/" & aa)
end function

function idade(dataatual, datanascimento)
if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then
if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then
n1 = cint(mid(dataatual, 7, 4))
n2 = cint(mid(datanascimento, 7, 4))
idade = n1-n2
else
n1 = cint(mid(dataatual, 7, 4))
n2 = cint(mid(datanascimento, 7, 4))
idade = n1-n2-1
end if
else 
n1 = cint(mid(dataatual, 7, 4))
n2 = cint(mid(datanascimento, 7, 4))
idade = n1-n2-1
end if

Response.Write idade
end function

call idade(formatadata(date),formatadata(rs("dob"))
%>

[dark0]

puts.. ainda não arrumou isso? hehe

Bom.. você sabe para que serve aquele monte de ifs?

qual é sua linha 140?

pois naquele trecho não parece ter 140 linhas.

Se o erro dá ao chamar a função, verifique o que a funcao exige de dados, na hora de passar parametros.

Pelo que vi, o erro é no ano. Seu ano ali, na hora de chamar a funcao, esta usando apenas 2 caracteres.. mas o normal é 4!

[Victor]

Se não me engano os problemas são nos IFS, pois ele não coloca a condição enteira!!!

if .... then

....

[]'s

Victor

[mestre fyoda]

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

/clanevil/paginacao.asp, line 139

function formatadata(data)

<%

'Efetuando a conexão com a base de dados criada -----------------------

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("banco.mdb")

Conn.open

'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos

SQL = "select * from usuarios"

RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

  Response.Write "nenhum registro encontrado"

  Response.End 'paramos o programa

ELSE

  'Definindo em qual pagina o visitante está

  IF Request.QueryString("pagina")="" then

      intpagina=1

  ELSE

      IF cint(Request.QueryString("pagina"))<1 then

        intpagina=1

      ELSE

        IF cint(Request.QueryString("pagina"))> RS.PageCount then

            intpagina=RS.PageCount

        ELSE

            intpagina=Request.QueryString("pagina")

        END IF

      END IF

  END IF

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

%>

<% While intrec < RS.PageSize and not RS.EOF

%>

<head>

<style>

<!--

a{text-decoration:none}

//-->

</style>

</SCRIPT>

<LINK

href="images/padrão.css" rel=stylesheet type=text/css>

<STYLE type=text/css>#divUpControl {

HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1

}

#divDownControl {

HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1

}

#divContainer {

CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px

}

#divContent {

LEFT: 0px; POSITION: absolute; TOP: 0px

}

</STYLE>

<STYLE type=text/css>.tabela {

BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.link {

COLOR: #000000; TEXT-DECORATION: none

}

.link:hover {

COLOR: #ff8040; TEXT-DECORATION: none

}

.TD {

COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.campo {

BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.botao {

BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.botao2 {

BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt

}

.Menu:link {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:visited {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:unknown {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:hover {

BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

</STYLE>

</head>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center">

  <tr>

    <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="8">

    <p align="center">

    &nbsp;<img src="<%=RS("icon")%>.gif" width=32 height=32 align="left" ></td>

    <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font size="1" face="Verdana" class="TD"><b>&nbsp;Nome:&nbsp;<%=RS("nome")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font size="1" face="Verdana" class="TD"><b>&nbsp;Sobre Nome: &nbsp;<%=RS("snome")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Email:&nbsp; <%=RS("email")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Data Cadastro:&nbsp;<%=RS("data")%></b> </font></p>

    </td>

  </tr> 

<%

dim dataatual, datanascimento, n1, n2

function formatadata(data)

dd = day(data)

mm = month(data)

aa = year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

formatadata = cstr(dd & "/" & mm & "/" & aa)

end function

function idade(dataatual, datanascimento)

if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then

if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2

else

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2-1

end if

else

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2-1

end if

Response.Write idade

end function

call idade(formatadata(date),formatadata(rs("dob"))

%>

  <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Idade:&nbsp;<%=idade%>&nbsp;anos</b> </font></p>

    </td>

  </tr> 

    <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Login:&nbsp;<%=RS("login")%></b> </font></p>

    </td>

  </tr> 

</table>

<p align="center">

<br>

<%  RS.MoveNext

  ' Acrescenta +1 ao contador

  intrec=intrec+1

  'Se for EOF (fim de arquivo), imprimir branco na tela

  IF RS.EOF then

      response.write " "

  END IF

Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

  <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp;

<a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp;

Próxima </a>

<%

END IF

%>

[Victor]

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

/clanevil/paginacao.asp, line 139

function formatadata(data)

<%

'Efetuando a conexão com a base de dados criada -----------------------

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("banco.mdb")

Conn.open

'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos

SQL = "select * from usuarios"

RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

   Response.Write "nenhum registro encontrado"

   Response.End 'paramos o programa

ELSE

   'Definindo em qual pagina o visitante está

   IF Request.QueryString("pagina")="" then

      intpagina=1

   ELSE

      IF cint(Request.QueryString("pagina"))<1 then

         intpagina=1

      ELSE

         IF cint(Request.QueryString("pagina"))> RS.PageCount then

            intpagina=RS.PageCount

         ELSE

            intpagina=Request.QueryString("pagina")

         END IF

      END IF

   END IF

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

%>

<% While intrec < RS.PageSize and not RS.EOF

%>

<head>

<style>

<!--

a{text-decoration:none}

//-->

</style>

</SCRIPT>

<LINK

href="images/padrão.css" rel=stylesheet type=text/css>

<STYLE type=text/css>#divUpControl {

HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1

}

#divDownControl {

HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1

}

#divContainer {

CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px

}

#divContent {

LEFT: 0px; POSITION: absolute; TOP: 0px

}

</STYLE>

<STYLE type=text/css>.tabela {

BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.link {

COLOR: #000000; TEXT-DECORATION: none

}

.link:hover {

COLOR: #ff8040; TEXT-DECORATION: none

}

.TD {

COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.campo {

BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.botao {

BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px

}

.botao2 {

BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt

}

.Menu:link {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:visited {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:unknown {

BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

.Menu:hover {

BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px

}

</STYLE>

</head>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center">

  <tr>

    <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="8">

    <p align="center">

    &nbsp;<img src="<%=RS("icon")%>.gif" width=32 height=32 align="left" ></td>

    <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font size="1" face="Verdana" class="TD"><b>&nbsp;Nome:&nbsp;<%=RS("nome")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font size="1" face="Verdana" class="TD"><b>&nbsp;Sobre Nome: &nbsp;<%=RS("snome")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Email:&nbsp; <%=RS("email")%></b></font></td>

  </tr>

  <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Data Cadastro:&nbsp;<%=RS("data")%></b> </font></p>

    </td>

  </tr> 

<%

dim dataatual, datanascimento, n1, n2

function formatadata(data)

dd = day(data)

mm = month(data)

aa = year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

formatadata = cstr(dd & "/" & mm & "/" & aa)

end function

function idade(dataatual, datanascimento)

if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then

if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2

else

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2-1

end if

else

n1 = cint(mid(dataatual, 7, 4))

n2 = cint(mid(datanascimento, 7, 4))

idade = n1-n2-1

end if

Response.Write idade

end function

call idade(formatadata(date),formatadata(rs("dob"))

%>

  <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Idade:&nbsp;<%=idade%>&nbsp;anos</b> </font></p>

    </td>

  </tr> 

    <tr>

    <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top">

    <p align="left">

    <font face="Verdana" size="1" class="TD"><b>&nbsp;Login:&nbsp;<%=RS("login")%></b> </font></p>

    </td>

  </tr> 

</table>

<p align="center">

<br>

<%  RS.MoveNext

   ' Acrescenta +1 ao contador

   intrec=intrec+1

   'Se for EOF (fim de arquivo), imprimir branco na tela

   IF RS.EOF then

      response.write " "

   END IF

Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

   <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp;

<a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp;

Próxima </a>

<%

END IF

%>

Esse é o arquivo que está retornando com o erro??

[mestre fyoda]

è sim Vitor