How do you pass a Line Break/Carriage Return in URL 1

[mrgulic]

When I try to pass information from an outlook email message, the format is stripped.

It sends it as one long string without any line breaks. Does anyone have any ideas?

This how the code looks:

Dim objXMLHTTP As MSXML2.XMLHTTP 
Dim strCGIForm As String
Dim strType As String, strLevel1 As String, strLevel2 As String, strLevel3 As String, strDesc As String
Dim strWebResult As String, strVars As String

strCGIForm = "[URL unfurl="true"]http://cprweb/clearexp_cgi.exe/dd_topaz.htm"[/URL]
strType = "call_type"
strLevel1 = "level1" 
strLevel2 = "level2" 
strLevel3 = "level3" 
strDesc = "CASE_DESCRIPTION"

    strVars = "?"
    strVars = strVars & strType & "=" & strCaseType & "&"
    strVars = strVars & strLevel1 & "=" & strCaseL1 & "&"
    strVars = strVars & strLevel2 & "=" & strCaseL2 & "&"
    strVars = strVars & strLevel3 & "=" & strCaseL3 & "&"
    strVars = strVars & strDesc & "=" & strBody & "&"

Set objXMLHTTP = CreateObject("MSXML2.XMLhttp")
With objXMLHTTP
  .Open "GET", strCGIForm & strVars, False
  .Send '**Send Variables
End With

thanks

 

[trollacious]

Try this

%0D%0A

where it's zero D zero A, the hexadecimal equivalent of carriage return and line feed.

Lee

 

[Vragabond]

Which forum am I in?

 

[BillyRayPreachersSon]

That'll be the new VB/HTML forum then!



Coedit Limited - Delivering standards compliant, accessible web solutions

[tt]Dan's Page [blue]@[/blue] Code Couch

http://www.codecouch.com/dan/

[/tt]

 

[mrgulic]

I took it to the next level:

Function UrlEncode(ByVal urlText As String) As String
    Dim i As Long
    Dim ansi() As Byte
    Dim ascii As Integer
    Dim encText As String

    ansi = StrConv(urlText, vbFromUnicode)

    encText = ""
        For i = 0 To UBound(ansi)
        ascii = ansi(i)

        Select Case ascii
        Case 48 To 57, 65 To 90, 97 To 122
            encText = encText & Chr(ascii)

        Case 32
            encText = encText & "+"

        Case Else
            If ascii < 16 Then
                encText = encText & "%0" & Hex(ascii)
            Else
                encText = encText & "%" & Hex(ascii)
            End If

        End Select
    Next i
    
    UrlEncode = encText
End Function

Thanks to: Shen Cheng-Da

http://www.csie.nctu.edu.tw/~cdsheen/codings/vb-urlencode.php