GERANEGOCIO - O Portal do Pequeno Negócio

<% dim caradoovo dim texto select case weekday(date) case 1 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 2 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 3 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 4 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 5 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 6 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" case 7 caradoovo = "ovo-ov4.gif" texto = "alerta.gif" end select %>

Pequeno Negócio

Negócio em Casa

Telenegócio

Pequenas Franquias

Ep. de Participação

Páginas Azuis

Legalização

Agenda Tributária

Assist. Financeiro

<% dia = day(date) select case month(date) case 1 mes = "janeiro" case 2 mes = "fevereiro" case 3 mes = "março" case 4 mes = "abril" case 5 mes = "maio" case 6 mes = "junho" case 7 mes = "julho" case 8 mes = "agosto" case 9 mes = "setembro" case 10 mes = "outubro" case 11 mes = "novembro" case 12 mes = "dezembro" end select ano = year(date) select case WeekDay(date) case 1 diasemana = "Domingo" case 2 diasemana = "Segunda-feira" case 3 diasemana = "Terça-feira" case 4 diasemana = "Quarta-feira" case 5 diasemana = "Quinta-feira" case 6 diasemana = "Sexta-feira" case 7 diasemana = "Sábado" end select Response.write(diasemana & ", " & dia & " de " & mes & " de " & ano) %>

	Dirce Ventura, artesã, 73 anos, fala sobre terceira idade e empreendedorismo
Mais vídeos, clique aqui

- Tire suas dúvidas on line com um de nossos Ger@tendentes

Maria de Lourdes Micaldas se tornou empresária aos 61 anos

Biotecnologia: Caminho para geração de centenas de MPEs no Brasil

