Avatar billede andersasp Nybegynder
08. februar 2010 - 10:38 Der er 6 kommentarer og
1 løsning

Hvordan kører jeg denne function

Hejsa,

Jeg har denne kodestump fra Mailchimp.com i ASP, men jeg er i tvivl om hvorledes jeg kører den??

Håber der er nogle som kan hjælpe!

'Define these variables.
Dim apikey
Dim listid
Dim MCURL

Function listSubscribe (strEmail, strFirstName, strLastName, strPhone)
    Dim resp
    Dim merge_vars
    Dim ParamArr

    Set merge_vars = Server.CreateObject("Scripting.Dictionary")
    With merge_vars
        .Add "OPTINIP", Request.ServerVariables("REMOTE_ADDR")
        .Add "double_optin", False
        .Add "FNAME", strFirstName
        .Add "LNAME", strLastName
        .Add "phone", strPhone
    End With

  'Function Reference: listSubscribe(string apikey, string id, string email_address, array merge_vars, string email_type, boolean double_optin, boolean update_existing, boolean replace_interests, boolean send_welcome)
  'NOTE THAT EMPTY VALUES DO NOT WORK WELL WITH THIS VERSION OF XLMRPC.ASP. BEST TO SEND EMPTY STRINGS.

    ParamArr = array(apikey,listid,strEmail,merge_vars,"",True,True,True,True)

    resp = xmlRPC(MCURL,"listSubscribe",ParamArr)
    'Uncomment below for Error Checking
    Response.Write(Session("xmltxt")&"<br>")
    Response.Write(Session("ServerResponseText")&"<br>")
    LGNListSubscribe = resp
End Function
Avatar billede keysersoze Guru
08. februar 2010 - 11:25 #1
Call listSubscribe("din@mail.dk, "Fornavn", "Efternavn", "01234567")
Avatar billede andersasp Nybegynder
08. februar 2010 - 11:38 #2
Tak for svar,

men jeg får en fejl i denne linje, med følgende kode:

Microsoft VBScript runtime  error '800a000d'
Type mismatch: 'xmlRPC'

resp = xmlRPC(MCURL,"listSubscribe",ParamArr) ??


er helt blank på hvad der går galt :(

<%

apikey            = "a2a05f234e818494f9d907e8980-us1"
listid            = "0d0e6eb50e"
MCURL            = "http://api.mailchimp.com/1.2/"


'Define these variables.
Dim apikey
Dim listid
Dim MCURL

Function listSubscribe (strEmail, strFirstName, strLastName, strPhone)
    Dim resp
    Dim merge_vars
    Dim ParamArr

    Set merge_vars = Server.CreateObject("Scripting.Dictionary")
    With merge_vars
        .Add "OPTINIP", Request.ServerVariables("REMOTE_ADDR")
        .Add "double_optin", False
        .Add "FNAME", strFirstName
        .Add "LNAME", strLastName
        .Add "phone", strPhone
    End With

  'Function Reference: listSubscribe(string apikey, string id, string email_address, array merge_vars, string email_type, boolean double_optin, boolean update_existing, boolean replace_interests, boolean send_welcome)
  'NOTE THAT EMPTY VALUES DO NOT WORK WELL WITH THIS VERSION OF XLMRPC.ASP. BEST TO SEND EMPTY STRINGS.

    ParamArr = array(apikey,listid,strEmail,merge_vars,"",True,True,True,True)

    resp = xmlRPC(MCURL,"listSubscribe",ParamArr)
    'Uncomment below for Error Checking
    Response.Write(Session("xmltxt")&"<br>")
    Response.Write(Session("ServerResponseText")&"<br>")
    LGNListSubscribe = resp
End Function



Call listSubscribe("anders@minmail.dk", "Anders", "efternavn", "51908521")


%>
Avatar billede keysersoze Guru
08. februar 2010 - 11:51 #3
xmlRPC er en anden funktion/objekt som ikke er i ovenstående kode - den skal med hvis din funktion ikke skal fejle.
Avatar billede andersasp Nybegynder
08. februar 2010 - 12:12 #4
Det forstår jeg desværre ikke helt?

jeg prøver at få denne her til at virke!

http://www.mailchimp.com/api/downloads/xml_rpc_listsubscribe.asps

Jeg er desværre helt blank!
Avatar billede keysersoze Guru
08. februar 2010 - 12:37 #5
Du mangler xmlRPC - mon ikke det så er den komponent der stilles til rådighed fra hjemmesiden eller en funktion de ikke har dokumenteret. xmlRPC er ikke dokumenteret i det link du henviser til.
Avatar billede andersasp Nybegynder
16. marts 2010 - 08:50 #6
Ok tak for det, beklager mit sene tilbagemelding!

Kan du ikke smide et svar, så kan jeg lige give dig nogle points!
Avatar billede keysersoze Guru
16. marts 2010 - 18:14 #7
det kan jeg i hvert fald :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester