sletning af et antal characters i en string

her er koden hvis det hjælper
<%
    Dim objCommand, objRS, objFS, objTextfile, fileSpec                        'Local variables containing Recordset data
   
    Set objCommand = Server.CreateObject("ADODB.Command")
   
    objCommand.ActiveConnection = strConnect
    objCommand.CommandText = "SELECT * FROM Item WHERE item_index LIKE true "
    objCommand.CommandType = adCmdText
   
    Set objRS = objCommand.Execute
   
   
    Set objFS = CreateObject("Scripting.FileSystemObject")
    fileSpec = Server.Mappath("textfile/item_update.txt")
    Set objTextfile = objFS.OpenTextFile(fileSpec,2)
   
    Do While Not objRS.EOF
        objTextfile.Write(objRS("Item") + vbCrLf) 
        objRS.MoveNext
    loop
   
    objRS.Close
    objTextfile.Close
    Set objCommand = Nothing
   
    Response.write "Update completed succesfully!"
%>

Prøv med:

objTextfile.Write(Mid(objRS("Item"),3,1) + vbCrLf)

Kan jeg få dig til at forklare hvad "mid og ,1,3" står for. det ser nemlig ud til at virke men den skriver de 3 første characters, det er vel bare at ændre de parametre hvis jeg kun skal have nr 3

sorry det er mig der har tastet forkert nu er jeg med