marsites

@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

Parabens pelo código, que me ajudou com simplicidade e agilidade. você postou em 16/09/2007 e até hoje é útil, meus Parabéns.

geralmente o upload é feito com plugin e eles possuem este método para facilitar

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

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;

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