Ted k'

Fevereiro 12, 2008

não entendi? você quer um loop?

Fevereiro 11, 2008

o que você pode fazer é tentar usar javascript!!

Fevereiro 11, 2008

Entendi agora...

isso vai ser dificil

Fevereiro 11, 2008

veja bem, vou ser bem claro...

por exemplo você entro na página "teste.asp"

dentro da "teste.asp" coloque isso:

session("URLVoltar") = Request.ServerVariables("URL")

e dentro da erro.asp coloca:

<a href="<%=session("URLVoltar")%>">Voltar</a>

tomara que funcione!! quando ele tiver na página teste.asp e for digitar outra qualquer a session já vai está com um valor, e aiquando você for pra erro.asp a session já vai está preenchida... faça o teste em uma página, se funcionar coloque esse código em todo o site! que pena que um javascript não funciona, ou funciona? na página erro.asp:

<a href="java script:history.back(-1);">Voltar</a>

já testou isso?

Fevereiro 11, 2008

vem assim?

Nome Ator 01, Nome Ator 02?

se vinher por virgula você faz um replace nas virgulas:

<%=Replace(rs("ator"), ",", "<br>")%>

Fevereiro 11, 2008

não tinha prestado o lance do redirecionamento, só se você desativar essa opção, ou quando for redirecionar você fazer uma função para guardar o caminho dentro de um cookie o session e usar lá no erro.asp

Fevereiro 11, 2008

existem métodos em ajax que você faz essa condição mais creio eu que pelo meno você tenha que dar a ação para que isso acontecça!!

Fevereiro 11, 2008

muito bom... hehehe

olha o meu

O nome de pobre gerado é:
Uóxiton da Silva
O nome do PAI do(a) infeliz acima é:
Maique Róliudi da Silva
O nome da MÃE do(a) infeliz acima é:
Ewellynn Uasleska da Silva

Uóxiton é demais (heehehe)

Fevereiro 11, 2008

æ... aqui funciona no IE e no FF

function click(){
    if (event.button == 2 || event.button == 3){
            oncontextmenu = 'return false';
      }
}
document.onmousedown = click
document.oncontextmenu = new Function("return false;")

mais como o colega falou, é javascript!!!!

Fevereiro 11, 2008

você fez assim?

<%=Request.ServerVariables("URL")%>

pois aqui eu teste e ele voltou o endereço que digitei possa não está vindo a querystring, mais ai você coloca o querystring

<%=Request.ServerVariables("URL")%>?<%=Request.ServerVariables("QueryString")%>

ai retorna tudo!!

Fevereiro 11, 2008

que bom, qualquer coisa pode postar... desculpa não resolver antes, me confundir com o sinal... mais beleza!!!

Fevereiro 11, 2008

Bem tranquilo, se eu ficar tranquilo demais eu durmo... (hehe)

Poxa que pena, gosto de notícias de fórum, as pessoas dão palpites, falam muito a respeito do assunto, a interatividade é fundamental, que pena mesmo!!!

Tomara que volte... vlw irmão Roberto!!!

Fevereiro 10, 2008

Olá galeram porque não tem uma área de notícias de informática, web, essas coisas, se tem onde está???

Fevereiro 10, 2008

ahuhauahuah boa mesmo

Fevereiro 10, 2008

desculpa, coloque errado, agora vai...

coloca assim:

</tr>
<% If Trim(rs("extra")) <> "" Then %>
<tr>
<td valign="top"><font color="#000000"><strong>Extra</strong></font></td>
<td><%=rs("extra")%></td>
</tr>
<%
End If
rs.close
Controle.close%>
</table>

Fevereiro 10, 2008

servidor de e-mail não tem nada haver esse mail... acho que deve ser seu acesso de webmail mais tudo bem

verifique que componente você tem instalado no servidor para envio de e-mail, geralmente o CDO já está instalado!!!

qualquer coisa olha aqui:

http://forum.imasters.uol.com.br/index.php?showtopic=26556

tem vários nesse link!

Fevereiro 9, 2008

WEbSan, exatamente o que passei para o usuário (boa)!!

Fevereiro 9, 2008

Este artigo server para iniciaintes e avançados!

Dificuldades de colocar a data por extenso?

Ex:

Quarta-feira 12 de setembro de 2007

Não tem nada de difícil, é simples o código é esse:

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

Vamos separar os códigos para facilitar o entendimento! 1º Bloco de Instrução:

