Avatar billede ingeman Seniormester
27. september 2003 - 16:23 Der er 31 kommentarer og
1 løsning

Hvad går galt

<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>"+Chr(10)+Chr(10)
    Text=Text+"Sms text:"+Chr(10)
    Txt="<%=Trim(Request("texttosend"))%>"
   
    Answer=MsgBox(Text+Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>

Jeg henter fra textarea - hvis det indeholder linjeskift
melder msgbox fejl ?
Avatar billede nmh Nybegynder
27. september 2003 - 16:49 #1
Det er underligt, for følgende virker da fint:
txt="qwerty"  & VBCrLf & "AZX"
msgbox txt
Avatar billede nmh Nybegynder
27. september 2003 - 16:53 #2
nej nu forstår jeg.
Denne linie:
Txt="<%=Trim(Request("texttosend"))%>"
bliver hakket i stykker, hvis der er linieskift inde Trim(Request...)
Avatar billede nmh Nybegynder
27. september 2003 - 16:54 #3
Det vil jo komme til at stå således:
txt"bla bla bla
bla bla bla"
Avatar billede nmh Nybegynder
27. september 2003 - 17:04 #4
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.
Avatar billede ingeman Seniormester
27. september 2003 - 17:29 #5
Wrong number of arguments or invalid property assignment: 'msgbox'

Min kode:

<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>"+Chr(10)+Chr(10)
    Text=Text+"Sms text:"+Chr(10)


    txt="<%=Trim(Request("texttosend"))%>"
    txt=Replace(txt,VBCrLf,"#")

    txt=Replace(txt,"#",VBCrLf)

   
    Answer=MsgBox(Text+Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>

Hvad er der galt ?
Avatar billede ingeman Seniormester
27. september 2003 - 17:33 #6
Det sker kun når textarea har linjeskift
jeg henter textarea her:
txt="<%=Trim(Request("texttosend"))%>"
Avatar billede nmh Nybegynder
27. september 2003 - 17:35 #7
Du gjorde ikke det jeg skrev:
<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>
Dette glemte du.
Avatar billede ingeman Seniormester
27. september 2003 - 17:36 #8
Hvis jeg gør sådan for jeg slet ingen messagebox op ?
Avatar billede ingeman Seniormester
27. september 2003 - 17:37 #9
Koden:

<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>"+Chr(10)+Chr(10)
    Text=Text+"Sms text:"+Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace(txt,"#",VBCrLf)
   
    Answer=MsgBox(Text+Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>
Avatar billede nmh Nybegynder
27. september 2003 - 17:37 #10
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.
Avatar billede ingeman Seniormester
27. september 2003 - 17:40 #11
<% Option Explicit
    Response.expires = -1
%>

<html>
<head>
<!-- Minus AutoDato -->
<title>SMSsend</title>

<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">

<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1011.css"><meta name="Microsoft Theme" content="sumipntg 1011, default">
</head>
   
<body>



<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>"+Chr(10)+Chr(10)
    Text=Text+"Sms text:"+Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace(txt,"#",VBCrLf)
   
    Answer=MsgBox(Text+Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>



<%

if Trim(Request.form("action"))="Tilbage" Then
    Const conMessageText = 1
    Const conMessageFile = 0
    Const conCallRequest = 0
    Const conPageRequest = 1

    Dim messagePart,message,nodeCallTree,request1,service,Recipient,Mobil,SmsBesked

    Mobil=Trim(request.form("mobil"))
    SmsBesked=request.form("texttosend")

    ' 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
   
    ' set additional request properties 
        request1.DelayIfError = 30
        request1.NumberOfAttemptsIfError = 2
   
    ' 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

        msgbox
        Response.Redirect("TelefonList.asp?afd=" & request.form("afd")  & "")
 
%>



</BODY>
</HTML>

Hvor er det jeg falder i ?
Avatar billede nmh Nybegynder
27. september 2003 - 17:41 #12
jeg vender tilbage senere. jeg er desværre nødt til at gå nu.
Avatar billede medions Nybegynder
27. september 2003 - 17:43 #13
Prøv lgie sådan her:

<% Option Explicit
    Response.expires = -1
%>

<html>
<head>
<!-- Minus AutoDato -->
<title>SMSsend</title>

<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">

<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1011.css"><meta name="Microsoft Theme" content="sumipntg 1011, default">
</head>
   
<body>



<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace(txt,"#",VBCrLf)
   
    Answer=MsgBox(Text & Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>



<%

if Trim(Request.form("action"))="Tilbage" Then
    Const conMessageText = 1
    Const conMessageFile = 0
    Const conCallRequest = 0
    Const conPageRequest = 1

    Dim messagePart,message,nodeCallTree,request1,service,Recipient,Mobil,SmsBesked

    Mobil=Trim(request.form("mobil"))
    SmsBesked=request.form("texttosend")

    ' 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
   
    ' set additional request properties 
        request1.DelayIfError = 30
        request1.NumberOfAttemptsIfError = 2
   
    ' 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

        msgbox
        Response.Redirect("TelefonList.asp?afd=" & request.form("afd")  & "")
 
%>



</BODY>
</HTML>


//>Rune
Avatar billede medions Nybegynder
27. september 2003 - 17:46 #14
Hmm prøv lige sådan her først ;-)

<% Option Explicit
    Response.expires = -1
%>

<html>
<head>
<!-- Minus AutoDato -->
<title>SMSsend</title>

<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">

<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1011.css"><meta name="Microsoft Theme" content="sumipntg 1011, default">
</head>
   
<body>



<script LANGUAGE="VBScript">
<!--
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace(<%= txt %>,"#",VBCrLf)
   
    Answer=MsgBox(Text & Txt,64,"SMS besked sendt !")
    document.write(answer)

    self.close()
//-->
</script>



<%

if Trim(Request.form("action"))="Tilbage" Then
    Const conMessageText = 1
    Const conMessageFile = 0
    Const conCallRequest = 0
    Const conPageRequest = 1

    Dim messagePart,message,nodeCallTree,request1,service,Recipient,Mobil,SmsBesked

    Mobil=Trim(request.form("mobil"))
    SmsBesked=request.form("texttosend")

    ' 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
   
    ' set additional request properties 
        request1.DelayIfError = 30
        request1.NumberOfAttemptsIfError = 2
   
    ' 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

        msgbox
        Response.Redirect("TelefonList.asp?afd=" & request.form("afd")  & "")
 
%>



</BODY>
</HTML>

//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 17:48 #15
Nej det er ikke det ?
Avatar billede medions Nybegynder
27. september 2003 - 17:50 #16
Kna jeg ikke lige få et refererat af hvad du er kommet til nu, altså hvad virker og hvad virker ikke?

//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 17:53 #17
Det sidste du lavede virker heller ikke ?
Avatar billede medions Nybegynder
27. september 2003 - 17:54 #18
Læs nu hvad jeg skriver!

Prøv at forklar hvad der ikke virker og hvad der skal virke, altså hvad skal den gøre som den ikke gør?

//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 18:02 #19
Messageboxen kommer ikke frem på skærmem  med de informationer
der bliver hentet med request ?
Avatar billede ingeman Seniormester
27. september 2003 - 18:05 #20
Der kommer slet ingen messagebox.
Avatar billede medions Nybegynder
27. september 2003 - 18:08 #21
<% Option Explicit
    Response.expires = -1
%>

<html>
<head>
<!-- Minus AutoDato -->
<title>SMSsend</title>

<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">

<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1011.css"><meta name="Microsoft Theme" content="sumipntg 1011, default">
</head>
   
<body>



<script LANGUAGE="VBScript">
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace(<%= txt %>,"#",VBCrLf)
   
    MsgBox(Text & Txt,64,"SMS besked sendt !")

    self.close()
</script>



<%

if Trim(Request.form("action"))="Tilbage" Then
    Const conMessageText = 1
    Const conMessageFile = 0
    Const conCallRequest = 0
    Const conPageRequest = 1

    Dim messagePart,message,nodeCallTree,request1,service,Recipient,Mobil,SmsBesked

    Mobil=Trim(request.form("mobil"))
    SmsBesked=request.form("texttosend")

    ' 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
   
    ' set additional request properties 
        request1.DelayIfError = 30
        request1.NumberOfAttemptsIfError = 2
   
    ' 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

        msgbox
        Response.Redirect("TelefonList.asp?afd=" & request.form("afd")  & "")
 
%>



</BODY>
</HTML>

//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 18:13 #22
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 ?
Avatar billede medions Nybegynder
27. september 2003 - 18:16 #23
Hvad så sådan her:

<% Option Explicit
    Response.expires = -1
%>

<html>
<head>
<!-- Minus AutoDato -->
<title>SMSsend</title>

<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">

<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/sumipntg/sumi1011.css"><meta name="Microsoft Theme" content="sumipntg 1011, default">
</head>
   
<body>



<script LANGUAGE="VBScript">
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)

<%
txt=Trim(Request("texttosend"))
txt=Replace(txt,VBCrLf,"#")
%>

    txt=Replace("<%= txt %>","#",VBCrLf)
   
    MsgBox(Text & Txt,64,"SMS besked sendt !")
</script>



<%

if Trim(Request.form("action"))="Tilbage" Then
    Const conMessageText = 1
    Const conMessageFile = 0
    Const conCallRequest = 0
    Const conPageRequest = 1

    Dim messagePart,message,nodeCallTree,request1,service,Recipient,Mobil,SmsBesked

    Mobil=Trim(request.form("mobil"))
    SmsBesked=request.form("texttosend")

    ' 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
   
    ' set additional request properties 
        request1.DelayIfError = 30
        request1.NumberOfAttemptsIfError = 2
   
    ' 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

        msgbox
        Response.Redirect("TelefonList.asp?afd=" & request.form("afd")  & "")
 
%>



</BODY>
</HTML>


//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 18:29 #24
<script LANGUAGE="VBScript">
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)
    Txt="<%=Request("texttosend")%>"
    answer=MsgBox(Text+txt,64,"SMS besked sendt !")
    document.write(answer)
    self.close()
</script>

Se den her popper op - og virker som den skal - men hvis der er linjeskift
texttosend for jeg fejlen:

Wrong number of arguments or invalid property assignment: 'msgbox'

Noget går galt når skal tilføjes mer kode med <% %> i script feltet.
Avatar billede medions Nybegynder
27. september 2003 - 18:31 #25
Prøv sådan;

<script LANGUAGE="VBScript">
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)
    Txt="<%= Replace(Request("texttosend"), vbCrLf, "vbCrLf") %>"
    answer=MsgBox(Text+txt,64,"SMS besked sendt !")
    document.write(answer)
    self.close()
</script>

//>Rune
Avatar billede ingeman Seniormester
27. september 2003 - 18:35 #26
Jeg får ingen fejl mere - men en del af teksten består af vbCrLf ?
Avatar billede nmh Nybegynder
27. september 2003 - 18:36 #27
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.
Avatar billede nmh Nybegynder
27. september 2003 - 18:37 #28
netop.
Derfor skal VBCrLf erstattes med noget der er neutralt, og så senere erstattes tilbage til VBCrLf, sådan som jeg  foreslog oprindelig.
Avatar billede nmh Nybegynder
27. september 2003 - 18:39 #29
script LANGUAGE="VBScript">
    Dim Text,answer
    Text="<%=Request("navn")%> -> Mobilnr: <%=Request("mobil")%>" & Chr(10) & Chr(10)
    Text=Text & "Sms text:" & Chr(10)
    Txt="<%= Replace(Request("texttosend"), vbCrLf, "###") %>"
    Txt=Replace(Txt,"###",VBCrLf)
    answer=MsgBox(Text+txt,64,"SMS besked sendt !")
    document.write(answer)
    self.close()
</script>
Dette burde virke.
Avatar billede ingeman Seniormester
27. september 2003 - 18:41 #30
Ja det virker - mange tak for hjælpen.
Avatar billede nmh Nybegynder
27. september 2003 - 18:41 #31
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?
Avatar billede nmh Nybegynder
27. september 2003 - 18:52 #32
Selv tak, det var så lidt. Takker for point. :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester