%@ 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
%>