using ASP to send sms using a GSM modem?????

i do not need such a complex content or component.

i just need some simple code to send a SMS.... For example how to open the com port, set the AT command and so on......A very simple coding to send SMS.

thank you

On http://www.gsm-modem.de/gsm-modem-faq.html , http://www.gsm-modem.de/gsm-faq.html and http://www.gsm-modem.de/sms.html you will find some basic stuff.
Regards
Meff

i know those At command........ but wat i want is
in asp, how am i going to use all this command.......................

u got wat i mean?

Dear Friend,

What all you know is great about At commands and MsComm in Vb or Asp all you need to do is open the Port for Mscomm when ur device si connected and write those specifiv at commands through them.

This is all you need to do for ASP.

for details regarding commands
http://www.agarwalandsons.com/mobile


Regards
Vikas Agarwal

Hi Vikas Agarwal,

how come i still dont get answer that i want.............

where is the actual asp coding to send sms?

Dear,
What Vikas is trying to say is ...
you have to Develop one ActiveX component in VB , Which will open COM port to send AT Command for u...
this component can be eassly called by ur ASP page..

here is some lines of code in VB...

public Sub SendSMSMessage(String msg)

MSComm1.InputLen = 0
MSComm1.RThreshold = 5
MSComm1.CommPort = 3
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
MSComm1.Output = "AT + CMGF = 1" & vbCrLf
MSComm1.Output = "AT+CMGS=9872091812"
If MSComm1.InBufferCount Then
     if(StrConv(MSComm1.Input, vbUnicode)=">") then
                 MSComm1.Output =  Msg
     end if
End If
End Sub

write this fucntion on Active DLL and create its object in ASP...
like:
ASP Page :VB Script

Set obj=Server.CreateObject("MySMSSender.DLLForASP")
obj.SendSMSMessage "My First Message"

actually i still dont know how to use the above information.

Is there anyway i can d/l the Asp coding and start sending sms using the GMS modem in  a ACTIVE SERVER PAGE?

Hi thank for the coding....

but from the coding, which command is for input of the reciever number?

MSComm1.Output = "AT+CMGS=9872091812" -> is setting for the service center right?

so which command to enter the reciever hp number?

To Set Service Center Number the Command is :its not required sometime, if mobile is already configured ...
"AT+CMCA=\"982345676\"\r"
To send SMS
First Send :
"AT+CMGF=1\r" //Command to Put the Mobile in Text Mode
then
"AT+CMGS=\"9872091812\"\r"
then in response u get
">"
then only u can send Text Message.... of 160 character...
Last character must be char(26)

is it ok ?....

i paste the coding in my ASP page and i get this error.

Server object, ASP 0177 (0x800401F3)
Invalid class string

i think the error is saying abt this statement

->

Set MSComm1=Server.CreateObject("MSCOMMLib.MSComm")

wat should i do?

Are u sure the line number is same where error is coming...

if yes, then check do u have mscomm32.ocx file in system32 directory..
then check if it is register properly or not in OLE view Tool comes with V.Studio ...or Find entry in registry of "MSCOMMLib.MSComm" or
"MSCOMMLib.MSComm.1"

u can register ur ocx file by running command in run window
Regsvr32 mscomm32.ocx

i run the command , but object cannot be found.
i am using window XP

btw would it be better that u email me the ASP page with the coding.

My email address is whyalwaysme@catcha.com

Thank you

The MSComm control is a licensed product and is neither availabe on XP nor in ASP.

It is available in Professional Visual Basic 6.

There is an alternative FreeWare control at http://ourworld.compuserve.com/homepages/richard_grier/NETCommOCX.htm.

You'll still need the .ocx file though.

Dear u never mention before that u don't have Visual Basic installed,
but still u can copy this mxcomm32.ocx and register it on ur machine ...
it will work fine with ASP..

or BigRat has already given uthe alternative...

sorry for that... thanks but i am still trying....

hope to get ur advise again.

thank you

Hi virenderpratap,
what is Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'StrConv'
??????????

How to set the setting to  9600 baud, no parity, 8 data, and 1 stop bit.

Is it MSComm1.Settings = "9600,n,8,1"?

But my code cannot works.

<%

Sub Delay(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub

%>

<%

Dim MSComm1,strReceived

Set MSComm1=Server.CreateObject("MSCOMMLib.MSComm")

'MSComm1.Settings = 9600,n,8,1'
MSComm1.CommPort = 2
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1



MSComm1.PortOpen = Not MSComm1.PortOpen

If MSComm1.PortOpen Then

     response.write "Comm. Port " & MSComm1.CommPort & " Settings: " & MSComm1.Settings

Else
     response.write "Comport Problem "
End If


MSComm1.Output = "AT+CMGF=1" & vbCrLf
Delay(0.2)

MSComm1.Output = "AT+CSCA=+6596845997" ' Set GSM service centre no. '
Delay(0.2)
MSComm1.Output = "AT+CMGS=98157058" 'phone number'
Delay(0.2)
MSComm1.Output = "Hello this is a test. pls reply if u recieve this message.Thanks" + Chr(26)
Delay(2)

%>

U must me passing worng argument to 'StrConv' , this fucntion need string to convert it to other format(like Lower case upppercase,SimplifiedChinese etc)..

Secondly, easy way to set the com port  setting is just don't touch the setting properties of MSCOMM, rather go to Device Manager and select com port and change the desire setting ,

ur Setting strings looks ok , ... it should be like that only...

Hello Guys,
I want to send SMS through an application built in asp.net using my phone connected to the PC (The communication between my PC and phone is Infrared. Can Anyone assist me in how i can do this

Thank you.

Hi babsjid

In order to send SMSs from your web application you can follow the approach discussed befor for classic asp.

but you will need to make some modifications ..like : u will not need to use Server.CreateObject("MSCOMMLib.MSComm")

instead .. u will add a refrerence to the COM component called [Microsoft Comm Control] after that u will have the MSCommLib in the references node at the solution explorer

now u can put a button on the WebForm and write this code :-

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MSComm1 As New MSCommLib.MSCommClass
        Dim strReceived As String

        MSComm1.Settings = "9600,n,8,1"
        MSComm1.CommPort = 2
        MSComm1.RThreshold = 1
        MSComm1.SThreshold = 1



        MSComm1.PortOpen = Not MSComm1.PortOpen

        If MSComm1.PortOpen Then

            Response.Write("Comm. Port " & MSComm1.CommPort & " Settings: " & MSComm1.Settings)

        Else
            Response.Write("Comport Problem ")
        End If


        MSComm1.Output = "AT+CMGF=1" & vbCrLf
        Threading.Thread.Sleep(2000)

        MSComm1.Output = "AT+CSCA=+6596845997" ' Set GSM service centre no. '
        Threading.Thread.Sleep(2000)
        MSComm1.Output = "AT+CMGS=98157058" 'phone number'
        Threading.Thread.Sleep(2000)
        MSComm1.Output = "Hello this is a test. pls reply if u recieve this message.Thanks" + Chr(26)
        Threading.Thread.Sleep(2000)



    End Sub

insure that the serial parameters are correct for ur configuration like the comPort number and the supported message format
 I can be of help if u need more

hi Guys,
I just stumbled this discussion and found it very interestning (story that has no ending)  would you please somebody end it :)
heyhey84, what was the correct use of MSComm, did you find out...
BTW, I looked at  heyhey84's question history and last one he posted was in May-2004.