TIO CARNEGO

Acho que você terá que contratar uma empresa que presta esse serviço, aqui no brasil as companhias não tem esse recurso aberto ao povão.

Para ler somente o texto de um documento html:

<%Response.Write "<SELECT NAME='uf' onchange='mostrar()'>" Response.Write "<OPTION VALUE=' & uf &'SELECTED>" & uf & "</OPTION >" If Not rs02.EOF Then While Not rs02.EOF Response.Write "<OPTION VALUE='" & rs02("UF") & "'" If Request("uf") = rs02("UF") Then Response.Write " selected" Response.Write ">" & rs02("UF") & "</OPTION>" rs02.MoveNext Wend End If Response.Write "</SELECT>" Percebeu a diferença??

Veja este:

Dentro do loop principal há outro loop que move o cursor de RS vaeja: While intrec < RS.PageSize and not RS.EOF %> <table width="87%" border="0" align="center" cellpadding="0"> <tr> <td> <table width="276" border="0" align="center"> <tr> <td width="270"><form name="form1" method="post" action="excluir_corpoclinico_exito.asp"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%cor="6699FF"%> QUE QUE ESSE CARA TÁ FAZENDO AQUI??? ==>> <%while not Rs.Eof%> </font> </strong> <table width="267" border="0" cellspacing="1"> <tr> <td width="219" bgcolor="<%=cor%>"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%response.write Ucase(Rs("nome_medico"))%> </font></strong></td> <td width="41" bgcolor="#99CCFF"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input name="box" type="checkbox" id="box" value="<%=Rs("ID_medico")%>"> </font></strong></td> </tr> </table> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%Rs.MoveNext IF cor="6699FF" then cor="cccccc" ELSE cor="6699FF" END IF wend%> </font> </strong> <div align="center"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input type="submit" name="Submit" value="Excluir"> </font></strong></div> </form></td> </tr> <tr> <td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Uma vez exclu&iacute;do o dado, n&atilde;o haver&aacute; possibilidade de recuper&aacute;-lo.</font></strong></div></td> </tr> </table> <br> </td> </tr> <tr> <td><div align="center"><a href="Default.asp"> </a></div> <div align="center"> <% ' response.write RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & "<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

Completa e Total <%Option Explicit%><!--#include file="conexoes.asp" --><% Const oTamanho=10 Const aTabela="Pessoas" Dim aOrdem,aDirecao,aPagina,rsLista,osCampos,osNomes,i,aPaginacao osCampos = Array("IdPessoa","Nome","Email","Cidade","UF") osNomes = Array("Código","Nome","Email","Cidade","UF") aOrdem = IIF(Request.QueryString("aOrdem")<>"",Request.QueryString("aOrdem"),osCampos(0)) aDirecao = IIF(Request.QueryString("aDirecao")<>"",Request.QueryString("aDirecao"), "ASC") aPagina = IIF(Request.QueryString("aPagina")<>"",CInt(Request.QueryString("aPagina")), 1) Function MontaQuery() Dim i,aQuery aQuery="SELECT "&osCampos(0) For i = 1 To UBound(osCampos) aQuery=aQuery&","&osCampos(i) Next MontaQuery=aQuery&" FROM "&aTabela&" ORDER BY "&aOrdem&" "&aDirecao End Function Function IIF(a,b,c):If a Then:IIF=b:Else:IIF=c:End If:End Function Set rsLista=Server.CreateObject("ADODB.RecordSet") With rsLista .CacheSize=oTamanho .PageSize=oTamanho .Open MontaQuery(),Con, 3, 1,1 If Not .Eof Then If aPagina > .PageCount Then aPagina=.PageCount .AbsolutePage=aPagina End If End With If aPagina>1 Then aPaginacao=aPaginacao&"<a href='paginacao.asp?aPagina=1&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&lt;&lt;</a>" aPaginacao=aPaginacao&"&nbsp;&nbsp;<a href='paginacao.asp?aPagina="&aPagina-1&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&lt;</a>" Else aPaginacao=aPaginacao&"&lt;&lt;" aPaginacao=aPaginacao&"&nbsp;&nbsp;&lt;" End If aPaginacao=aPaginacao&"&nbsp;&nbsp;Página&nbsp;<select onchange=""location.href='paginacao.asp?aPagina='+this.value+'&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'"">" For i=1 To rsLista.PageCount aPaginacao=aPaginacao&"<option "&IIF(i=aPagina,"selected style='background-color:#C1C1C1'","")&" value='"&i&"'>"&i&"</option>" Next aPaginacao=aPaginacao&"</select>" If aPagina<rsLista.Pagecount Then aPaginacao=aPaginacao&"&nbsp;de&nbsp;<a href='paginacao.asp?aPagina="&rsLista.Pagecount&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>"&rsLista.Pagecount&"</a>&nbsp;&nbsp;" aPaginacao=aPaginacao&"<a href='paginacao.asp?aPagina="&aPagina+1&"&aOrdem="&aOrdem&"&aDirecao="&aDirecao&"'>&gt;</a>" Else aPaginacao=aPaginacao&"&nbsp;de&nbsp;"&rsLista.Pagecount&"&nbsp;&nbsp;" aPaginacao=aPaginacao&"&gt;" End If%> <html> <body> <div><%=aPaginacao%></div> <table width="100%" border="1" cellspacing="1" cellpadding="1"> <tr> <%For i = 0 To UBound(osCampos)%> <th><a href="paginacao.asp?aPagina=1&aOrdem=<%=osCampos(i)%>&aDirecao=<%=IIF(osCampos(i)=aOrdem,IIF(aDirecao="ASC","DESC","ASC"),"ASC")%>"><%=osNomes(i)%><%=IIF(osCampos(i)=aOrdem,"<font face='webdings'>"&IIF(aDirecao="ASC","6","5")&"</font>","")%></a></th> <%Next%> </tr> <%While Not rsLista.Eof And rsLista.AbsolutePage=aPagina%> <tr> <%For i = 0 To UBound(osCampos)%> <td><%=rsLista(osCampos(i))%></td> <%Next%> </tr> <%rsLista.MoveNext Wend%> </table> <div><%=aPaginacao%></div> </body> </html>

