X.25 스위치 X.25 Switch X.25 게이트웨이 X.25 Gateway Frame Relay PAD ISDN X.75 HDLC Develcon 디벨콘 프레임릴레이 X.3 PAD SDLC 백본 구축

<%@ 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 백본 구축

영문 공식 홈페이지로 이동 | Contact Us

저희 디벨콘 제품에 관심을 가져주셔서 감사드립니다.
디벨콘은 고객의 최상의 만족을 위해 항상 노력하겠습니다. 감사합니다.

Develcon 본사(캐나다)
155 Champagne Drive, Suite 7
Toronto, Ontario, Canada
M3J 2C6

Tel :    + 1 416 385-1390
Fax :    + 1 416 385-1610
Mail :    info@develcon.com
한국어문의 : rlee@develcon.com
Website : www.develcon.com

KOREA 리셀러

KCC 정보통신
서울시 용산구 갈월동 7-50, KCC IT타워
Tel :     02-6090-7711
Mail :    sbheo@kcc.co.kr
담당 :    허 승범 차장
Website : www.kcc.co.kr

한글 메인페이지로 이동

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