Änderung Hinzufügen der Fenster für Details

Customers/LKWs.aspx.vb

@@ -1090,28 +1090,4 @@ Partial Class LKWS
         HttpContext.Current.Response.ContentType = "application/json"
         Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails_M.Count.ToString, listdetails_M.Count.ToString, listdetails_M)
     End Function
-    <WebMethod>
-    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
-    Public Shared Function gethtmltostring(url As String) As String
-        Dim Request As HttpWebRequest = HttpWebRequest.Create(url)
-        Request.Method = "GET"
-        Dim Response As HttpWebResponse = Request.GetResponse()
-        'Mapping of status code
-        If Response.StatusCode = HttpStatusCode.OK Then
-
-            Dim receiveStream As Stream = Response.GetResponseStream()
-            Dim readStream As StreamReader = Nothing
-
-            If Response.CharacterSet = String.Empty Then
-                readStream = New StreamReader(receiveStream)
-            Else
-                readStream = New StreamReader(receiveStream, Encoding.GetEncoding(Response.CharacterSet))
-
-                ''Get data in json string
-                ''You will get html source here......
-                Dim Data As String = readStream.ReadToEnd()
-                Return Data
-            End If
-        End If
-    End Function
 End Class