Procura uns tutoriais sobre esse cara -> Microsoft.XMLDOM

Questão 1: R: Ajuda só com a presença da instrução OPTION EXPLICIT. Questão 2: R: Melhor usar o select count, gravar o total de mensagens em um campo pode trazer insconsistências. Questão 3: R: Creio que para um sistema de fórum deve haver um rastreamento da atividade do usuário tipo um LOG, que identificará entre outas coisas quais posts esse usuário leu. Esse LOG deve ser armazenado no servidor. Questão 4: R: Se descobrir outra forma me avise.

No Access: Tabela: Registros Campos: IdRegistro Autonumeração Registro Texto Para página com 10 linhas: SELECT *, 1+Fix((DCount(IdRegistro,'Registros','IdRegistro<'+Str([IdRegistro])))/10) AS NumeroDaPagina FROM Registros ORDER BY IdRegistro Para página com 20 linhas: SELECT *, 1+Fix((DCount(IdRegistro,'Registros','IdRegistro<'+Str([IdRegistro])))/20) AS NumeroDaPagina FROM Registros ORDER BY IdRegistro

Pra paginação o Recordset é melhor mesmo. E ao invés de dar esses loops toscos em Arrays ou RecordSets tentem isso: aTabela="<table border=1><tr><td>"&RecordSet.GetString(2,-1,"</td><td>","</td></tr><tr><td>")&"</table>" aTabela=Replace(aTabela,"<tr><td></table>","</table>") Response.Write(aTabela) ou isto: Set RecordSet=Connection.Execute("Select '<tr><td class=""formato"">',Str(IdHotel),'</td><td>',Hotel,'</td><td>',Estrelas,'</td></tr>' From Hoteis") aTabela="<table border=1>"&RecordSet.GetString()&"</table>" Response.Write(aTabela) tá?

Na ação do primeiro frame System.useCodepage = true;

<%=formatnumber((Variavel/100),2)%>

SQL SERVER e Hospedagem em SERVIDOR DEDICADO

Por R$ 4.000,00 faço um idêntico.

Era assim: link = "<a href='news/view.asp?id=" & id & " 'target=_parent'>" & date1 & " </a> " Deixe assim: link = "<a href='news/view.asp?id=" & id & " ' target='_parent' >" & date1 & " </a> "

Acredito q os nomes das variáveis começam com c porque são nomes de colunas. Lá vai: Campos: ColunaA, ColunaB, ColunaC osCampos=Array("ColunaA","ColunaB","ColunaC") For i = 0 To UBound(osCampos) Response.Write(RecordSet(osCampos(i))) Next Campos: Coluna1, Coluna2, Coluna3 For i = 1 To 3 Response.Write( RecordSet("Coluna"&i) ) Next Campos: Todos For Each Campo In RecordSet.Fields Response.Write(Campo.Value) Next Será q prestou?

