salve a tutti ho un problema con l'invio di sms tramite il servizio che offre aruba.
potete controllare l'errore a questo indirizzo:
http://www.boxofficeclub.it/targetpr...nal/smsoci.asp
aruba mi ha dato un nuovo file relativo all'invio da sovrasicrivere a quello che avevo precedentemente. NON FUNZIONA mi dà un errore alla riga 97 qualcuno saprebbe aiutarmi????
io sono veraemnte scarso con asp
il codice che mi ha dato aruba è il seguente:
<html>
<head>
<title>SmS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css"><!--
.testobl12 { color: #007198; font-style: bold; font-size: 12px; line-height: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; text-align: left }
.testobl11 { color: #007198; font-style: bold; font-size: 11px; line-height: 14px; font-family: Arial, Helvetica, sans-serif; text-align: left }
.testoblch12 { color: #5aaed9; font-style: bold; font-size: 12px; line-height: 14px; font-family: Verdana,Arial, Helvetica, sans-serif; text-align: left }
.testobl12 a:link { color: #007198; text-decoration: none}
.testobl12 a:visited { color: #007198; text-decoration: none}
.testobl12 a:hover { color: #007198; text-decoration: none}
.testobl11 a:link { color: #007198; text-decoration: none}
.testobl11 a:visited { color: #007198; text-decoration: none}
.testobl11 a:hover { color: #007198; text-decoration: none}
.lau { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; text-decoration: none; color: #000000; text-align: justify}
--></style>
<SCRIPT LANGUAGE="JavaScript" src="FileMain.js"></SCRIPT>
</head>
<body bgColor="#ffffff" leftMargin="0" topMargin="0" marginheight="0" marginwidth="0" OnUnload="DeleteFile()">
<%
smstipodest = Session("smstipodest")
smsnumdest = Session("smsnumdest")
smsprefcell = Session("smsprefcell")
smsdestinatario = Session("smsdestinatario")
smscosto = Session("smscosto")
smsshowdest = Session("smsshowdest")
smstesto = Session("smstesto")
smsmittente = Session("smsmittente")
rubricaerrore = Session("rubricaerrore")
if isnull(rubricaerrore) = true or rubricaerrore = "" then
rubricaerrore = 0
End if
erroremsg = Session("erroremsg")
affiliato = Session("affiliato")
CancEffettuato = Request("CancEffettuato")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
PathRedirect = "http://sms.aruba.it/Secure_inviasmsdomini.asp"
TipoOperazione = Request("TipoOperazione")
EsitoInvio = Request("EsitoInvio")
RandID = Request("RandID")
Path = Server.MapPath(RandID & ".smstarget.txt")
'###############################
'### Nel caso chiuda il browser
'##############################
%>
<Script Language="JavaScript">
var now = new Date()
var CancFile = ""
var CancEffettuato = "<%=CancEffettuato%>"
function DeleteFile()
{
if (CancFile == "" && CancEffettuato == "")
{
window.open("Rubrica_Pop.asp?TipoOperazione=CANCFI LE&RandID=<%=RandID%>&CancEffettuato=OK","finestra ","toolbar=no,location=no,directories=no,status=no ,menubar=no,scrollbars=no,resizable=no,width=20,he ight=20,top=200,left=450")
}
}
</Script>
<%
If (TipoOperazione = "CANCFILE") then
if (FSO.FileExists(Path)) = True then
FSO.DeleteFile(Path)
End if
%>
<Script language="javascript">
window.close();
</Script>
<%
End if
'#######################
'#######################
if rubricaerrore > 0 then
%>
<table width=100% border="0" cellspacing="0" cellpadding="0" Valign=top>
<tr><td height=30><font class="lau"></font></td></tr>
<tr><td height=30><font class="lau"></font></td></tr>
<tr><td align=center><font class="lau">Attenzione: si è verificato
un errore:
<%=erroremsg%></font></td></tr>
<tr><td height=30><font class="lau"></font></td></tr>
<tr><td align=center><a href="javascript:window.close();">[img]ImgRubrica/chiudi.gif[/img]
</td></tr>
</table>
<%
End if
stepCoockie = Request.Cookies(RandID)
if ((TipoOperazione = "UNO") and (stepCoockie = "1")) then
KeyMd5 = "50160ab7bdbef697aa891efc99dd8b6f"
IDCodSMS = 5037
'## CREO FILE
Set File = FSO.OpenTextFile(Path,8,true,tristateusedefault)
File.WriteLine(KeyMd5)
File.WriteLine(Now())
File.Close
Set File = Nothing
%>
<%
end if
if ((stepCoockie = "2") and (TipoOperazione <> "UNO")) then
%>
<%
'## CANCELLO IL FILE
FSO.DeleteFile(Path)
End if
Set FSO = Nothing
%>
</body>
</html>
ciao a tutti e grazie
Rispondi quotando
