[Calculo de Frete direto dos correios.]

Cara, seu código ta show, porém, para pac ele não está resolvendo... Alguém sabe porque ou têm alguma solução?

[Cálculo de FRETE]

Cara, esse código acima só diz respeito a sedex... Gostaria de fazer algo parecido, mas podendo alterar o tipo de postagem (sedex, sedex10 e pac)

Como poderia fazer?

[Laudo Médico]

Olá, pessoa, tudo bom?

Gostaria de saber como proceder, idéias, etc, para criar um pequeno sistema online para um consultório médico.

A idéia seria: O médico consultaria a pessoa, ou faria o exame, fazia o cadastro do paciente, dava um login e senha ao mesmo para que ele pudesse acompanhar pelo site o seu laudo. O paciente poderia imprimir o laudo com a assinatura do médico, CRM, etc, tudo bonitinho, como se fosse um laudo emitido pela própria clínica.

Alguém já teria algo mais ou menos na linha para me auxiliar?

Agradeço desde já, moçada!

[Solução para Pegar miniatura thumbnails do Youtube]

Fala Pessoal!!

Essa semana fiz uma pesquisas na internet sobre como Capturar imagem thumb do video do Youtube. Dai fiz um script para poder gravar isso num banco de dados. Aqui está a solução para quem quiser usar!!

Observações:

Para Pegar miniatura thumbnails do Youtube observe as urls abaixo

url do youtube padrão

http://www.youtube.com/watch?v=qjmTav1HkNo

servidor do youtube com a imagem

http://i1.ytimg.com/vi/qjmTav1HkNo/default.jpg

agora o script:

' campos vindos de um form de cadastro de vídeos


   titulo = Request.form("titulo")
   sinopse = Request.form("sinopse")
   link = Request.form("link")
   foto = mid(Request.form("link"),32,11) 

   ' No campo foto eu usei a função mid para capturar parte da URL do vídeo que será usada para gravar no banco a url da imagem.

   foto_link =  "http://i1.ytimg.com/vi/"& foto &"/default.jpg"

  ' No campo foto link usei a url padrão do youtube e acrescentei a url capturada do vídeo que ficou armazenada na variavel foto. Em seguida fiz a concatenção e pronto.

  ' Abaixo faço a gravação dos dados:

   Set Conexao = Server.CreateObject("ADODB.Connection")
   Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/seubanco.mdb")
   
   ComandoSQL = "INSERT INTO videos ( foto, titulo, descricao,linkvideo)"
   ComandoSQL = ComandoSQL & " VALUES ("   
   ComandoSQL = ComandoSQL & "'" & foto_link & "',"
   ComandoSQL = ComandoSQL & "'" & titulo & "',"
   ComandoSQL = ComandoSQL & "'" & sinopse & "',"   
   ComandoSQL = ComandoSQL & "'" & link & "')"

   
   Set bd = Conexao.Execute(ComandoSQL)

   Conexao.Close
   Set bd = Nothing
   Set Conexao = Nothing

Bem Pessoal,

Espero que isto ajude!

Clayton Lima

www.claytonlima.com

Aew, cara, beleza?

Legal seu código...

Agora, me diz uma coisa; depois que eu salvo no banco, como recuperar o vídeo e exibir o video recuperado do banco numa pagina ASP para o usuário assistir (já aparecer naquela janelinha pro usuário dar o play)?

Tem como você mostrar algum código assim?

Te agradeço!