<%
Response.Buffer = true
Response.Expires = -1
Const adOpenDynamic = 2
Const adLockOptimistic = 3
Const adCmdTable = &H0002
Const adModeReadWrite = 3
DIM dbConn
function OpenDB()
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Mode = adModeReadWrite
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/cadmum.mdb")
end function
function CloseDB()
dbConn.close
Set dbConn = Nothing
end function
function Out(sHTML)
Response.Write (sHTML)&vbCR
end function
function OutN(sHTML)
Response.Write (sHTML)
end function
%>
Kontakt | Cadmum AB Utbildning
<%
if sOnLoad<>"" Then
Out ""
Else
Out ""
End if
%>
