<%@ 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 Switch X.25 Frame Relay TCP X.25 Gateway PPP X.3 PAD FRAD IP Router LAN Bridge HDLC SDLC VoIP VoFR FRF.15 FRF.11 FRF.12 PAD NMS Network Wireless

 

 

    Develcon Partner


Thank you for your interest in Develcon.

Develcon's Partner Program provides business, technological and marketing benefits to companies which create commercial products and services that are complementary to Develcon's solutions.

If you are interested in Develcon's Partner Program, please use Automated Partner Inquiry Form.

 

Resellers Worldwide

KOREA

KCC Information & Communication Corp.
Yongsan-gu, Kalwol-dong 7-50, KCC IT Tower, Seoul, Korea
TEL : 82-2-6090-7711
Mail : sbheo@kcc.co.kr
Contact Person : Mr. Heo
Website : www.kcc.co.kr

If you want to read about Athena products in Korean language, please go to Korean Webpage.

 

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