Du kan løse det således (men nu må brugerne ikke bruge tegnet #): <% txt=Trim(Request("texttosend")) txt=Replace(txt,VBCrLf,"#") %> txt=<%=txt%> txt=Replace(txt,"#",VBCrLf)
og nu kan du arbejde videre med txt i dit VBscript i brugerdelen.
Men du kan jo også erstatte # med f.eks. @&# som vel næppe vil blive skrevet af nogle brugere.
Du sakl skelne mellem hvad der sker på server-siden og hvad der sker på brugersiden. Når du skriver txt=<%"abc" & VBCrLf & "cde"%> vil på brugesiden komme til at stå dette: txt="abc cde" Og det går ikke.
' create T2CService Set service = CreateObject("T2C.T2CService") ' create request Set request1 = CreateObject("T2C.T2CRequest") ' set request type to Page request1.Type = conPageRequest ' set request start time/endtime request1.StartTime = Now request1.StopTime = Now + 1
' create T2Recipient Set recipient = CreateObject("T2C.T2CRecipient") ' set pager number recipient.Recipient =Mobil
' set service name to one listed in the Configurator ' if not set, default service is used ' recipient.SetAttribute("Service", "NexTel (USA)")
' append recipient to request request1.Recipients.Append recipient
' get T2CNode from T2CRequest, object T2CNode is no creatable Set nodeCallTree = request1.CallTree ' get main message from T2CNode, object T2CMessage is no creatable Set message = nodeCallTree.Message
' create message part Set messagePart = CreateObject("T2C.T2CMessagePart") messagePart.SetContent SmsBesked, conMessageText
' append message part to the message message.Parts.Append messagePart
' now we are ready to submit page service.SubmitRequest request1 msgbox end if
' create T2CService Set service = CreateObject("T2C.T2CService") ' create request Set request1 = CreateObject("T2C.T2CRequest") ' set request type to Page request1.Type = conPageRequest ' set request start time/endtime request1.StartTime = Now request1.StopTime = Now + 1
' create T2Recipient Set recipient = CreateObject("T2C.T2CRecipient") ' set pager number recipient.Recipient =Mobil
' set service name to one listed in the Configurator ' if not set, default service is used ' recipient.SetAttribute("Service", "NexTel (USA)")
' append recipient to request request1.Recipients.Append recipient
' get T2CNode from T2CRequest, object T2CNode is no creatable Set nodeCallTree = request1.CallTree ' get main message from T2CNode, object T2CMessage is no creatable Set message = nodeCallTree.Message
' create message part Set messagePart = CreateObject("T2C.T2CMessagePart") messagePart.SetContent SmsBesked, conMessageText
' append message part to the message message.Parts.Append messagePart
' now we are ready to submit page service.SubmitRequest request1 msgbox end if
' create T2CService Set service = CreateObject("T2C.T2CService") ' create request Set request1 = CreateObject("T2C.T2CRequest") ' set request type to Page request1.Type = conPageRequest ' set request start time/endtime request1.StartTime = Now request1.StopTime = Now + 1
' create T2Recipient Set recipient = CreateObject("T2C.T2CRecipient") ' set pager number recipient.Recipient =Mobil
' set service name to one listed in the Configurator ' if not set, default service is used ' recipient.SetAttribute("Service", "NexTel (USA)")
' append recipient to request request1.Recipients.Append recipient
' get T2CNode from T2CRequest, object T2CNode is no creatable Set nodeCallTree = request1.CallTree ' get main message from T2CNode, object T2CMessage is no creatable Set message = nodeCallTree.Message
' create message part Set messagePart = CreateObject("T2C.T2CMessagePart") messagePart.SetContent SmsBesked, conMessageText
' append message part to the message message.Parts.Append messagePart
' now we are ready to submit page service.SubmitRequest request1 msgbox end if
' create T2CService Set service = CreateObject("T2C.T2CService") ' create request Set request1 = CreateObject("T2C.T2CRequest") ' set request type to Page request1.Type = conPageRequest ' set request start time/endtime request1.StartTime = Now request1.StopTime = Now + 1
' create T2Recipient Set recipient = CreateObject("T2C.T2CRecipient") ' set pager number recipient.Recipient =Mobil
' set service name to one listed in the Configurator ' if not set, default service is used ' recipient.SetAttribute("Service", "NexTel (USA)")
' append recipient to request request1.Recipients.Append recipient
' get T2CNode from T2CRequest, object T2CNode is no creatable Set nodeCallTree = request1.CallTree ' get main message from T2CNode, object T2CMessage is no creatable Set message = nodeCallTree.Message
' create message part Set messagePart = CreateObject("T2C.T2CMessagePart") messagePart.SetContent SmsBesked, conMessageText
' append message part to the message message.Parts.Append messagePart
' now we are ready to submit page service.SubmitRequest request1 msgbox end if
Jeg har taget kopi af din kode og afprøvet - den messagebox som skulle komme frem kommer alså ikke - der sker ingen ting Har det noget med server - client delen at gøre ?
' create T2CService Set service = CreateObject("T2C.T2CService") ' create request Set request1 = CreateObject("T2C.T2CRequest") ' set request type to Page request1.Type = conPageRequest ' set request start time/endtime request1.StartTime = Now request1.StopTime = Now + 1
' create T2Recipient Set recipient = CreateObject("T2C.T2CRecipient") ' set pager number recipient.Recipient =Mobil
' set service name to one listed in the Configurator ' if not set, default service is used ' recipient.SetAttribute("Service", "NexTel (USA)")
' append recipient to request request1.Recipients.Append recipient
' get T2CNode from T2CRequest, object T2CNode is no creatable Set nodeCallTree = request1.CallTree ' get main message from T2CNode, object T2CMessage is no creatable Set message = nodeCallTree.Message
' create message part Set messagePart = CreateObject("T2C.T2CMessagePart") messagePart.SetContent SmsBesked, conMessageText
' append message part to the message message.Parts.Append messagePart
' now we are ready to submit page service.SubmitRequest request1 msgbox end if
Rune, det sidste du skrev, kan ikke bruges. Det betyder jo blot at der inde i teksten vil komme til at stå tegnene VBCrLf, og linieskiftet er så mistet. Når dert bliver ved at komme fejl, så er det fordi ingeman vender tilbage til det oprindelige, der giver fejl.
Iøvrigt burde chr(10) ovenfor vel erstattes af VBCrLf, for god ordens skyld. Jeg er ikke før sødt på answer=MsgBox... Hvilken værdi får answer egentlig?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.