webForumDet fria alternativet

Hur får jag ut sms:et på hemsidan?

ASP

27 svar · 1 427 visningar · startad av appel_79

Medlem sedan maj 200531 inlägg
Frågan#1

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.

response.write "Tack för ditt SMS."
%>

Medlem sedan juni 200032 967 inlägg
#2

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?

Medlem sedan maj 200531 inlägg
#3

ok, och hur skriver man det?

Medlem sedan maj 200531 inlägg
#4

Jag använder mig av denna kod nu, men får det inte att funka för det:
<%

'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%>

Jag har en databas som jag fått, men där läggs inget in?
Vad kan vara felet?

Medlem sedan apr. 200522 inlägg
#5

det där scriptet hämtar datan från en databas. vilket script använder du för att lägga in data?

Medlem sedan maj 200531 inlägg
#6

Ok, det har jag inte, måste ha missat att få med det från killen som skickade det till mig. Någon som vet vad jag kan använda?

Medlem sedan maj 200531 inlägg
#7

Nu har jag fått denna kod, men får detta felmeddelande ändå?
Vad kan det vara som är fel?

<%

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

%>

Får detta felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/sms.asp, line 60

Medlem sedan maj 200531 inlägg
#8

Ingen som kan hjälpa mig med detta?

Medlem sedan juni 200032 967 inlägg
#9

Skriv ut den färdiga SQL-frågan med response.write istället för att exekvera den. Får man gissa på att variabeln nr inte har något värde?

Medlem sedan maj 200531 inlägg
#10

Hur menar du?

Medlem sedan juni 200032 967 inlägg
#11

Vi börjar så här då:
Hur gör du när du testar?
Hur anropar du scriptet?

F.ö. : använd [kod]-taggar när du postar kod.

Medlem sedan mars 20023 686 inlägg
#12

voi perkele!

http://www.aspsidan.se/downloadScript.asp?fId=167

njut och var glad :e

Medlem sedan maj 200531 inlägg
#13

Jag använder mig av den här:

<%

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

%>
Medlem sedan juni 200032 967 inlägg
#14

Vi kan inte hjälpa dig om du inte hjälper oss, till exempel genom att svara på våra frågor.

Hur testar du scriptet? Skickar du SMS till det, eller anropar du det i webbläsaren? Skickar du med alla querystrings som scriptet förväntar sig?

Medlem sedan maj 200531 inlägg
#15

medialabs skrev:

voi perkele!

http://www.aspsidan.se/downloadScript.asp?fId=167

njut och var glad :e

Jag skall inte skicka sms, jag skall ta imot och visa det på en sida.

Medlem sedan maj 200531 inlägg
#16

anropar det i webbläsaren

Medlem sedan mars 20023 686 inlägg
#17

appel_79:

Ladda ned scriptet som jág länkade till, den fungerar, "Out of the box", har testat den själv och den fungerar klockrent.

Medlem sedan juni 200032 967 inlägg
#18

Ok. Hoppas någon annan kan hjälpa dig.

Medlem sedan maj 200531 inlägg
#19

Detta är all kod jag har:

<%

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%>
Medlem sedan maj 200531 inlägg
#20

medialabs skrev:

appel_79:

Ladda ned scriptet som jág länkade till, den fungerar, "Out of the box", har testat den själv och den fungerar klockrent.

Så med detta script så kan jag ta imot meddeland på min sida med?

272 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)
131 ms — ändringar (db)