isSMTP(); $kvmail->Host = 'smtp.fsdata.se'; $kvmail->SMTPAuth = true; $kvmail->Username = 'kontakt@racktech.se'; $kvmail->Password = 'asdxz123'; $kvmail->Port = 587; $kvmail->From = 'kontakt@racktech.se'; $kvmail->FromName = 'Racktech'; return $kvmail; } function FormatPrice($price){ // FormatPrice = "£" & round( (Price/5) * 0.38,2) if( siteLanguage=='en') return "£" . round( $price,2); return round($price,2) . " kr"; } if(!isset($open_db )){ $Conn = new Connection(false); if(!$Conn->Open('mysql.racktech.se', 'racktech', 'MdVHb4Lb', 'racktech_1')) { echo '

Databasfel!

'.$Conn->getLastError().'

'; die; $Conn = false; } } function ReDirect($url){ echo ''; echo 'Redirecting...'; echo ''; echo "\n"; echo ''; echo '

Du skickas vidare till ' . $url . '

'; echo ''; die; session_write_close(); header("HTTP/1.1 301 Moved Permanently"); header("Location: " . $url); exit(); } function LangString($s){ global $Conn; $rs = $Conn->Execute("SELECT value FROM `kablage-lang` WHERE `key`='" . stripslashesEx($s) . "' AND `lang`='" . siteLanguage . "'"); echo ""; if( $rs->numRows()==1) { echo ""; return $rs->Fields("value"); } else { echo ""; return siteLanguage . ':' . $s; } } function stripslashesEx($txt){ if(get_magic_quotes_gpc()) return stripslashes($txt); return $txt; } /* if InStr(Request.ServerVariables("HTTP_HOST"),"racktech.co.uk") then SiteLanguage = "en" 'SiteLanguage = "en" Dim Lang Set Lang = Server.CreateObject("Microsoft.XMLDOM") set fso = Server.CreateObject("Scripting.FileSystemObject") if Not fso.FileExists(server.mappath("lang/lang_" & SiteLanguage & ".xml")) Then response.write "

Racktech.co.uk

This site is not open yet. Please visit racktech.se instead.

" response.end end if set fso = Nothing Lang.load Server.MapPath("lang/lang_" & SiteLanguage & ".xml") ' Om fel - välj engelska... Function GetLangCode() GetLangCode = SiteLanguage End Function Function LangString(key) path = "//String[@id='" & key & "']" If Instr(key, "->" )>0 Then t = SPlit(key, "->") PageID = t(0) key = t(1) LangString = "SIDOSPECIFIK! " & "<" & key & ">" path = "//Pages/Page[@id='" & PageID & "']/String[@id='" & key & "']" end if Set t = Lang.SelectSingleNode(path) LangString = "<"& SiteLanguage & ":" & key & ">" if not t is nothing then LangString = t.text end if End Function Function GetVariable(key, defaultValue) GetVariable = defaultValue path = "//Variable[@id='" & key & "']" Set t = Lang.SelectSingleNode(path) if not t is nothing then GetVariable = t.text end if End Function Dim Conn Function OpenDB()'As Boolean 'On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") conn.errors.clear Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & DatabasePath '& ";uid=admin;pwd=;" If err.number=0 and conn.state = 1 then OpenDB = True else Dim i for i=0 to conn.errors.count-1 response.write conn.errors(i) & "..
" next end if On Error Goto 0 End Function Function ReDirect(URL) response.Status = 301 response.redirect URL response.end End Function Sub CloseDb() On Error Resume Next Conn.Close Set Conn = Nothing On Error Goto 0 End Sub Function SQLExecute(SQL) ' As Boolean SQLExecute = false on error resume next call Conn.Execute(SQL) if err.number= 0 then SQLExecute = True on error goto 0 end function Function SQLInsert(SQL) ' As Long SQLInsert = 0 on error resume next call Conn.Execute(SQL) if err.number= 0 then SQLExecute = True Set rs = Conn.Execute("SELECT @@IDENTITY") If Not Rs.Eof Then SQLInsert = rs.Fields(0) End If else response.write err.description end if on error goto 0 end function Function OpenRecordset(SQL) ' as ADODB.Recordset 'on error resume next Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.open SQL, Conn, 1,2 if err.number<>0 then OpenRecordset = Nothing else Set OpenRecordset = rs end if End Function Function CloseRecordset(Recordset) on error resume next Recordset.Close Set Recordset = nothing on error goto 0 End Function Function access_escape_string(StringValue) StringValue = Replace(StringValue, "'", "''") access_escape_string = StringValue End Function Function FormatPrice(price) FormatPrice = Price & " kr" If SiteLanguage = "en" then FormatPrice = "£" & round( (Price/5) * 0.38,2) end if If SiteLanguage = "de" then FormatPrice = "€" & Round(Price * 0.11,2) end if End Function */ ?> Etiketter till kabelmärkning för serverrum och datahallar - Etiketter - Märkning av kablar och kablage - ID Pal Märkmaskin och etiketter

Kabelmärkning - Märka kablar - Märkning av kablage - Serverrum - Datahall

Etiketter



Märkning av kablar hänger på hur bra etiketterna sitter kvar på dina kablar. Den avgörande skillnaden mellan ID PAL och andra märkapparater är att etiketterna verkligen sitter kvar.

Varför fäster ID PAL-etiketterna bättre än andra? Svaret är att en speciellt framtagen häftmassa avsedd enbart för kablage och ett högkvalitativt etikett material gör att våra etiketter och sitter bättre och längre på dina kablar. Självklart har du nytta av det även när du märker andra saker - speciellt i utsatta miljöer. Etiketterna klarar stora temperaturskillnader och annan påverkan.

Etiketterna finns i flera olika färger: Blå, grön, orange, röd, gul och vit. Detta hjälper dig att snabbt identifiera olika typer av kablar. Och det är enkelt att byta etiketttyp. Genom det praktiska systemet med kassetter byter du snabbt färg och bredd på dina etiketter.