-DESTAQUE:

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open application("StringConexaoODBC") Set RS = Server.CreateObject("ADODB.Recordset") conn.cursorlocation = 3 sqlQuery = "SELECT id_materia,titulomateria,datamateria,parte FROM TBMATERIA WHERE parte=1 and destaque = 'OK' ORDER BY id_materia DESC" RS.MaxRecords = 1 RS.Open sqlQuery,Conn if not rs.eof then datadb = rs("datamateria") parte1 = left(datadb,InStr(datadb,"/")) parte2 = right(datadb,(len(datadb)-InStr(datadb,"/"))) if (len(parte1)) = 2 then parte1 = "0" & parte1 end if if (len(parte2)) = 6 then parte2 = "0" & parte2 end if data = parte1 & parte2 titulo = rs("titulomateria") if InStr(titulo,"%") <> 0 then titulolink = replace(titulo,"%","%25") else titulolink = titulo end if if InStr(titulolink,"""") <> 0 then titulolink = replace(titulolink,"""","%22") else titulolink = titulolink end if if InStr(titulolink,"'") <> 0 then titulolink = replace(titulolink,"'","''") else titulolink = titulolink end if %> &area=20&titulo=<%=titulolink%>&parte=<%=rs("parte")%>&destaque=ok" target="_top" class="tldest"><%=titulo%> <% end if rs.close set rs = nothing %>

-ÚLTIMAS NOTÍCIAS:

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open application("StringConexaoODBC") Set RS = Server.CreateObject("ADODB.Recordset") conn.cursorlocation = 3 sqlQuery = "SELECT id_materia,titulomateria,datamateria,parte FROM TBMATERIA WHERE parte=1 and destaque <> 'OK' ORDER BY datamateria DESC" RS.MaxRecords = 10 RS.Open sqlQuery,Conn Do while not rs.Eof datadb = rs("datamateria") parte1 = left(datadb,InStr(datadb,"/")) parte2 = right(datadb,(len(datadb)-InStr(datadb,"/"))) if (len(parte1)) = 2 then parte1 = "0" & parte1 end if if (len(parte2)) = 6 then parte2 = "0" & parte2 end if data = parte1 & parte2 titulo = rs("titulomateria") if InStr(titulo,"%") <> 0 then titulolink = left(titulo,InStr(titulo,"%")) else titulolink = titulo end if if InStr(titulolink,"""") <> 0 then titulolink = replace(titulolink,"""","%22") else titulolink = titulolink end if if InStr(titulolink,"'") <> 0 then titulolink = replace(titulolink,"'","''") else titulolink = titulolink end if if len(titulo) > 35 then tituloesquerdo = left(titulo,35) titulodireito = right(titulo,len(titulo)-35) if InStr(titulodireito," ") <> 0 then titulodireito = left(titulodireito,InStr(titulodireito," ")) titulocurto = tituloesquerdo & titulodireito & "..." else titulocurto = tituloesquerdo & titulodireito end if else titulocurto = titulo end if %> &area=20&titulo=<%=titulolink%>&parte=<%=rs("parte")%>" target="_top" class="tlsmall"><%=data%> - <%=titulocurto%>
<% rs.MoveNext Loop rs.close set rs = nothing %>
Mais notícias, clique aqui.

<% Set Rsnoticia = Server.CreateObject("ADODB.Recordset") Rsnoticia.MaxRecords = 1 sqlQuerynoticia = "SELECT id_noticia,titulonoticia,lead FROM TBNOTICIAS ORDER BY id_noticia DESC" Rsnoticia.Open sqlQuerynoticia,Conn idnoticia = rsnoticia("id_noticia") titulo = rsnoticia("titulonoticia") lead = rsnoticia("lead") %>
<%=titulo%>

<%=lead%> <% Rsnoticia.close Set Rsnoticia = nothing %>

Fundação BioMinas desenvolveu um estudo para mapear o setor de biotecnologia

Marcus Lindgren da Labtest acredita que o setor poderá enfrentar alguns obstáculos

<% Set Rseventocoberto = Server.CreateObject("ADODB.Recordset") Rseventocoberto.MaxRecords = 1 sqlQueryevento = "SELECT id_eventocoberto, tituloevento, datainicio, datafim FROM TBEVENTOSCOBERTOS where controle = 1" Rseventocoberto.Open sqlQueryevento,Conn if Rseventocoberto.EOF or Rseventocoberto.BOF then %>

Próximos eventos a serem cobertos pelo GERANEGOCIO:

<% Set Rscobert = Server.CreateObject("ADODB.Recordset") Rscobert.MaxRecords = 2 sqlQuerycobertura = "SELECT id_eventocoberto, tituloevento, datainicio, datafim, localevento FROM TBEVENTOSCOBERTOS where evencerrado = '' order by datainicio asc" Rscobert.Open sqlQuerycobertura,Conn while not Rscobert.EOF ideventocoberto = Rscobert("id_eventocoberto") titulo = Rscobert("tituloevento") local = Rscobert("localevento") datainicio = Rscobert("datainicio") datafim = Rscobert("datafim") %>

- <%= titulo %>
Período: de <%= datainicio %> a <%= datafim %>
Local: <%= local %>
<% Rscobert.movenext wend %>

<% else idevento = Rseventocoberto("id_eventocoberto") %>

<%= Rseventocoberto("tituloevento") %>
(<%= Rseventocoberto("datainicio") %> a <%= Rseventocoberto("datafim") %>)

<% Set Rscobert = Server.CreateObject("ADODB.Recordset") Rscobert.MaxRecords = 1 sqlQuerymateria = "SELECT nec.id_notevcoberto, nec.titulo, nec.corpomateria, nec.data, nec.legendafoto FROM TBNOTICIAEVCOBERTOS NEC where nec.id_eventocoberto = " & idevento & " order by nec.id_notevcoberto DESC" Rscobert.Open sqlQuerymateria,Conn idnoticia = Rscobert("id_notevcoberto") titulolink = Rscobert("titulo") if InStr(titulolink,"""") <> 0 then titulolink = replace(titulolink,"""","%22") else titulolink = titulolink end if materia = Rscobert("corpomateria") legenda = Rscobert("legendafoto") data = Rscobert("data") previa = left(materia,InStr(materia,".")) %>
<%= Rscobert("titulo") %>(<%= data %>)

<%= previa %>
(Leia Mais)

<% end if rscobert.close set rscobert = nothing rseventocoberto.close set rseventocoberto = nothing %>

- Ger@clipping
Mais de cinco mil notícias, entrevistas e artigos referentes às MPEs

- Microcrédito
Você quer conhecer as instituições que operam microcrédito no Brasil? Clique aqui

- Plano Estratégico
Veja como fazer o planejamento estratégico de sua empresa

- Pequeno Negócio
Descubra se você é empreendedor

- Capital de Risco
Aprenda tudo sobre Capital de Risco

- Artesanato
Clique aqui para ver a nova página de artesanato

- Telenegócio
Saiba tudo sobre telenegócio

- Exporta Fácil
Com esta ferramenta dos Correios fica mais fácil exportar seus produtos

- Produtividade
Veja aqui como aumentar a produtividade de sua micro ou pequena empresa

- Modelos
Veja aqui como montar o seu contrato social

- Você acha que a biotecnologia será um dos carros-chefe da economia nos próximos anos?

- É possível ganhar dinheiro através da arte? Dê sua opinião aqui.

- A criação de um micro ou pequeno negócio pode ser a saída para ex-presidiários?

Clique aqui e veja o que o GERANEGOCIO está fazendo

©2000 GERANEGOCIO.COM.BR
Todos os direitos reservados. All rights reserved.
Web Design e Programação - DAWeb - www.dawebdesign.com.br

Este site é melhor visualizado em 800 x 600 pixels - 24 bit color.