sms skickas inte när kommentar är sparad

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

<!-- #include virtual="/include/dbconn.asp" -->
<!-- #include virtual="/include/functions.asp" -->
<!-- #include virtual="/include/variabler.asp" -->
<%
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
%>