UCase(Left(WeekDayName(WeekDay(Now)),1))

- WeekDayName pega o "Nome da Semana"; - WeekDay(Now) pega o valor numerico do "Nome da Semana" ficando assim : domingo(1), segunda-feira(2), etc... Juntando os dois faz um parâmetro desse tipo WeekDay(Now) vem o valor "4" que é quarta-feira a resposta dentro do WeekDayName aparece assim: WeekDayName(1) que é igual a quarta-feira (por extenso e letra minuscula) - Left(WeekDayName(WeekDay(Now)),1), o "Left(INSTRUCAO,1)" ele vai pegar o primeiro caractere a instrução desejada que é a letra "q"; - UCase(Left(WeekDayName(WeekDay(Now)),1)) o "UCase()" vai transformar o caractere desejado em Maiúsculo, que no nosso caso é a letra "q", ficando assim: UCase("q") Resposta sai: "Q" 2º Bloco de Instrução:

Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1)

- Len(WeekDayName(WeekDay(Now))) o "Len()" está fazendo a função de "contador de caracteres", ele irá contar a quantidade de caracteres que tem na palavra "quarta-feira" ficando assim: Len("quarta-feira") Total: 12 caracteres - Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) o "Right" e o oposto do "Left", ele tira o último caractere da palavra que é a letra "a" mais no nosso caso com o "Len" isso não irá acontecer. Se colocarmos o "quarta-feira" dentrodo "Right" olha o que acontecer: Right("quarta-feira", 1) Resposta: quarta-feir Mais com o "Len" que o total deu 12 menos 1 que é para ele não cortar o nome todo fica assim Right("quarta-feira", 12 - 1) Resposta: uarta-feira E pronto! Mais um assunto resolvido e o resto do código é só formatação de data Day(Date), pega o valor do dia MonthName(Month(Now)), o nome do mês Year(Date), pega o ano atual Juntando tudo fica:

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

e fim de papo

Quarta-feira 12 de setembro de 2007

Abraços, qualquer coisa podem postar!!!

Fevereiro 9, 2008

<%
Dim a, b, c, d, e, f, g, h( 900 ), i( 6 ), j( 6 ), k, l

i( 1 ) = "rea"
i( 2 ) = "mil"
i( 3 ) = "milh"
i( 4 ) = "bilh"
i( 5 ) = "trilh"

h( 1 ) = "um"
h( 2 ) = "dois"
h( 3 ) = "tres"
h( 4 ) = "quatro"
h( 5 ) = "cinco"
h( 6 ) = "seis"
h( 7 ) = "sete"
h( 8 ) = "oito"
h( 9 ) = "nove"
h( 10 ) = "dez"
h( 11 ) = "onze"
h( 12 ) = "doze"
h( 13 ) = "treze"
h( 14 ) = "quatorze"
h( 15 ) = "quinze"
h( 16 ) = "dezesseis"
h( 17 ) = "dezessete"
h( 18 ) = "dezoito"
h( 19 ) = "dezenove"
h( 20 ) = "vinte"
h( 30 ) = "trinta"
h( 40 ) = "quarenta"
h( 50 ) = "cinquenta"
h( 60 ) = "sessenta"
h( 70 ) = "setenta"
h( 80 ) = "oitenta"
h( 90 ) = "noventa"
h( 100 ) = "cento"
h( 200 ) = "duzentos"
h( 300 ) = "trezentos"
h( 400 ) = "quatrocentos"
h( 500 ) = "quinhentos"
h( 600 ) = "seiscentos"
h( 700 ) = "setentos"
h( 800 ) = "oitocentos"
h( 900 ) = "novecentos"

Function Extenso( e )
e = FormatNumber( e , 2 )
a = right( e , 2 )
j( 0 ) = 0
f = Int( ( len( e ) + 1 ) / 4 )

For b = 1 to f
j( b ) = ""
Next

b = 1
c = 1
For d = len( e ) - 3 to 1 step -1
j( c ) = mid( e , d , 1 ) & j( c )
If b / 3 = Int( b / 3 ) Then
c = c + 1
d = d - 1
End If
b = b + 1
next
g = 0
Extenso = ""
               
For b = f to 1 step -1
g = g + Int( j( b ) )

