postar imagens randomizadas no face

[razs 0]

Boas pessoal, precisava de fazer um script em asp que me permitisse utilizando uma task que quando corre-se o script ele fosse a uma pasta buscar uma imagem ao calhas e a posta-se no facebook, alguem já fez ou tem alguma ideia?

 

Muito obrigado

[xanburzum 169]

primeiro terás que fazer uma integraçao da API do facebook e depois um code usando o randomize para pegar as imagens da pasta específica

[razs 0]

o script em si é simples o pior e que nunca mexi nas api do face, tenho andado a fazer umas pesquisas mas so encontro com php :s

[xanburzum 169]

é tranquilo, tem uma seção no face para desenvolvedores, vai te ajudar

[razs 0]

já me inscrevi mas fiquei na mesma, nao percebo como faço isso...

[xanburzum 169]

tem um tutorial na pagina que ajuda.

[razs 0]

onde esta o toturial? nao encontro... :(

[razs 0]

fiz o script, como posto o resultado de urlpath(a imagen que ele escolheu da pasta) e textfb no face?

 

<%	
	dim myFileSys, Folder, FileName, urlpath, num, rsfb, conn, textfb, intGEN


	Set myFileSys = Server.CreateObject("Scripting.FileSystemObject")
	Set Folder = myFileSys.GetFolder(Server.MapPath("/ftpupload/imagens"))  
		
		
				sub gen_pass(max_num)

						 dim gen_array(62)
					   
						 gen_array(0) = "0"
						 gen_array(1) = "1"
						 gen_array(2) = "2"
						 gen_array(3) = "3"
						 gen_array(4) = "4"
						 gen_array(5) = "5"
						 gen_array(6) = "6"
						 gen_array(7) = "7"
						 gen_array(8) = "8"
						 gen_array(9) = "9"

						 Randomize
						 
						 do while len(output) < max_num
							  num = gen_array(Int((9 - 0 + 1) * Rnd + 0))
							  output = output + num
						 loop

						 gen_pass = output
						 intGEN = CInt("2")
				End sub
		
		
		
		
	
	
							sub radm
							
								call gen_pass(max_num)
								
								For each file in Folder.Files
												
									if num="" then
										num="0"
									else
										num=num+1
									end if

									if num=intGEN then
										FileName = file.name
									end if	
									
								next
							
							end sub	
	


			do while filename="" 
				call radm
			loop	
			
			urlpath = "/ftpupload/imagens/"&filename	
		
			response.write urlpath
		
		
		
	

			set conn = Server.CreateObject("ADODB.Connection")  
			conn.ConnectionString = "Driver={MYSQL ODBC 5.1 DRIVER};Server=localhost;Port=3306;Database=fbposter;Uid=root;Pwd=1234;" 
			conn.Open() 

			Set rsfb = conn.Execute("Select * From facetext ORDER BY RAND() LIMIT 0,1")
					
			if rsfb.eof then
			
				textfb=rsfb.text
					
			end if
	 	
	
Set myFileSys = nothing
set folder = nothing
set FileName = nothing
set urlpath = nothing
set num = nothing
set rsfb = nothing
set textfb = nothing
set intGEN = nothing
conn.close
%>

[xanburzum 169]

dá uma olhada na parte de developer do face

[razs 0]

nao tenho feito outra coisa xan, inclusive o graph explorer mas continuo sem perceber como postar o resultado do meu codigo no face :(