Hola a todos y gracias de antemano, mi problema aunque probablemente sea simple de resolver se ve agrabado por mi completo desconocimiento de asp.
Os cuento tengo un cliente que tiene implementado en el area administrativa una aplicacion para mandar 1 SMS comun a los moviles que seleccione de la base de datos y ahora ha cambiado de provehedor de mensajes de texto a moviles por uno mas economico, la web esta completamente escrita en asp y ahora hay que cambiar la porcion de codigo por la del nuevo provehedor de SMS.
La estructura es muy simple:
-Una pagina 1: con el formulario donde se escribe el mensaje a mandar con un select box con los nombres de los grupos y del que solo se elije un grupo un boton send que te envia a una nueva pagina...
-Pagina 2: en la que muestra una lista completa del grupo seleccionado y en la que seleccionas mediante checkbox al usuario o los usuarios a los que iran el mensaje de texto escrito, un boton send que te lleva a...
-Pagina 3: que es la pagina donde se procesa el formulario con los numeros de telefonos.
Este es el codigo con la vieja compañia de sms y que funciona la compañia es "esendex"
<!-- #INCLUDE FILE="Includes/Connect.asp" -->
<!-- #INCLUDE FILE="Includes/Security1.asp" -->
<HTML>
<HEAD>
<TITLE>Sending Text Messages</TITLE>
<link rel=stylesheet href="mipaginadeestilos.css" type="text/css">
</HEAD>
<BODY>
<div align="center">
<!-- #INCLUDE FILE="Includes/SecurityShow.asp" -->
<table cellspacing="0" cellpadding="3" class="usual">
<tr>
<td class="admintitle">
Sending Text Messages
</td>
<td class="adminsubtitle" name="finished" id="finished" style="visibility:'hidden';">
Finished
</td>
</tr>
<tr>
<td class="adminsubtitle" colspan="2">
<a class="top" href="Admin.asp?SK=<% = strSecurityKey %>" title="Click here to go back to the main admin page">Back To Admin Page</a><br>
When all text messages have been sent that can be sent, a report will follow below:
</td>
</tr>
</table>
<%
' Response.Flush
' Server.ScriptTimeout = 9000
Dim p
' For p = 1 to Request.Form.Count
' Response.Write Request.Form.Key(p) & " " & Request.Form.Item(p) & "<br>"
' Next
Dim arrTextIDs()
ReDim arrTextIDs(1,Request.Form("counter"))
' Dim nTickedBoxes
Dim strFormFieldName
For p = 1 to Request.Form("counter")
strFormFieldName = "TextIDs" & p
If not IsEmpty(Request.Form(strFormFieldName)) Then
' nTickedBoxes = nTickedBoxes + 1
arrTextIDs(0,p) = strFormFieldName
arrTextIDs(1,p) = Request.Form(strFormFieldName).Item
End If
Next
' For p = 1 to Request.Form("counter")
' Response.Write arrTextIDs(0,p) & " " & arrTextIDs(1,p) & "<br>"
' Next
' Response.Write Request.Form & "<br>"
' Response.Write Request.Form("EmailIDs") & "<br>"
' Response.Write Request.Form("TextIDs") & "<br>"
Dim rsRecentTextMessagesLikeThis
' Response.Write "Text: " & bTextMessagesToSend & "<br>"
' Response.Write "Email: " & bEmailsToSend & "<br>"
If Request.Form("message") <> "" Then %>
<SCRIPT LANGUAGE="vbscript" RUNAT="SERVER" SRC="includes/com.esendex.sdk.asp.vbs"></SCRIPT>
<% Dim service
Set service = New EsendexSendService
service.Username = "mi viejo nombre de usuario"
service.Password = "mi viejo pasword de usuario"
service.Account = "vieja cuenta de cliente"
%>
<table cellspacing="0" cellpadding="3" class="usual">
<tr>
<td class="adminsubtitle" colspan="2">
The text messages are being sent. The Following Message IDs apply:<br>
</td>
</tr>
<tr>
<td class="adminsubtitle">
Telephone Number
</td>
<td class="adminsubtitle">
esendex Message ID
</td>
</tr>
<%
Dim objParam
Dim strEsendexID
For p = 1 to Request.Form("counter")
strEsendexID = ""
If not IsEmpty(arrTextIDs(1,p)) Then
Set objParam = objCommand.CreateParameter ("@strToTelephone", adVarWChar, adParamInput, 20, arrTextIDs(1,p))
objCommand.Parameters.Append objParam
Set objParam = objCommand.CreateParameter ("@nUserID", adSmallInt, adParamInput, , rsUserDetails("ID"))
objCommand.Parameters.Append objParam
Set objParam = objCommand.CreateParameter ("@nUserSecurityLevelID", adUnsignedTinyInt, adParamInput, , rsUserDetails("SecurityLevelID"))
objCommand.Parameters.Append objParam
Set objParam = objCommand.CreateParameter ("@nTextMessageID", adInteger, adParamInput, , Request.Form("messageID"))
objCommand.Parameters.Append objParam
objCommand.CommandText = "ssp_GetTextMessageIndividualRecent10Seconds"
Set rsRecentTextMessagesLikeThis = objCommand.Execute
' Response.Write "<tr><td colspan=2>I'm appending " & objCommand.Parameters.Count & " parameters " & p & "</td></tr>"
If rsRecentTextMessagesLikeThis("Count") = 0 Then
strEsendexID = CStr(service.SendMessageFull(Request.Form("origina tor"), arrTextIDs(1,p), Request.Form("message"), "Text", 1))
Set objParam = objCommand.CreateParameter ("@strEsendexID", adVarWChar, adParamInput, 40, strEsendexID)
objCommand.Parameters.Append objParam
objCommand.CommandText = "ssp_AddTextMessageIndividual"
objCommand.Execute
objCommand.Parameters.Delete "@strEsendexID"
Else
' Response.Write "This poxy thing tried to double-write the record!"
End If
objCommand.Parameters.Delete "@nTextMessageID"
objCommand.Parameters.Delete "@nUserSecurityLevelID"
objCommand.Parameters.Delete "@nUserID"
objCommand.Parameters.Delete "@strToTelephone"
%>
<tr>
<td class="adminstandard">
<% = arrTextIDs(1,p) %>
</td>
<td class="adminstandard">
<% = strEsendexID %>
</td>
</tr>
<% End If
Next
Dim strAccountState
' strAccountState = service.GetAccountState %>
<tr>
<td class="adminstandard" colspan="2">
<b>Account State:</b><br>
<%' = strAccountState %>
</td>
</tr>
</table>
<%
End If
%>
<script>
finished.style.visibility='visible';
finished.style.backgroundColor='yellow';
</script>
</div>
</BODY>
</HTML>
<%
function noBackSpaces(strStringToReplace)
if isNull(strStringToReplace) then
noBackSpaces = ""
else
noBackSpaces = Replace(strStringToReplace, chr(13), "</p><p>")
end if
end function
%>
<!-- #INCLUDE FILE="Includes/Security2.asp" -->
Este es el codigo que me ha facilitado la nueva compañia para implementar y que provandolo tal cual con el pasword y demas funciona (sin estar implementado en la web claro). hay pongo un link a la compañia donde hay unos ejemplos de como implementarla a la web http://www.txtlocal.co.uk/api/
lo que me gustaria es saber es como hago para que esto funcione?
<%
info = 1
test = 1
message = "aqui debe de ir el mensaje de texto a mandar"
message = Server.urlencode(message) 'encode special characters (e.g. £,& etc)
from = "nombre que yo quiera o mi mobil"
address = "https://www.txtlocal.com/sendsmspost.php"
uname = "mi nombre de usuario"
pword = "mi pasword de usuario"
selectednums = "aqui los numeros de telefonos mobiles de los usuarios"
url = address & "?uname=" & uname & "&pword=" & pword & "&message=" & message & "&from=" & from & "&selectednums=" & selectednums & "&info=" & info & "&test=" & test
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST", url, false
xmlhttp.send ""
msg = xmlhttp.responseText
response.write(msg)
set xmlhttp = nothing
%>
Alguien me puede ayudar?