If Int( j( b ) ) <> 0 or ( Int( j( b ) ) = 0 And b = 1 )Then
If Int( j( b ) = 0 And Int( j( b + 1 ) ) = 0 And b = 1 )Then
Extenso = Extenso & ExtCentena( j( b ) , g ) & " de " & i( b )
Else
Extenso = Extenso & ExtCentena( j( b ) , g ) & " " & i( b )
End If
If Int( j( b ) ) <> 1 or ( b = 1 And g <> 1 ) Then
Select Case b
Case 1
Extenso = Extenso & "is"
Case 3, 4, 5
Extenso = Extenso & "ões"
End Select             
Else
Select Case b
Case 1
Extenso = Extenso & "l"
Case 3, 4, 5
Extenso = Extenso & "ão"
End Select             
End If
End If
If Int( j( b - 1 ) ) = 0 Then
Extenso = Extenso
Else
If ( Int( j( b + 1 ) ) = 0 And ( b + 1 ) <= f ) or ( b = 2 ) Then
Extenso = Extenso & " e "
Else
Extenso = Extenso & ", "
End If
End If         
Next

If a > 0 Then
If Int( a ) = 1 Then
Extenso = Extenso & " e " & ExtDezena( a ) & " centavo"
Else
Extenso = Extenso &  " e " & ExtDezena( a ) & " centavos"
End If
End If
Extenso = UCase( Left( Extenso , 1 ) )&right( Extenso , len( Extenso ) - 1 )
End Function

Function ExtDezena( k )
ExtDezena = ""
If Int( k ) > 0 Then
If Int( k ) < 20 Then
ExtDezena = h( Int( k ) )
Else
ExtDezena = h( Int( Int( k ) / 10 ) * 10 )
If ( Int( k ) / 10 ) - Int( Int( k ) / 10 ) <> 0 Then
ExtDezena = ExtDezena & " e " & h( Int( right( k , 1 ) ) )
End If
End If
End If
End Function

Function ExtCentena( k, l )
ExtCentena = ""

If Int( k ) > 0 Then
If Int( k ) = 100 Then
ExtCentena = "cem"
Else
If Int( k ) < 20 Then
If Int( k ) = 1 Then
If l - Int( k ) = 0 Then
ExtCentena = "hum"
Else
ExtCentena = h( Int( k ) )
End If
Else
ExtCentena = h( Int( k ) )
End If
Else
If Int( k ) < 100 Then
ExtCentena = ExtDezena( right( k , 2 ) )
Else                           
ExtCentena = h( Int( Int( k ) / 100 )*100 )
If ( Int( k ) / 100 ) - Int( Int( k ) / 100 ) <> 0 Then
ExtCentena = ExtCentena & " e " & ExtDezena( right( k , 2 ) )
End If
End If
End If
End If
End If
End Function
response.write Extenso(20.30)
%>

Fevereiro 9, 2008

Esse código você visualiza todos os componentes instalados!!!

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)

        ' Lista dos Componentes
        theComponent(0) = "ADODB.Connection"
        theComponent(1) = "SoftArtisans.FileUp"
        theComponent(2) = "AspHTTP.Conn"
        theComponent(3) = "AspImage.Image"
        theComponent(4) = "LastMod.FileObj"
        theComponent(5) = "Scripting.FileSystemObject"
        theComponent(6) = "SMTPsvg.Mailer"
        theComponent(7) = "CDONTS.NewMail"
        theComponent(8) = "Jmail.smtpmail"
        theComponent(9) = "SmtpMail.SmtpMail.1"
        theComponent(10) = "Persits.Upload.1"
        theComponent(11) = "UnitedBinary.AutoImageSize"
        theComponent(12) = "aspSmartUpload.SmartUpload"
        theComponent(13) = "DAO.DBEngine.35"

        ' Apelido dos Componentes
        theComponentName(0) = "ADODB"
        theComponentName(1) = "SA-FileUp"
        theComponentName(2) = "AspHTTP"
        theComponentName(3) = "AspImage"
        theComponentName(4) = "LastMod"
        theComponentName(5) = "FileSystemObject"
        theComponentName(6) = "ASPMail"
        theComponentName(7) = "CDONTS"
        theComponentName(8) = "JMail"
        theComponentName(9) = "SMTP"
        theComponentName(10) = "Persits Upload"
        theComponentName(11) = "AutoImageSize"
        theComponentName(12) = "ASpSmartUpload"
        theComponentName(13) = "DBEngine"

