marsites

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutro

About marsites

  • Birthday 01/02/1978

Contatos

  • Website URL
    https://www.marsites.com.br

Perfil

  • Gender
    Male
  • Location
    Brasil - São Paulo/SP
  • Interests
    Aprender sempre e Ajudar mais
  1. @mzamaro difícil dizer com clareza a respeito a ponto de confirmar que é erro do servidor. O correto é analisar o código de Insert, Update, Delete, pois pode ser também um problema na regra de negócio. Sei que o asp classic não possui um debug porém você pode utilizar: On Error Resume Next ' seu código If Err <> 0 Then 'Response.Write "An error occurred: " & Err.Description Response.end() End If
  2. Parabens pelo código, que me ajudou com simplicidade e agilidade. você postou em 16/09/2007 e até hoje é útil, meus Parabéns.
  3. geralmente o upload é feito com plugin e eles possuem este método para facilitar
  4. marsites

    Comparação data

    utilize #21/01/2016# ou CDate("21/01/2016") Dim myDate : myDate = right("00"&day(date()),2) &"/"& right("00"&month(date()),2) &"/"& year(date()) rscupom("DATA") = myDate
  5. marsites

    SELECT DISTINCT

    não entendi muito o que você quis dizer porém você incluir no where a condição que não deseja SELECT DISTINCT tblWebsites.* FROM tblWebsites WHERE (Categoria=1 and Title LIKE '%idiomas%') OR (Categoria=1 and Palavrachave LIKE '%idiomas%') OR (Categoria=1 and Description LIKE '%idiomas%') ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;
  6. Dim x : x=1 Dim cliente : cliente = Replace(Trim(Request("cli"))) Dim sql,new ' você precisa passar a quantidade certa para que não utilize ' recurso desnecessário de mémória Dim quantidade : quantidade = Replace(Trim(Request("qtd"))) '@@@@@@@@ SEM QUEBRAR A CABEÇA beleza For i=0 to quantidade new = request("fnoticias_"&quantidade) if new <> "" then sql = "select * from noticias where cliente='"& cliente &"' and url='"& new &"'" set rs = conn_painel.Execute(sql) if not rs.eof then ' cole aque o código para update ou passe a frente else ' não encontrando faz insert response.write "insert into noticias "& new end if end if next