sto realizzando un applicazione che per l'invio di sms
ho sottoscritto un abbonamento con mobyt per i pacchetti sms.
Ho ricevuto dei file che utilizzano il componente asptear per l'invio al gateway del sms.
lo script è questo:ma alla prova ottengo in locale impossibile creare aspteamcodice:<% 'Esempio di script asp per inviare messaggi sms tramite il gateway di Widestore 'Creazione del componente ASPtear Const Request_POST = 1 Const Request_GET = 2 Dim xobj, strPostData, strRetVal Set xobj = CreateObject("SOFTWING.ASPtear") Dim rcpt, from, testo Dim usr, pass, sDigest, ticket 'Si catturano i valori postati dal form rcpt = Request.Form("NumTel") from = Request.Form("Mitt") testo = Request.Form("Data") usr = Request.Form("UserName") 'Si setta la password e si prepara il ticket da presentare al server 'PASSWORD va sostituita con la password relativa all'utente pass = "7excabct" ticket = usr & "TEXT" & rcpt & from & testo & pass sDigest = md5(ticket) 'Si preparano i dati e viene eseguita la post al server 'La funzione Server.URLEncode serve a passare i parametri in modo corretto 'Le coppie parametro/valore sono inoltre separati da una '&' strPostData = "ticket=" & Server.URLEncode(sDigest) & "&operation=" & Server.URLEncode("TEXT") & "&rcpt=" & Server.URLEncode(rcpt) & "&password=" & Server.URLEncode(pass) & "&data=" & Server.URLEncode(testo) & "&id=" & Server.URLEncode(usr) & "&from=" & Server.URLEncode(from) strRetVal= xobj.Retrieve("http://smsweb.widhost.net/sms-gw/sendsmart",1,strPostData, "","") 'Stampa in rosso il risultato, se tutto è andato bene ritornerà una pagina con 'OK', 'in caso di errore 'KO' Response.Write "<font color=""red"">" & strRetVal & "</font>" & " " %> </BODY> </HTML>
su server aruba 2000 e 2003 errore del server
non conosco questo componente è di uso comune?o c'è qualcosa che non va nello script?

Rispondi quotando
