--- title: "sms skickas inte när kommentar är sparad" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/177704-sms-skickas-inte-när-kommentar-är-sparad" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2009-03-27T14:00:40.000Z" updated: "2009-03-27T14:39:34.000Z" replies: 9 views: 574 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/177704-sms-skickas-inte-när-kommentar-är-sparad" --- # sms skickas inte när kommentar är sparad ## #1 — WebbisNet, 2009-03-27T14:00Z Jag vill att ett sms går ut till ägaren av bloggen när någon har kommenterat den men det är bara kommentaren som sparas, inget sms skickas ``` <% Set Var = Request.ServerVariables varInlaggID = FriendlySQL(Request.Form ("txtInlaggID")) varAgare = FriendlySQL(Request.Form ("txtAgare")) varSkickatAv = FriendlySQL(Session("userID")) varInlagg = FriendlySQL(Request.Form ("txtSvara")) errMess="Du kan inte posta ett tomt inlägg" varInsantDate = Date() varInsantTime = Time() if varInlagg <> "" then SET objConn = connect() diary_reply = "INSERT INTO tblUsers_Diary_reply" diary_reply = diary_reply & "(id,agare,skickatAv,inlagg,insantDate,insantTime) " diary_reply = diary_reply & "VALUES('"& varInlaggID &"','"& varAgare &"','"& varSkickatAv &"','"& varInlagg &"','"& varInsantDate &"','"& varInsantTime &"')" objConn.Execute diary_reply 'objConn.Execute("Update tblUsers SET poang = poang+0.4 WHERE userID= " & UserID &"") response.redirect "/diary/read.asp?ID="&varInlaggID&"&agare="&varAgare&"&uid="&varSkickatAv else response.redirect "/diary/read.asp?ID="&varInlaggID&"&agare="&varAgare&"&uid="&varSkickatAv&"&err=1" end if mosms_username = "********" mosms_password = "********" mosms_url = "http://www.mosms.com/se/sms-send.php" blogg=objConn.Execute("select rubrik, agare from tblUsers_diary where agare="&varAgare) nr=objConn.Execute("select mobil, userID from tblUsers where userID="&varAgare) ' Sätt telefonnummer mosms_number = nr("mobil") ' Sätt vilken typ av SMS som skall skickas. mosms_type = "text" ' Sätt textmeddelandet som skall skickas mosms_data = Server.URLEncode("Du har fått en ny kommentar på bloggen "&blogg("rubrik")) ' Anropa MO-SMS och skicka SMS:et mosms_url = mosms_url & "?username=" & mosms_username & "&password=" & mosms_password & _ "&nr=" & mosms_number & "&type=" & mosms_type & "&data=" & mosms_data ' Skapa XmlHttp för att anropa URL Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "GET", mosms_url, False ' Skicka begäran till XmlHttp objXmlHttp.send result = objXmlHttp.responseText if result <> "0" Then ' Fel! response.write "Fel vid MO-SMS-anrop: " & result Else ' Inget fel response.write "SMS skickat korrekt!" End If ' Ta bort objekt Set objXmlHttp = Nothing %> ``` Permalänk: https://www.webforum.nu/p/177704 ## #2 — voigtann1, 2009-03-27T14:02Z 1\. Får du något felmeddelande? 2\. vad blir: mosms_url 3\. Om du inte får något felmeddelande så kanske man skall kontakta MO-SMS? Permalänk: https://www.webforum.nu/p/2176662 ## #3 — WebbisNet, 2009-03-27T14:07Z jag får inget felmeddelande när jag skriver in mina uppgifter på så får jag sms men när jag använder koden så skickas inget har jag skrivit fel nånstans i mina databaskopplingar? Permalänk: https://www.webforum.nu/p/2176663 ## #4 — voigtann1, 2009-03-27T14:10Z du skriver ju helt galet i din kod, du kör ju en redirect efter du har öppnat databasen: ``` response.redirect "/diary/read.asp?ID="&varInlaggID&"&agare="&varAgare&"&uid="&varSkickatAv&"&err=1" ``` ... den kommer aldrig att köra koden... allt efter din if fråga körs aldrig. Om du kommer använda dig av SMS utskick till mer än detta, flytta ut det till en funktion, om den lyckas skicka = sätt funktionen till true, annars false exempelvis. Permalänk: https://www.webforum.nu/p/2176664 ## #5 — WebbisNet, 2009-03-27T14:14Z där var felet ja, hur "#¤"DRR kunde jag missa det, kan inte tänka efter en vecka på jobbet...hjärnan har kopplat av TACK Permalänk: https://www.webforum.nu/p/2176665 ## #6 — WebbisNet, 2009-03-27T14:15Z > **[voigtann1 skrev:](https://www.webforum.nu/p/1461806)** > > du skriver ju helt galet i din kod, du kör ju en redirect efter du har öppnat databasen: > > > ``` > response.redirect "/diary/read.asp?ID="&varInlaggID&"&agare="&varAgare&"&uid="&varSkickatAv&"&err=1" > ``` > > ... den kommer aldrig att köra koden... > > allt efter din if fråga körs aldrig. > > Om du kommer använda dig av SMS utskick till mer än detta, flytta ut det till en funktion, om den lyckas skicka = sätt funktionen till true, annars false exempelvis. hade bara tänkt att använda det till detta Permalänk: https://www.webforum.nu/p/2176666 ## #7 — voigtann1, 2009-03-27T14:21Z Din SQL fråga borde nog också gå som en INNER JOIN om det är så att man bara kan ha en tblUsers_diary, känns lite onödigt att göra två SQL frågor för det. Sen har du bland annat: ``` Set Var = Request.ServerVariables ``` Som aldrig körs. Permalänk: https://www.webforum.nu/p/2176667 ## #8 — WebbisNet, 2009-03-27T14:33Z är inte så bra på att skriva egna inne joins, skulle du vilja skriva hur du skulle vilja ha frågan? tror att detta kommer att bli en uppskattad tjänst, det är den andra som enbart jag erbjuder mina medlemmar........om inte Wf erbjuder att skicka riktig e-post till andra medlemmar förstås :-) Permalänk: https://www.webforum.nu/p/2176669 ## #9 — voigtann1, 2009-03-27T14:38Z det är nog dags att du läser dig på inner joins då... Du skriver inte vilken databas du kör mot men: ``` SELECT d.rubrik, u.mobil FROM tblUser_diary d INNER JOIN tblUsers u ON u.UserId = d.agare AND u.UserId = " & varAgare ``` Permalänk: https://www.webforum.nu/p/2176671 ## #10 — WebbisNet, 2009-03-27T14:39Z kör med MySQL , får läsa på lite om joins så det sitter tack så mycket Permalänk: https://www.webforum.nu/p/2176672 --- Tråden på webben: https://www.webforum.nu/amne/asp/177704-sms-skickas-inte-när-kommentar-är-sparad