Pra que usar GetRows? Pra consumir mais recursos do servidor? Dá uma olhada http://scriptbrasil.com.br/forum/index.php...ndpost&p=254487

porque você não tá usando a transação da conexão? Tem que configura o MSDTC pra usar a página como objeto transacional. Utilize conn.BeginTransaction

Além disso esse código de vocês tá totalmente vulnerável a sql injection digite ' or ''=' no campo de login e no campo de senha.

Vamo prestá atenção! O cara quer fazer a verificação com CASE SENSITIVE ou seja até as letras maiúsculas e minúsculas devem ser idênticas.

Esse script vai precisar apenas de uma conexão instanciada com o nome <Con>. E só. Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(<Caminho>)&";"

Dessa vez é de graça: <!--#include file="conexoes.asp" --><% Function IIF(a,b,c) If a then:IIF=b:Else:IIF=c:End IF End Function 'Matriz com os títulos amigáveis dos campos osNomes=Array("Cód","Nome","CNPJ/CPF","Cidade","UF") 'Matriz com os títulos dos campos no bd osCampos=Array("IdCliente","Nome","CNPJ_CPF","Cidade","UF") aPagina = CInt(Request("aPagina")) If aPagina=0 Then aPagina=1 aOrdem = Request("aOrdem") If aOrdem="" Then aOrdem=osCampos(0)& " ASC" aOrdem=Replace(aOrdem,"+"," ") Set rsLista=Server.CreateObject("ADODB.RecordSet") With rsLista .CacheSize=10 .PageSize=10 .Open "SELECT * FROM clientes_cs ORDER BY "&aOrdem,Con, 3, 1,1 If Not .Eof Then If aPagina > .PageCount Then aPagina=.PageCount .AbsolutePage=aPagina End If End With aOrdem=Replace(aOrdem," ","+")%> <table border="0" cellspacing="0" cellpadding="4"> <tr> <%For i=0 to uBound(osCampos)%> <th><a href="paginacao.asp?aPagina=<%=aPagina%>&aOrdem=<%=osCampos(i)&IIF(osCampos(i)&"+ASC"=aOrdem,"+DESC","+ASC")%>"><%=osNomes(i)%> <%If InStr(aOrdem,osCampos(i)&"+")=1 Then%> <font face="webdings" style="font-size:xx-small;"><%=IIF(osCampos(i)&"+ASC"=aOrdem,"5","6")%></font> <%End If%> </a></th> <%Next%> </tr> <%While (Not rsLista.Eof) AND (rsLista.AbsolutePage=aPagina) Cara=Not Cara%> <tr bgcolor="<%=IIf(Cara,"","#CCCCCC")%>" onMouseOver="this.bgColor='#3399DC'" onMouseOut="this.bgColor='<%=IIf(Cara,"","#CCCCCC")%>'"> <%For i=0 to uBound(osCampos)%> <td><a href="javascript:alert('AHeUaHEUAehAUEhAEUahe')"><%=rsLista(osCampos(i))%></a></td> <%Next%> </tr> <%rsLista.MoveNext Wend%> </table> <table border="0" cellpadding="2" cellspacing="0"> <tr> <td><a href="paginacao.asp?aPagina=1&aOrdem=<%=aOrdem%>">1</a>&nbsp; <%For i=2 to rsLista.PageCount%> <b>•</b>&nbsp;<a href="paginacao.asp?aPagina=<%=i%>&aOrdem=<%=aOrdem%>"><%=i%></a> <%Next%> </td> </tr> </table> té +

Teste = FormatCurrency(15487) Teste será string igual a "R$ 15.487,00" Isso se o servidor tiver as configurações regionais do Brasil ou seja todos servidores dos serviços de hospedagem decentes.

Tipo assim: LoginDoBD = rs("login") LoginQueOCaraDigitou = Request.Form("login") Teste = StrComp(LoginDoBD,LoginQueOCaraDigitou,0) Se as duas palavras forem idênticas respeitando as letras maiúsculas e minúsculas Teste terá o valor 0

Desabilite essa opção, pare e inicie o IIS pelo console feche todas as janelas do navegador cliente e acesse novamente