<%@ LANGUAGE=VBScript %> <% Option Explicit Dim m_SubmitReport, m_FirstName, m_LastName, m_Company, m_Address, m_City, m_Country, m_PC, m_Email, m_Prov Dim m_Phone, m_Fax, m_Comments, m_Response, str_Error Dim m_Athena, m_Access, m_Gateway m_SubmitReport = Request.Form("SubmitReport") If m_SubmitReport = 1 Then m_FirstName = Request.Form("FirstName") m_LastName = Request.Form("LastName") m_Company = Request.Form("Company") m_Address = Request.Form("Address") m_City = Request.Form("City") m_Prov = Request.Form("Prov") m_Country = Request.Form("Country") m_PC = Request.Form("PC") m_Email = Request.Form("Email") m_Phone = Request.Form("Phone") m_Fax = Request.Form("Fax") m_Comments = Request.Form("Comments") m_Response = Request.Form("Response") m_Athena = Request.Form("Athena") m_Access = Request.Form("Access") m_Gateway = Request.Form("Gateway") CheckResponse If (Len(str_error) = 0) Then Response.Redirect("/partner_result.htm") End If Else If Session("LoggedOn") = 1 Then m_FirstName = Session("FirstName") m_LastName = Session("LastName") m_Company = Session("OrgName") m_Email = Session("Email") End If m_Response = "E-mail" End If %> X.25 ½ºÀ§Ä¡ X.25 Switch X.25 °ÔÀÌÆ®¿þÀÌ X.25 Gateway Frame Relay PAD ISDN X.75 HDLC Develcon µðº§ÄÜ ÇÁ·¹ÀÓ¸±·¹ÀÌ X.3 PAD SDLC ¹éº» ±¸Ãà

 

 

     Develcon X.25 Athena ¼Ö·ç¼Ç

          


µðº§ÄÜ ¼Ö·ç¼Ç Á¾ÇÕ

Frame Relay, X.25, X.75 ¼­ºñ½º·ÎÀÇ WAN ¿¬°áÀ» Á¦°ø Çϰí, ¹éº» ±¸Ãà¿ë ÃÖÀûÀÇ ¼Ö·ç¼Ç

Ç׸ñ
³»¿ë
Á¦Ç°±º
Athena(X.25 / Frame Relay / TCPIP Gateway) Switch ¼Ö·ç¼Ç
Athena Access(PAD, Gateway, ISDN) ¼Ö·ç¼Ç
EMS/NMS/SMS ¼Ö·ç¼Ç
Á¦Á¶»ç
Develcon. (Canada)
Á¦Ç°°³¿ä

Develcon»çÀÇ Athena Switch ¼Ö·ç¼ÇÀº °¢ Æ÷Æ® ´ç ÃÖ´ë 2 Mbps¸¦ Áö¿øÇÏ´Â
X.25 Àü¿ë ½ºÀ§Ä¡·Î Ź¿ùÇÑ ±â¼ú·Â°ú ¼º´ÉÀ¸·Î ±¹³»¿Ü ±ÝÀ¶±Ç ¸Á¿¡¼­ ÃÖ°íÀÇ ¼º´É°ú ¾ÈÁ¤¼ºÀ» º¸ÀåÇÑ´Ù

Athena1/2/4/8Àº 4 port¿¡¼­ 64 port±îÁö Áö¿ø °¡´ÉÇÑ ÅëÇÕµÈ ¸ðµ¨·Î¼­ Å©°í ÀÛÀº ½Ã½ºÅÛÀÇ ÃÖ´ë È®Àå°ú ¼º´É Çâ»óÀ» À§ÇÑ Open ¾ÆÅ°ÅØÃı¸Á¶¸¦ °¡Áö°í ÀÖ´Â ½ºÀ§Ä¡À̸ç, Frame Relay, X.25, X.75 ¼­ºñ½º·ÎÀÇ WAN ¿¬°áÀ» Á¦°ø Çϰí, ¹éº» ±¸Ãà¿ëÀ¸·Îµµ »ç¿ëµÇ¾îÁø´Ù.

Athena access´Â small office ³ª branch officeÀÇ ¿ä±¸¿¡ ÀûÀýÇÑ ¼Ö·ç¼ÇÀÎ multi-protocol concentrator·Î¼­ ´ÜÀÏ ¶Ç´Â º¹ÇÕ ³×Æ®¿öÅ©¿¡¼­ LAN,legacy data, voice networkingµîÀ» ÅëÇÕ½ÃÄÑÁÖ´Â ¼Ö·ç¼ÇÀÌ´Ù.

