JCMPJ

Primeiro: paginas ASP não rodam em javascript. PONTO. Se quizer algo parecido pode ser JSCRIPT.

Na verdade eu acho que joao é mesmo diferente de joão ele não vai encontrar. O que Você deve fazer é ver qual o set de caracteres está sendo usado na tabela, se você não especificou menhum é o default espeficado na instalação. O mesmo vale para Collate, no caso especifico das collates eu sei que tem collate que diferencia MAIUSCULAS de minusculas e collate que as tratam como se fossem iguais. No SQL Server tem collate que ignora os acentos mas no MySQL eu não vi, não.

Esse erro indica que você está tentando converter o tipo de uma variável para Long, mas o valor da variável é NULL. Tipo: a = CLng(variavel) No caso do seu erro o valor que está em variavel é NULL.

Mais facil impossível. SELECT @@IDENTITY

olha a pagina faz ligação com "conntexturas.asp" e dentro disto tenho o que postei no interior <% // FileName="Connection_odbc_conn_dsn.htm" // Type="ADO" // DesigntimeType="ADO" // HTTP="false" // Catalog="" // Schema="" var MM_conntexturas_STRING MM_conntexturas_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/database/txbibleEN.mdb") %> Eu quero que ligue a "txbibleEN.mdb". Bem acho que não intendi a tua pergunta... Tente fazer assim:

Está faltando alguma coisa. Cade o objeto Connection ?

rsframes.ActiveConnection = MM_conntexturas_STRING; Provelmente MM_conntexturas_STRING não é o nome da connection que foi aberta. Verifique no arquivo conntexturas.asp o nome da connection.

Acho que é assim que escreve SELECT DISTINCT CIDADE ...

Você só tem páginas HTML/XHTML ou tem PDF no meio? Sem PDF não ta dificil.

'conexão com banco set conexao = createobject("ADODB.connection") constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") conexao.open constr set rs = conexao.execute("SELECT * FROM table_teste WHERE login='"&Session("lgn")&"' AND senha='"&Session("snh")&"'") É isso ai, mesmo

Tenta usar um driver mais atual e que é o recomendado pela MS "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) Pode ser.

Mas o que acontece? Em todo caso acho que tem que colocar umas aspas simples, set rs = conexao.execute("SELECT * FROM table_teste WHERE login='"&Session("lgn")&"' AND senha='"&Session("snh")&"'")

O que é isso rs.MoveNext ??? Acerta ai, e veja se some o erro. Tem mais uma coisa provavelmente essa paginação não vai funcionar. Procure aqui neste Forum por paginação MySQL.

Acho que funciona, FormatNumber(variavel,0)

Putz se você não sabe o nome dos campos no retorno...

Oi! Mas para que você quer guardar o nome também? A mesma informação em duas tabelas? Acho que não existe a necessidade de se fazer isso.

Então porque você não estuda as request.servervariables??? Com certeza a resposta para o que você quer está lá. Acho que é algo do tipo HTTP_REFERER, não me lembro ao certo.

Está será a sua página default.asp: Ai home.asp será a página de entrada para www.craweb.org.br E uma página /transportadora/default.asp será a página de entrada para www.transportadorakoch.com.br Acho que é isso que você quer. Dois dominios na mesma area de hospedagem, certo?

Lado Cliente ??? O que você conhece a respeito de segurança ???

O erro no Mid é porque você ta começando do zero. Len devolve o número de caracteres na string, então o primeiro caracter tem indice um e não zero.

Faça um teste feche o navegador, apage todos os cookies da sua maquina, depois bloqueie o aceite de todo e qualquer cookie na sua maquina e tente ver se consegue enviar os torpedos.

Oi! Não testei. É uma idéia. Dim strAnterior, c, mc If Not rs.EOF Then c = 1 mc= 1 strAnterior = rs("cod") Response.Write "<tr><td>" & rs("cod") & "</td>" rs.MoveNext Do While NOT rs.EOF If strAnterior = rs("cod") Then c = c + 1 If c > mc Then mc = c Response.Write "<td>" & rs("cod") & "</td>" Else c = 1 Response.Write "</tr><tr><td>" & rs("cod") & "</td>" End If strAnterior = rs("cod") rs.MoveNext Loop If c < mc Then Response.Write "<td colspan=""" & mc - c & """></td></tr>" Else Response.Write "</tr>" End IF Else 'Recordeset vazio End If

Oi! Veja se ajuda:

Então posta a mensagem de erro. Que fica mais facil. Ele deve estar reclamando está linha: DSNtemp.Open Ainda tem mais: Tem que criar o objeto Connection Set DSNtemp = server.createobject("adodb.connection")

Andreia, Daquele jeito melhora e muito a performance do código. Pode até ser mais bonitinho, e bem mais facil de escrever e entender depois, mas vale considerar a perda de performance. Quanto a isso: If rs.eof then Exit For Pode até ficar sem o END IF, mas tem que ficar em um só linha Não custa testar. Pelo jeito esse erra o problema. []'s Ah tem também o NEXT que não ta aparecendo, como disse a Andreia.