Function IsObjInstalled(strClassString)
        On Error Resume Next
                IsObjInstalled = False
        Err = 0
                Dim xTestObj
                        Set xTestObj = Server.CreateObject(strClassString)
        If 0 = Err Then IsObjInstalled = True
                Set xTestObj = Nothing
        Err = 0
End Function
%>
<html>
<head>
<title>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Dim i
        For i = 0 To UBound(theComponent)
        If Not IsObjInstalled(theComponent(i)) Then
        Else
                Response.Write "<tr>" & vbCrLf
                Response.Write "<td width=""100%"">" & vbCrLf
                Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
                Response.Write "</td>" & vbCrLf
                Response.Write "</tr>" & vbCrLf
        End If
Next
%>
</table>
</font>
</td>
</tr>
</table>
</body>
</html>

Abraço a Todos!!!!!!!!

Fevereiro 9, 2008

Script que gera senhas aleatórias

<%@ Language="VBScript" %>
<%
Dim Consoantes, Numeral, Vogal
Dim rConsoantes, rNumeral, rVogal

        Consoantes = "bcdfghjklmnpqrstvyxzw"
        Numeral = "1234567890"
        Vogal = "aeiou"

                lConsoantes = Len(Consoantes)
                lNumeral = Len(Numeral)
                lVogal = Len(Vogal)

        Randomize
                rConsoantes = (Rnd * lConsoantes + 1)
                rNumeral = (Rnd * lNumeral + 1)
                rVogal = (Rnd * lVogal + 1)
        Randomize

                rConsoantes = CInt(rConsoantes)
                rNumeral = CInt(rNumeral)
                rVogal = CInt(rVogal)

        Randomize
                PassWord = PassWord & Mid(Consoantes, rConsoantes, 1) & Mid(Numeral, rNumeral, 1) & Mid(Vogal, rVogal, 1) & Mid(Numeral, (Rnd * rNumeral + 1), 1) & Mid(Vogal, (Rnd * rVogal + 1), 1) & Mid(cConsoantes, (Rnd * rConsoantes + 1), 1)
        Randomize

        Response.Write PassWord
%>

Fevereiro 9, 2008

Mais um randomize de Imagens adaptado para as necessidade básicas:

<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<%
  Function RandomDeImagens(strPath,strDefault)
        On Error Resume Next
        Randomize Timer

        Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02
        Dim StrPastas, StrImagens, StrBase, StrPasta

        Const strValid = ".gif.jpg.png"

        If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
       
        StrBase = Server.MapPath(strPath)
        Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject")
       
        Set objFolder = ObjDeFSO.GetFolder(StrBase)
        Set ObjDaPasta = objFolder.Files

        For Each ObjPasta02 In ObjDaPasta
          StrPasta = LCase(ObjPasta02.Name)
          If Instr(strValid,Right(StrPasta,4)) Then
                StrPastas = StrPastas & StrPasta & VbTab
          End If
        Next

        StrImagens = Split(StrPastas,VbTab)
       
        If UBound(StrImagens) > 1 Then
          RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens)))
        Else
          RandomDeImagens = strDefault
        End If

  End Function
%>

</head>
<body>
<div align="center">
<center>
<table border="1" bordercolor="#000000">
  <tr>
        <td bgcolor="#ffffff">
          <!-- a pasta developercenter é relacionanda a sua pasta principal -->
          <img src="<%=RandomDeImagens("images/","/developercenter/images/default.gif")%>">
        </td>
  </tr>
</table>
</center>
</div>
</body>
</html>

Fevereiro 9, 2008

Olá galera, por ver muito os usuários pedirem cálculos de CEP, está æ o script pronto e bem arrumado!

Em primeira mão criei o arquivo Default.asp onde temos os campos de CEP de Destino, CEP de Origem e Peso (que será calculado com base nesse campo).

Criei uma condição de Request só para chamar o Cálculo, (Busca = 1)

Default.asp

