Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Posts postados por victormartins

  1. vê se o que eu fiz está cero:

    <!--#include file="config.asp"-->
    <table border="1" cellpadding="4" cellspacing="0" width="363" bordercolor="#000000" align="center">
    
        <tr>
          <td bgcolor="#FFFFFF" width="363">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><a name= "scrollingCode"></a> 
    <table width="98%" cellpadding="0" cellspacing="0" align="center">
      <%      sqlstmt = "SELECT * FROM noticias2 ORDER BY id DESC"
              Set rs = Server.CreateObject("ADODB.Recordset")
              rs.Open sqlstmt, Dados, 3, 3
    TotalRecs = rs.recordcount
    x = 0
    For x = 1 to 9999
        If rs.eof then
            Exit For
        Else
            date1 = rs("data")
            id = rs("id")
            name1 = rs("titulo")
              link = "<a href='view.asp?id=" & id & "' class='g'>" & name1 & "</a>"
            description = name1
       %>
      <tr> 
        <td height="2" valign="top"><font face="Geneva, Arial, Helvetica, san-serif" size="2"> 
          <img src="Imagens/apontar.gif"> <%=rs("data")%> - <% =link%>
    </font> 
      </tr>
    
      <%
    rs.MoveNext
    End If
    Next
    rs.close
    set conexao = nothing
    set rs = nothing%>
    </table></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    

    Ele chama todos os campos porque usa todos os campos :D

  2. Desenvolvi um site pra uma Igreja [ , o problema é quando mais pessoas acessam o site, tipo 4 pessoas, quando ele vai acessar as noticias que estao no banco de dados o site demora muito pra abrir, isso acontece quando ele acessa o banco e quando tem 2 ou mais pessoas acessando o site.

    alguém sabe como resolver esse problema?

    editado: o link aparecia no google

  3. aqui tem um cod, não sei se te ajuda:

    ' ******************************************************* 
    '******************************************************** 
    ' FUNÇÃO: fnc_RetiraVirgula(s as string) ** 
    ' VERSÃO: 1 REVISÃO: 2 ** 
    ' AUTOR: Victor Martins ** 
    ' ** 
    ' FUNÇÃO: Retira as virgulas de strings, retornando ** 
    ' a mesma com seu CASO normal. ** 
    ' ** 
    'EXEMPLO: , --> . ** 
    '******************************************************* 
    
    
    Function fnc_RetiraVirgula(s) 
    Dim vchars, chars, newS, i, j 
    vchars = "," 
    chars = "." 
    newsS = s 
    For i = 1 To Len(s) 
    For j = 1 To Len(chars) 
    If (Mid(s, i, 1) = Mid(chars, j, 1)) Then 
    newsS = Replace(newsS, _ 
    Mid(chars, j, 1), _ 
    Mid(vchars, j, 1)) 
    End If 
    Next 
    Next 
    fnc_RetiraVirgula = newsS 
    End Function 
    ' ** 
    ' ******************************************************** 
    ' ****************************************************** 
    

×
×
  • Criar Novo...