if Funktion = \"Alm\" then
if InStr(1, tmpBuffer, \"No match\", 1) > 0 or InStr(1, tmpBuffer, \"No entries found\", 1) > 0 or InStr(1, tmpBuffer, \"not found\", 1) > 0 Then
response.write (\" <tr>\"&VbCrLf)
response.write (\" <td width=\"\"180\"\" height=\"\"12\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#00cc00\"\"><b>www.\" & Domain & \".\" & TopDomain &\"</b></font></td>\"&VbCrLf)
response.write (\" <td width=\"\"120\"\" height=\"\"12\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#00cc00\"\"><b>Ledig</b></font></td>\"&VbCrLf)
response.write (\" <td width=\"\"160\"\" height=\"\"12\"\"><a href=\"\"\"&Request.ServerVariables(\"SCRIPT_NAME\")&\"?domain=\"&Domain&\"&topdomain=\"&topDomain&\"&command=bestil\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#00cc00\"\"><b>BESTIL</b></font></a></td>\"&VbCrLf)
response.write (\" </tr>\"&VbCrLf)
else
response.write (\" <tr>\"&VbCrLf)
response.write (\" <td width=\"\"180\"\" height=\"\"12\"\"><a href=\"\"
http://www.\"& Domain & \".\" & TopDomain &\"\"\" target=\"\"_blank\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#ff0000\"\"><u><b>www.\" & Domain & \".\" & TopDomain &\"</b></u></font></a></td>\"&VbCrLf)
response.write (\" <td width=\"\"120\"\" height=\"\"12\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#ff0000\"\"><b>Optaget</b></font></td>\"&VbCrLf)
response.write (\" <td width=\"\"160\"\" height=\"\"12\"\"><a href=\"\"\"&Request.ServerVariables(\"SCRIPT_NAME\")&\"?domain=\"&Domain&\"&topdomain=\"&topDomain&\"&command=info\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#ff0000\"\"><b>Vis ejer</b></font></a></td>\"&VbCrLf)
response.write (\" </tr>\"&VbCrLf)
end if