Note that there are some explanatory texts on larger screens.

plurals
  1. POFacebook post with asp
    primarykey
    data
    text
    <p>Can someone help me set the Facebook API to post on wall text, image and link using asp classic?</p> <p>The random script is easy but I can't seem to set the API. Read several doc in Facebook developer but its all for PHP.</p> <p>This is my script, how can I post the image and text to Facebook?</p> <pre class="lang-vbs prettyprint-override"><code>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) &lt; 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/"&amp;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 </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload