<%
Function RandomImage(strPath,strDefault)
On Error Resume Next
Randomize Timer
' declare all variables
Dim objFSO, objFolder, objFiles, objFile
Dim strFiles, strImages, strPhysical, strFile
' this constant has the names of valid image file name
' extensions and can be modified for more image types
Const strValid = ".gif.jpg.png"
' make sure we have a trailing slash in the path
If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
' get the physical path of the folder
strPhysical = Server.MapPath(strPath)
' get a File System Object
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' create a folder object
Set objFolder = objFSO.GetFolder(strPhysical)
' get the files collection
Set objFiles = objFolder.Files
' enumerate the files collection looking for images
For Each objFile in objFiles
strFile = LCase(objFile.Name)
If Instr(strValid,Right(strFile,4)) Then
' add vaild images to a string of image names
strFiles = strFiles & strFile & vbTab
End If
Next
' split the image names into an array
strImages = Split(strFiles,vbTab)
' if we have an array...
If UBound(strImages) > 1 Then
' get a random name
RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
Else
' otherwise return the default
RandomImage = strDefault
End If
End Function
%>
1- Como realizar uma pesquisa?
Na caixa de seleção na página inicial, basta clicar na setinha e escolher a categoria em seguida clique no botão consultar. O site fará a pesquisa e trará todos os anúncios correspondentes.
Observe que não é necessário voltar a pagina inicial para fazer uma nova pesquisa, pois na própria tela trás a pesquisa por Palavra chave; Categoria ou Empresa, basta selecionar um desses itens e digitar no campo anuncio em seguida clique no botão “consultar”.
2- Como faço para anunciar no cuiabaencontraki.com.br?
Clique no link anuncie que fica no lado direito da tela na parte superior. Irá abrir uma tela onde mostra os tipos de planos que temos, logo abaixo você tem dois links: “QUERO A VISITA DE UM VENDEDOR” OU “QUERO ANUNCIAR”.
Se optar pela visita do vendedor clique neste link que irá abrir a tela onde é necessário preencher o formulário com os dados solicitados para que possamos encaminhar um de nossos vendedores.
Caso opte por você mesmo fazer o anuncio clique em “Quero anunciar” abrirá uma tela onde mostra os planos e também onde você deverá fazer seu cadastro, é necessário preencher as três guias que são “Dados; Anuncio; Boleto.
ATENÇÃO: OS CAMPOS COM (*) O PREENCHIMENTO É OBRIGATÓRIO.
Ao terminar o preenchimento dos dados clique no botão continuar , irá para o próximo passo o “ANUNCIO” nesta parte você irá definir qual o plano que lhe convém, colocará o título a categoria as informações que você deseja que apareça e o telefone, esse campos são obrigatórios o preenchimento. Caso você queira colocar uma imagem em seu anuncio é importante colocar o nome exato do arquivo juntamente com a extensão como por exemplo: “foto.jpg” . Também você pode colocar palavras chave que você acha importante para a pesquisa do seu anuncio.
Pronto você está na reta final clique em continuar, passará para o 3º e último passo a inclusão da imagem e a geração do boleto. Para incluir a imagem clique em procurar e localize em seu computador a imagem desejada, em seguida clique em continuar irá abrir uma tela onde você irá gerar seu boleto bancário.
Seu anúncio será colocado no ar assim que você informar o pagamento através de nosso e-mail .
Envie o comprovante de pagamento para cobranca@cuiabaencontraki.com.br.
Não se esqueça de clicar no botão finalizar irá aparecer à mensagem “seu anuncio foi gerado com sucesso.”
3- Como faço par enviar uma imagem de ponto turistíco que visitei para homenagear a Cidade?
No canto superior direito da tela clique no link “Mande sua imagem”.
Preencha o cadastro clique em continuar em seguida localize a imagem em seu computador e clique no botão enviar.
Faça do Cuiabá Encontraki! a sua página inicial 
Adicione o Cuiabá Encontraki! aos seus favoritos 
Faça parte da nossa comunidade 
