FiveTech Support Forums

   @ 7,15 BUTTON "Test" OF oDlg; 
          SIZE 50,12; 
          ACTION MsgInfo( oActiveX:Do( "GetWindow" ) == oActiveX:hWnd )

#include "fivewin.ch"

Function Main()
   LOCAL loHyperlink := TOLEAuto():New( "Microsoft.XmlHttp" ) 
   //
   set default to "c:\YourSystem"
   use clientes new shared
   //
   do while .not. eof()
      if !empty(clientes->campo1)
         cURL :=        "http://www.SeuDominio.com.br/salva.asp"
         cURL := cURL + "?campo1="+clientes->campo1
         cURL := cURL + "&campo2="+clientes->campo2
         //
         loHyperlink:Open( "POST", cURL, .F. )
         loHyperlink:Send( "" )
         //
         MsgRun("Adicionei mais um")
      endif
      skip
   enddo
   //
   return nil

<%
    ' Codigo exemplo de salvamento de variaveis via HTTP GET
    ' podendo ou nao ser retornado apenas o valor inteiro. 
    '------------------------------------------------------------
    pos       = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder)& "\" & lcase(formaction))
    db_dir    = left(request.servervariables("path_translated"), pos-1 )
    db        = db_dir & ".\"

    ' Campos Recuperados
    campo1 = replace( request.QueryString("campo1"), "'", "''")
    campo2 = replace( request.QueryString("campo2"), "'", "''")

    set cnn= server.createobject("adodb.connection")
    cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ="& db &";"
    cnn.execute("INSERT INTO tabela(campo1,campo2)" & _
                          "VALUES ('"&_
                                   campo1&"','"&_
                                   campo2&"')" )
    Set cnn = Nothing 
    Set Mail = Nothing 
%>

http://www.SeuDominio.com.br/salva.asp?campo1=DadosNoCampo1&campo2=DadosNoCampo2