EMS/NMS´Â Athena¿Ü ¸ðµç ³×Æ®¿÷Àåºñ ¹× ¼­¹öµéÀ» °ü¸®Çϱâ À§ÇÑ
È¿À²ÀûÀÎ °ü¸® ¸ðµâ°ú »ç¿ëÇϱ⠽¬¿î User Interface Á¦°øÀ» ¸ñÀûÀ¸·Î Çϸç EMS/NMS/SMS ¼Ö·ç¼ÇÀº AdventNet WebNMS 2.3Àº java ±â¹Ý NMS °³¹ßÀ»
À§ÇÑ Fault, Performance, Configuration, Security ¸ðµâÀ» Á¦°øÇÑ´Ù

°³³ä ±¸¼ºµµ

X.25 Á¦Ç°±º ºê·Î¿ì¼Å

X.25 Athena ½ºÀ§Ä¡ ÇÑ±Û ºê·Î¿ì¼Å
X.25 Athena Switch ¿µ¹® ºê·Î¿ì¼Å
X.25 Athena Access ¿µ¹® ºê·Î¿ì¼Å
TCP to X.25 Gateway ¿µ¹® ºê·Î¿ì¼Å

´õ¸¹Àº ÀڷḦ ¿øÇϽøé ÀÚ·á½Ç(Resources)·Î ¿À¼¼¿ä.

 

© 2007, Develcon. All rights reserved.

<% Sub CheckResponse If m_FirstName = "" Or m_LastName = "" Or m_Company = "" Or m_Email = "" Or m_Country = "" Then str_Error = "You must specify your full name, company name, Country and Email address before issuing this report. Please correct the fields below, and resubmit." Else Dim myMail, m_strBody str_Error = "" m_strBody = "BUSINESS PARTNER INQUIRY REPORT" & vbNewLine m_strBody = m_strBody & "=================================" & vbNewLine m_strBody = m_strBody & "Date: " & FormatDateTime(Now(), vbLongDate) & vbNewLine m_strBody = m_strBody & "Time: " & FormatDateTime(Now(), vbLongTime)& vbNewLine & vbNewLine m_strBody = m_strBody & "From: " & m_FirstName & " " & m_LastName & vbNewLine m_strBody = m_strBody & "Company: " & m_Company & vbNewLine m_strBody = m_strBody & "Address: " & m_Address & vbNewLine m_strBody = m_strBody & "City: " & m_City & vbNewLine m_strBody = m_strBody & "Province/State: " & m_Prov & vbNewLine m_strBody = m_strBody & "Country: " & m_Country & vbNewLine m_strBody = m_strBody & "PC/ZIP: " & m_PC & vbNewLine & vbNewLine m_strBody = m_strBody & "Email: " & m_Email & vbNewLine m_strBody = m_strBody & "Phone: " & m_Phone & vbNewLine m_strBody = m_strBody & "Fax: " & m_Fax & vbNewLine & vbNewLine m_strBody = m_strBody & "Please have someone contact me by way of: " & m_Response & vbNewLine & vbNewLine m_strBody = m_strBody & "======================================" & vbNewLine m_strBody = m_strBody & "Product Interests:" & vbNewLine m_strBody = m_strBody & "------------------" & vbNewLine If m_Gateway = "on" Then m_strBody = m_strBody & " TCP To X.25 Gateway" & vbNewLine End If If m_Athena = "on" Then m_strBody = m_strBody & " Athena" & vbNewLine End If If m_Access = "on" Then m_strBody = m_strBody & " Athena Access" & vbNewLine End If m_strBody = m_strBody & "======================================" & vbNewLine m_strBody = m_strBody & "Comments:" & vbNewLine m_strBody = m_strBody & "---------" & vbNewLine m_strBody = m_strBody & m_Comments & vbNewLine m_strBody = m_strBody & "======================================" Set myMail = CreateObject("CDONTS.NewMail") myMail.From = m_Email myMail.To = "info@develcon.com" myMail.CC = m_Email myMail.Subject = "Business Partner Inquiry Submission" myMail.BodyFormat=1 myMail.MailFormat=0 myMail.Body=m_strBody myMail.Send set myMail=nothing str_Error = "" End If End Sub %>