underliga tecken i txtfil

prova:

<%
	dim txtobj, thetxt, path, cntr

	path = server.mappath("\project\") & "\cnt.txt"

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.opentextfile(path, 1, false)
	cntr = thetxt.readline
	cntr = [b]cint([/b]cntr[b])[/b] + 1
	thetxt.close

	set txtobj = server.createobject("scripting.filesystemobject")
	set thetxt = txtobj.createtextfile(path, 2, true)
	thetxt.writeline cntr
	thetxt.close
%>
				<font face = 'verdana' size = '2'>Du är besökare nr: <% =cntr %></font>

Vi kan ju inte lägga ihop ett tal med en string.. så vi gör om stringen till ett tal.. typ

voigtann1 skrev:

Vi kan ju inte lägga ihop ett tal med en string.. så vi gör om stringen till ett tal.. typ

Jag vet, det är inte det som är problemet, "ÿþ" läggs till före antalet i "cnt.txt".

Vad har hänt efter som dessa tecken läggs till?

Du kan ju göra såhär, även om jag tycker att det inte ska behövas.

<%
dim txtobj, thetxt, path, cntr

path = server.mappath("\project\") & "\cnt.txt"

set txtobj = server.createobject("scripting.filesystemobject")
set thetxt = txtobj.opentextfile(path, 1, false)

cntr = thetxt.readline
[b]Set RegExp = New Regexp
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "[^0-9]*"
cntr = RegExp.Replace(cntr, "")
Set RegExp = Nothing[/b]
cntr = CInt(cntr) + 1
thetxt.close

set txtobj = server.createobject("scripting.filesystemobject")
set thetxt = txtobj.createtextfile(path, 2, true)
thetxt.writeline cntr
thetxt.close
%>
<font face = 'verdana' size = '2'>Du är besökare nr: <% =cntr %></font>

Tack, det fungerar, men filen innhåller fortfarande "ÿþ".

Som det ser ut nu så innehåller cnt.txt "ÿþ6" och index.asp visar 69

Dags att installera om operativet eller?