Hvad er problemmet i dette stykke kode?

<head>
<title>Untitled</title>
<link rel=\"stylesheet\" href=\"stil3.css\" type=\"text/css\">
</head>
<body topmargin=\"4\" leftmargin=\"4\">
<h2>
<!--#include file=\"makeconn.asp\"-->

<%
if request.querystring(\"id\") = \"\" then
\'læs fra tekstfil (id.txt)
Dim fso2, f2, filespec2
Set fso2 = CreateObject(\"Scripting.FileSystemObject\")
filespec2 = Server.Mappath(\"/ps4/id.txt\")
Set f2 = fso2.OpenTextFile(filespec2,1)
id = f2.ReadLine
f2.close
else
id = request.querystring(\"ID\")
end if

strSQL = \"Select * From stamfil Where ID = \"&id&\";\"

Set rs = Conn.Execute(strSQL)
%>

<table summary=\"Company logo\" width=\"500\">
<tr>
<td width=\"100\">
<h2>
Virksomhed:<br />
Adresse:<br />
Postnummer:<br />
By:<br />
Telefon:<br />
Antal ansatte:<br />
Hjemmeside:<br />
</h2>
</td>
<td valign=\"top\" width=\"400\">
<h2>
<%
response.write rs(\"Virksomhedsnavn\") & \"<br>\"
response.write rs(\"Adresse\") & \"<br>\"
response.write rs(\"Postnr\")
response.write rs(\"By\") & \"<br>\"
response.write rs(\"Telefon\") & \"<br>\"
response.write rs(\"ansatte\") & \"<br>\"
response.write rs(\"hjemmeside\") & \"<br>\"
%>
</h2>
</td>
</tr>
</table>


<hr color=\"990E5E\" align=\"center\" size=\"2\" width=\"500\"/>

<table summary=\"Company logo\" width=\"500\">
<tr>
<td valign=\"top\">
<h2>
Kontaktpersoner:<br />
</h2>
</td>
<td>
<h2>
<%

response.write rs(\"dir_navn1\") & \"<br>\"
response.write rs(\"økonomi_navn\") & \"<br>\"
response.write rs(\"personale_navn\") & \"<br>\"

%>
</h2>
</td>
<td valign=\"top\">
<h2>
tilføjet den:
</h2>
</td>
<td>
</h2>
<% \'hent dato for tilføjelse
%>
<h2>
</td>
<td valign=\"top\">
<h2>
af:
</h2>
</td>
<td>
<h2>
<% \'hent person der har tilføjet ham
%>
</h2>
</td>
</tr>
</table>

<hr color=\"990E5E\" align=\"center\" size=\"2\" width=\"500\"/>

<form action=\"tilfojjournal.asp\">
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/ps4/id.txt\")
Set f = fso.OpenTextFile(filespec,2)

\'her skal den checke om id ligger i querystring eller som variabel
if request.querystring(\"id\") = \"\" then
f.Writeline (\"id\")
else
f.WriteLine request.querystring(\"id\")
end if

f.Close

Dim fso4, f4, filespec4
Set fso4 = CreateObject(\"Scripting.FileSystemObject\")
filespec4 = Server.Mappath(\"/ps4/kob.txt\")
Set f4 = fso4.OpenTextFile(filespec4,2)

f4.WriteLine rs(\"KOB\")

f4.Close
%>
<input value=\"tilføj post til journal\" type=\"submit\" style=\"background-color: #FFFFFF; font-size: xx-small; font-family: verdana;>
<form>

<table>
<tr>
<td width=\"500\">
<h2>
Journal: <br /><br />
<%

strSQL = \"Select * From journal Where KOBnummer in (Select KOB From stamfil Where ID = \"&id&\");\"
Set rs2 = Conn.Execute(strSQL)

if rs2.EOF = true then
response.write (\"Der er ingen kommentare\")
else
Do
response.write rs2(\"Kommentar\") & \"<br>\"
rs2.movenext
Loop While Not rs2.EOF
end if
%>
</h2>
</td>
</tr>
</table>

</h2>

<%
Conn.Close
Set Conn = Nothing
%>

</body>
</html>


Problemmet er at den tager en forkert virksomhed anden gang man trykker på formens inputknap - hvad er problemmet og hvordan kan man evt. ændre koden?

mvh Mathias