<%@ Language=VBScript %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.MapPath("activenat.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
SQL = "Select * from natusers Where AlphaID = '" & UCase(trim(request("ID"))) & "'"
'Response.Write(sql)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,conn,2,3
if rs.EOF or rs.BOF then
Response.Write("Žetta auškenni er ekki žekkt, athugašu hvort aš žś hefir slegiš inn rétt auškenni - Til baka")
else
%>
<%if not isNull(rs("header")) or not rs("header") = "" then%>
<%=rs("header")%>
<% end if%>