<% 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 %>
CADMUM AB
KONTAKTA OSS
CADMUM i Göteborg AB Tele: 0300 / 18 110
Energigatan 11 Mobil: 070 / 757 42 79
434 37   Kungsbacka Fax: 0300 / 18 120
E-mail:Mobil:
Johan Wedeen 070 / 757 42 79
Vägbeskrivning