[asp] smsjes ontvangen en opslaan via http forwarding - Softwareontwikkeling

dinsdag 23 november 2004 12:36

Acties:

Verwijderd

Topicstarter

Hallo,

Ik ben bezig om smsjes te ontvangen op onze eigen webpage. De bedoeling is dat www.intellisoftware.co.uk de smsjes forward naar http://www.catalert.zenwebhosting.com/admin/RASS/showdb.asp

hetgene wat ze forwarden is:
FromNumber = Request.Form("from")
SMSText = Request.Form("text")

en deze wil ik dus in een database zetten en weergeven, maar ik krijg het echt niet voor elkaar.. het gaat om een acces database. Ik kan hem weer geven, maar ik krijg de smsjes er niet in. Ik moet er wel bij zeggen, ik heb totaal geen kennis van ASP en zit nu al 3 dagen te zoeken... en volgens mij moet het zoiets zijn als:

FromNumber = Request.Form("from")
SMSText = Request.Form("text")
SQL_query="INSERT INTO table (MobileNumber, TextMessage) VALUES ('" & FromNumber & "','" & SMSText & "');"

maar dat werkt dus niet, voor de duidelijkheid, dit is de complete code
<html><head><TITLE>RASS</TITLE></head><body>
<%

'If the session variable is False or does not exsist then redirect the user to the unauthorised user page
'If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
'Redirect to unathorised user page
' Response.Redirect"../unauthorised_user_page.htm"
'End If

table = "sms"
sort = request.querystring("sort")
accessDB = server.mappath("sms.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"

'look for new messages and store them in the database
FromNumber = Request.Form("from")
SMSText = Request.Form("text")
SQL_query="INSERT INTO table (MobileNumber, TextMessage) VALUES ('" & FromNumber & "','" & SMSText & "');"

if sort = "" then
SQL = "SELECT * FROM " & table
else
SQL = "SELECT * FROM " & table &" ORDER BY " & sort
end if

'fill empty content
showblank=" "
shownull=" "

Dim objCon
Set objCon = Server.CreateObject ( "ADODB.Connection" )
objCon.open strCon

set objRec=objCon.execute(SQL)

'Show message when table is empty
If objRec.eof then
response.write "Nothing is stolen..<br>"
Call CloseDB
response.end
end if

response.write "Gesorteerd op: " & sort & vbcrlf
response.write "<table border='1'><tr>" & vbcrlf
for each tabel in objRec.fields
response.write "<td><b>"
response.write "<a href='showdb.asp?sort=" & tabel.name & "'>" & tabel.name & "</a>" & vbcrlf
response.write "</b></td>" & vbcrlf
next
response.write "</tr>" & vbcrlf

'show database
dbdata=objRec.getrows
Call CloseDB

x=ubound(dbdata,1)
y=ubound(dbdata,2)
FOR RijTeller= 0 TO y
response.write "<tr>" & vbcrlf
FOR KolomTeller=0 to x
z=dbdata(KolomTeller,RijTeller)
if isnull(z) then
z=shownull
end if

if trim(z)="" then
z=showblank
end if

response.write "<td valign=top>"
response.write z
response.write "</td>" & vbcrlf
NEXT
response.write "</tr>" & vbcrlf
NEXT
response.write "</table>"
%>
</body></html>
<%

SUB CloseDB
objRec.close
set objRec=nothing
objCon.close
set objCon=nothing
END SUB
%>

Hoop dat iemand me kan helpen... volgens mij moet het echt iets heel simpels zijn, maar ik kom er niet echt uit..

dinsdag 23 november 2004 12:39

Acties:

sig69

je fout zit hier denk ik:

code:

1	SQL_query="INSERT INTO table (MobileNumber, TextMessage) VALUES ('" & FromNumber & "','" & SMSText & "');"

Daarbovden declareer je de variable table als "sms", dus moet het zoiets worden:

code:

1	SQL_query="INSERT INTO " & table & " (MobileNumber, TextMessage) VALUES ('" & FromNumber & "','" & SMSText & "');"

Roomba E5 te koop

dinsdag 23 november 2004 14:25

Acties:

Verwijderd

Topicstarter

Helaas dat was het ook niet. Maar heb het even anders aangepakt. Dit script was namelijk om nieuwe berichten toe te voegen en om ze allemaal te laten zien. Ik ben nu bezig met alleen nieuwe berichten (te tonen) en in de database op te slaan.

Voor de duidelijkheid. De database heet sms.mdb, staat in dezelfde directory. De tabel heet ook sms en bestaat uit 2 kolommen, de from en de textmessage kollom. Hiervoor heb ik nu de volgende code:

<%
accessDB = server.mappath("sms.mdb")
strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon = strCon & accessDB & ";"

'Grab the values, and store them into variables
Dim FromValue
Dim MessageValue

FromValue = Request.Form("from")
MessageValue = Request.Form("text")

'Clean up the text for the database
FromValue = FromValue.Replace("'", "''")
MessageValue = MessageValue.Replace("'", "''")

'Create a connection to your database, and execute a command to insert the values

Set objConn = Server.CreateObject("ADODB.Connection")
Dim SQL

SQL = "INSERT INTO sms (From, TextMessage) VALUES ('" & FromValue & "', '" & MessageValue & "')"

objConn.Open strCon
objConn.Execute(SQL)
%>

maar als ik ga naar http://www.catalert.zenwebhosting.com/admin/RASS/showdb.asp
krijg ik de volgende fout:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/RASS/showdb.asp, line 14

dinsdag 23 november 2004 15:15

Acties:

Creepy

Tactical Espionage Splatterer

En nu? Nu mogen wij voor je gaan debuggen? Bekijk P&W FAQ - Leer **** debuggen!! eens.
En tip: gebruik de code tags eens, nu is je code regelijk onleesbaar
Lees ook even P&W FAQ - Het FAQ/Beleid topic door.
Mocht je nu nog steeds een probleem hebben, en zelf al wat hebben geprobeerd (meld ook even WAT je hebt geprobeerd) dan nodig ik je uit een nieuw topic te openen.

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney