Jag använder mig av yo.se och får inte sms:et som jag skickar att synas på min hemsida? Någon som vet hur jag skal göra?
<%
' Detta skript anropas av yo när någon anropar din SMS-tjänst.
' tex http://www.doman.se/min-sida.asp?sms=test+123&nr=0701234567
' Allting som ekas ut kommer att hamna i ett svar-sms. Så det är viktigt att skriptet
' inte genererar några (interna) felmeddelanden.
nr = request("nr")
sms = request("sms")
' Nu kan du göra vad du vill med det inkomna SMS:et.
' Variabeln nr innehåller numret från den som har skickats SMS:et
' och variabeln sms innehåller själva SMS-texten
' Skicka tillbaka svar.
' Om inget svar skickas inom 30 sekunder skickar Yo.se automatiskt ut ett:
' "Tack för din beställning"-SMS.
Det borde väl bara vara att lagra värdet i variabeln sms i en tabell i en databas eller i en textfil, och sedan hämta det därifrån på sidan där du vill visa SMS-texterna?
<%
Session.LCID = 1053
'Detta script är gjort av Edward Jewson
'och får användas fritt för eget bruk
'inte för försäljning och endast
'om den här texten står kvar
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("script/sms/sms.mdb")
sms = Request.QueryString("sms")
nr = cStr(request.querystring("nr"))
datum = now()
response.write "Upphärad Live"
Connect.Execute("INSERT INTO sms (sms,nr,datum) values ('"& sms &"',"& nr &",#"& datum &"#)")
Connect.close
Set Connect = Nothing
%>
<%
Session.LCID = 1053
'Detta script är gjort av Edward Jewson
'och får användas fritt för eget bruk
'inte för försäljning och endast
'om den här texten står kvar
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("script/sms/sms.mdb")
sms = Request.QueryString("sms")
nr = cStr(request.querystring("nr"))
datum = now()
response.write "Tack för sms:et Upphärads IS"
Connect.Execute("INSERT INTO sms (sms,nr,datum) values ('"& sms &"',"& nr &",#"& datum &"#)")
Connect.close
Set Connect = Nothing
%>
<%
'Detta script är gjort av Edward Jewson
'och får användas fritt för eget bruk
'inte för försäljning och endast
'om den här texten står kvar
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("script/sms/sms.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 10 * From sms order by datum desc"
RecSet.open SQL, Connect, 1, 3%>
<%=RecSet("datum")%><br>Från: <%=RecSet("nr")%><br>
Inlägg: <br>
<%=RecSet("sms")%>
<% RecSet.movenext
'loop
RecSet.close
Connect.close
Set RecSet = Nothing
Set Connect = Nothing%>