<html>
<head>
</head>
<body>
<form method="get" name="form1" id="Form1" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>">
<input type="hidden" name="cepOrigem" value="40335620" id="Hidden1">
<input type="hidden" name="busca" value="1" id="Hidden3">
<table width="400" id="Table1">
<tr>
<td width="131">Cep de Origem:</td>
<td width="257">40335620</td>
</tr><tr>
<td>Cep de Destino:</td>
<td><input type="text" name="cepDestino" value="" id="Text1"></td>
</tr><tr>
<td>Peso:</td>
<td><input type="text" name="peso" value="1" id="Text2"></td>
</tr><tr>
<td>&nbsp;</td>
<td><input type="submit" name="Submit" value="Calcular" id="Submit1"></td>
</tr>
</table>
</form>
</body>
</html>
<%
If Request("busca") = 1 Then
        Dim UrlResposta
       
        '---------------- AQUI A SUA URL DE RESPOSTA ----------------------
                UrlResposta     =       "http://localhost/respostacorreios.asp" 
        '------------------------------------------------------------------
       
        '---------------- URL DOS CORREIOS, enviando as querys para o site do correios ----------------------
        Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "")

End If
%>

Nessa outra página criei o recebimento das variáveis da query. Pequei campos báscios como - CEP de Origem - CEP de Destino - Peso - Serviço - Tarifa - UF de Origem - UF de Destino Segue o código abaixo bem simples! RespostaCorreios.asp

<style type="text/css">
<!--
.style1 {
        font-family: Verdana, Arial, Helvetica, sans-serif;
        font-size: 12px;
        color: #000000;
}
-->
</style>
<span class="style1">
<%
'---------------- AQUI, recebe o resultado da URL, tem mais dados só coloquei o báscio ----------------------
Response.Write("<strong>CEP de Origem :</strong> "&Request.QueryString("cepOrigem")&"<br>")
Response.Write("<strong>CEP de Destino :</strong> "&Request.QueryString("cepDestino")&"<br><br>")

        Response.Write("<strong>Peso :</strong> "&Request.QueryString("Peso")&"<br>")
        Response.Write("<strong>Serviço :</strong> "&Request.QueryString("Servico")&"<br>")
        Response.Write("<strong>Tarifa :</strong> "&Request.QueryString("Tarifa")&"<br><br>")
       
Response.Write("<strong>UF de Origem :</strong> "&Request.QueryString("UFOrigem")&"<br>")
Response.Write("<strong>UF de Destino :</strong> "&Request.QueryString("UFdestino")&"/"&Request.QueryString("LocalDestino")&"<br>")
%>
</span>

Qualquer crítica, sugestão de código será sempre bem vinda! Abraços a Todos!!!!!

Fevereiro 9, 2008

æ galera:

segue um exemplo muito simples e fácil de "bricar" com o xml

Vamos começar com a nossa página Default.asp

PÁGINA : Index.asp

<%@ Language="VBScript"%>

<html><body>
<form action="Index.asp?Tedk=Cadastrar" method="post">
<b>Seu nome:</b><input type="text" name="nome"><input type="hidden" name="link" value="&amp;Tedk=Deletar"><br>
<b>Seu e-mail:</b><input type="text" name="email"><br>
<input type="submit" value="Cadastrar">
</form>

<%
'--------------------- Início - CADASTRANDO ---------------------'
If Request.QueryString("Tedk") = "Cadastrar" Then

nome=request.form("nome")
email=request.form("email")
link=request.form("link")

set doc=server.createobject("microsoft.xmldom")
doc.load(server.mappath("cadastro.xml"))

set raiz=doc.documentElement
set registro=doc.createelement("usuario")
raiz.appendchild(registro)

set campo=doc.createelement("nome")
campo.text=nome
registro.appendchild(campo)

set campo=doc.createelement("email")
campo.text=email
registro.appendchild(campo)

set campo=doc.createelement("link")
campo.text=link
registro.appendchild(campo)

doc.save(server.mappath("Cadastro.xml"))
response.write"Cadastro realizado com sucesso!<a href='Index.asp?Tedk=Ver'>Acessar Dados</a>"
'--------------------- Final - CADASTRANDO ---------------------'


'--------------------- Início - VISUALIZANDO ---------------------'
ElseIf Request.QueryString("Tedk") = "Ver" Then

set xsldoc=server.createobject("microsoft.xmldom")
set xmldoc=server.createobject("microsoft.xmldom")

xmldoc.load(server.mappath("cadastro.xml"))
xsldoc.load(server.mappath("Visualizar.xsl"))

response.write(xmldoc.transformnode(xsldoc))
'--------------------- Final - VISUALIZANDO ---------------------'


'--------------------- Início - DELETANDO ---------------------'
ElseIf Request.QueryString("Tedk") = "Deletar" Then

response.buffer="true"

