Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    mailing list con variabili "da" e "per" flash

    ciao a tutti

    invio delle variabili da flash: campo nome e campo email. Vorrei che una volta passate le variabili alla mia pagina asp verificasse (con recordSet) la presenza o meno di tali campi... e nel caso in cui siano presenti crei un .txt con una variabile al suo interno...cosi' da reimportare in flash questo txt che reciterà es. "email già presente" oppure "ok". in quest'ultimo caso scrive nel db.

    posto il codice

    <%@LANGUAGE="VBSCRIPT"%>


    <%
    Dim mail
    mail= Request.Form("mail")
    rs=server.createobject("adodb.recordset")
    rs.Source="SELECT email FROM tabella WHERE mail='"& mail &"'"
    rs.ActiveConnection = MM_conn_STRING
    if rs.recordcount > 0 then
    response.write(creo il file txt01)
    else
    response.write(creo il file txt02)
    end if
    rs.Close
    set rs=nothing


    set Command1 = Server.CreateObject("ADODB.Command")
    Command1.ActiveConnection = MM_conn_STRING
    Command1.CommandText = "INSERT INTO tabella (nome, mail) VALUES ('" & nome & "','" & mail & "')"

    Command1.CommandType = 1
    Command1.CommandTimeout = 0
    Command1.Prepared = true
    Command1.Execute()

    Set Command1 = Nothing

    %>


    se qualcuno può instradarmi..

  2. #2
    da flash immetti i campi, poi via pulsante carichi sulla root (tramite loadVariablesNum) la pagina che hai postato e avvii la visualizzazione del file...l'azione di "visualizzazzione" è bene metterla in un evento del tipo enterframe ma visto che carichi un file asp tanto vale scrivere la risposta alla interrogazione in questo modo


    if rs.recordcount > 0 then
    testo="non c'è"
    else
    testo="c'è"
    end if

    response.write "testo="&testo

    questo carica sulla root la variabile "testo" e se metti sulla root stessa un campo di testo dinamico di nome "testo" il messaggio apparirà proprio là...chiaro?

  3. #3
    non so se ho capito. form swf > invio post variabili a pagina Ok_mailing.asp > qualche fotogramma successivo all'invio mi rimporto la pagina Ok_mailin.asp

    loadVariablesNum("Ok_mailing.asp","this");

    (è all'interno della clip "form" _root.form ma carico con this)

    mi apre dalla pagina flash la pagina asp con errore interno del server

    aiuto!

  4. #4
    se lo carico nel livello 1 non mi apre più la pagina (_blank) ma nel campo in swf dinamico testo non scrive nulla

  5. #5
    prova loadvariables sulla _root invece che loadvariblesnum. se fai tutto sullo stesso fotogramma va bene uguale solo che la casella di testo si "popola" alla fine del caricamento della pagina asp.comincia facendo dei test sulla pagina in quanto se dà errore flash non te lo comunica e lo ignora.

  6. #6
    ho provato anche nella _root...nada...

  7. #7
    allora, prova a mettere sullo stage (possbilmente nella root) un capo di imput di nome "txtinput", un campo dinamico di nome txtdin e un pulsante, fai in modo che premendo il pulsante processi l'azione
    loadVariables("pagina.asp?variabile="_root.txtinpu t,_root)
    nella pagina asp processi la variabile e fai sì che ci sia un response.write "txtdin="&variabile e vedi se nel campo dinamico esce il valore della variabile

  8. #8
    l'errorer deve essere nel codice per forza...lo riposto

    recordset + command
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <%
    Dim MM_conn_STRING
    MM_cc_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database\data.mdb")
    %>

    <%
    Dim mail , rs , testo
    mail= Request.Form("mail")
    rs=server.createobject("adodb.recordset")
    rs.Source="SELECT mail FROM mailing_list WHERE mail='"& mail &"'"
    rs.ActiveConnection = MM_conn_STRING
    if rs.recordcount > 0 then
    testo="non c'è"
    else
    testo="c'è"
    end if

    response.write "testo="&testo

    end if
    rs.Close
    set rs=nothing

    Dim nome, mail
    nome= Request.Form("nome")
    mail= Request.Form("mail")
    set Command1 = Server.CreateObject("ADODB.Command")
    Command1.ActiveConnection = MM_conn_STRING
    Command1.CommandText = "INSERT INTO mailing_list (nome, mail) VALUES ('" & nome & "', '" & mail & "')"

    Command1.CommandType = 1
    Command1.CommandTimeout = 0
    Command1.Prepared = true
    Command1.Execute()

    Set Command1 = Nothing


    se vuoi mando il link al fla

  9. #9
    e infatti da flash le variabili non le puoi requestare come da form, usa trim(request("mail")) non request.form

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.