<% @Language=VBScript %>
<%
dim tel
tel=request.form("phone")
IF tel <> "" THEN
Dim DataFile
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
'DataFile = Server.MapPath("data\ipbank.mdb")
'objConn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DataFile
'objConn.connectionString = "DSN=ipsmar.dsn"
objConn.connectionString = "ipsmar.MyData"
objConn.Open
Dim Ssql
Ssql = "SELECT Department FROM EmployeeDetail WHERE UserId='Web'"
Dim objrs1
Set objrs1 = Server.CreateObject("ADODB.Recordset")
objrs1.open Ssql, objConn, 2, 3
Ssql = "select * from ipsmarx"
Dim objrs
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open Ssql, objConn, 2, 3
objrs.AddNew
objrs("dated")=cdate(date)
objrs("comp")=request.form("comp")
objrs("city")=request.form("city")
objrs("kname")=request.form("kname")
objrs("postcode")=request.form("postcode")
objrs("title")=request.form("title")
objrs("phone")=request.form("phone")
objrs("pext")=request.form("pext")
objrs("email")=request.form("email")
objrs("fax")=request.form("fax")
objrs("url")=request.form("url")
objrs("country")=request.form("country")
objrs("address")=request.form("address")
objrs("province")=request.form("province")
objrs("state")=request.form("state")
objrs("status")="open"
if not objrs1.eof then
objrs("source") = objrs1("department")
end if
Ssql = "SELECT Id FROM EmployeeDetail WHERE UserId='admin'"
objrs1.close
objrs1.open Ssql, objConn, 2, 3
if not objrs1.eof then
objrs("Owner") = objrs1("id")
end if
dim strprog1
strprog1=request.form("progm")
dim strprogr1
strprogr1=split(strprog1,",")
dim iloop
for iloop=lbound(strprogr1) to ubound(strprogr1)
select case trim(strprogr1(iloop))
case "turn":
objrs("turn")="Y"
case "biller":
objrs("biller")="Y"
case "anal":
objrs("anal")="Y"
case "digi":
objrs("digi")="Y"
case "gateway":
objrs("gateway")="Y"
case "remote":
objrs("remote")="Y"
case "onsite":
objrs("onsite")="Y"
case "enterprise":
objrs("enterprise")="Y"
case "carrier":
objrs("carrier")="Y"
end select
next
dim strprog2
strprog2=request.form("progm2")
dim strprogr2
strprogr2=split(strprog2,",")
dim iloop2
for iloop2=lbound(strprogr2) to ubound(strprogr2)
select case trim(strprogr2(iloop2))
case "enduser":
objrs("enduser")="Y"
case "agent":
objrs("agent")="Y"
case "reseller":
objrs("reseller")="Y"
case "syin":
objrs("syin")="Y"
case "oem":
objrs("oem")="Y"
case "itsp":
objrs("itsp")="Y"
case "ispin":
objrs("ispin")="Y"
case "carr2":
objrs("carr2")="Y"
case "other":
objrs("other")="Y"
end select
next
objrs("other2")=request.form("other2")
dim strprog3
strprog3=request.form("progm3")
dim strprogr3
strprogr3=split(strprog3,",")
dim iloop3
for iloop3=lbound(strprogr3) to ubound(strprogr3)
select case trim(strprogr3(iloop3))
case "trade":
objrs("trade")="Y"
case "clentt":
objrs("clent")="Y"
case "seaeng":
objrs("seaeng")="Y"
case "webf":
objrs("webf")="Y"
case "magazine":
objrs("magazine")="Y"
case "other3":
objrs("other3")="Y"
end select
next
objrs("other32")=request.form("other32")
objrs("comments")=request.form("comments")
objrs.update
objrs.Close
Set objrs=Nothing
objConn.close
Set objConn=Nothing
'response.Redirect "contact.html"
END IF
%>
IPsmarx Technologies Inc. - Phone to Phone VoIP Calling Card Billing Solution, Real-time Billing Software, H.323, VoIP Carrier, VoIP Hosting, Radius, VoIP Gateway
Contáctenos 