set xmldoc=server.createobject("microsoft.xmldom")
xmldoc.load(server.mappath("cadastro.xml"))

set raiz=xmldoc.documentElement

set registro=raiz.selectsinglenode("usuario[nome='"&request.querystring("nome")&"']")
raiz.removechild(registro)

xmldoc.save(server.mappath("cadastro.xml"))
Response.Write("Deletado com Sucesso")

End If
'--------------------- Final - DELETANDO ---------------------'
%>
</body></html>

PÁGINA : Cadastro.xml

<?xml version="1.0" encoding="ISO-8859-1"?>
<cadastro>
<Usuario>
  <nome>thiago</nome>
   <email>adamisongs@hotmail.com</email>
   <link>&amp;Tedk=Deletar</link>
</Usuario>
</cadastro>

PÁGINA : Visualizar.xsl

<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:template match="/">
<center>
<font color="#000000" size="2" face="MS Sans Serif">Visualizando Dados</font>
<table width="283" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="107"><div align="center"><strong>Nome</strong></div></td>
    <td width="176"><div align="center"><strong>Email</strong></div></td>
    <td width="176"><div align="center"><strong>Apagar</strong></div></td>
  </tr>
<xsl:for-each select="cadastro/usuario">
  <tr>
    <td><div align="center"><xsl:value-of select="nome"/></div></td>
    <td><div align="center"><xsl:value-of select="email"/></div></td>
    <td><div align="center"><a><xsl:attribute name="href">Index.asp?nome=<xsl:value-of select="nome"/><xsl:value-of select="link"/></xsl:attribute>Apagar</a></div></td>
  </tr>
</xsl:for-each>
</table>
</center>
</xsl:template>
</xsl:stylesheet>

é básio, é fácil mais eu gosto!!!

espero que isso seja adotado como exemplo para que está começando com XML!!!!

abraços!!!

Fevereiro 9, 2008

Para o bem de todos segue a Paginação que funciona no MySQL, Testada e Aprovada

LEGENDAS:
TedkDados => RS
TedKBanco => Conn
TedkDados.Pagesize = 30 => Quantidade de linhas!

-------------------------

<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>Nome</strong>&nbsp;</td>
  <td width="47%" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>E-Mail</strong>&nbsp;</td>
</tr>
  <%
  TedkBanco.CursorLocation = 3
  Set TedkDados = Server.CreateObject("Adodb.RecordSet")
  TedkDados.Pagesize = 30
  TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco

  If TedkDados.Eof Then
  Response.Write("")
  Else
  PaginaAtual = CInt(Request.Querystring("Pages"))

  If PaginaAtual = 0 Then
  PaginaAtual = 1
  End If

  TedkDados.AbsolutePage = PaginaAtual
  Num = TedkDados.PageCount

  While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("NomeNewsletterEMail")) %>&nbsp;</td>
  <td bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("EMailNewsletterEMail")) %>&nbsp;</td>
</tr>
  <%
  TedkDados.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > TedkDados.PageCount Then
  Proximo = TedkDados.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong>&nbsp;<%
  Jo = 1
  While Jo <= TedkDados.PageCount

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]&nbsp;&nbsp;")
  Else
  Response.Write("<a href=""Default.asp?Pages="&Jo&""" class=""classFonte01"" title=""P&aacute;gina "&Jo&""">"&Jo&"</a>&nbsp; ")
  End If
  Jo = Jo + 1
  Wend
  End If
%></td>
</tr>
</table>

Aproveitem... 100% Testado no MySQL

Entrar

Ted k'

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Ted k'

ASP

[Resolvido] Pegando a URL completa do Browser

[Resolvido] Pegando a URL completa do Browser

[Resolvido] Pegando a URL completa do Browser

O uso do IF

[Resolvido] Pegando a URL completa do Browser

Deletar automaticamente e enviar email automaticamente

Gerador de Nome de Pobre

Proibir botão direito em CSS ou HTML

[Resolvido] Pegando a URL completa do Browser

O uso do IF

Notícias

Notícias

Busca por Chuck Norris no Google é piada

O uso do IF

Ajuda com o envio de email

O uso do IF

Data por Extenso

Colocando Números por extenso

Ver componentes instalados

Senhas Aleatórias

Imagens Aleatórias : Randomize

Cálculo de FRETE

Que tal Inserir, Visualizar e Deletar linhas de um XML?

Paginação 1 2 [3] 4 5 6

Navegação

Atividades