%@ Language=VBScript %> <%option explicit%> <%Response.Buffer=true%> <% dim connFWS dim strSQL dim rsPartners dim iClientID dim strLogin dim strPassword dim strConfirmPassword dim strCompany dim strPCFirstName dim strPCLastName dim strTitle dim strPrimaryFunction dim strAddress1 dim strAddress2 dim strCity dim strState dim strZip dim strCountry dim strPhone dim strFax dim strEmail dim strURL dim strPartner dim strActive dim strDateSubmitted dim strDateActivated dim strBusinessType dim strProductLines dim strNumEmp dim strRev dim strVendCert dim strSP dim strHear dim strUserType dim strAction dim rs strUserType=Request.QueryString("UserType") strAction=Request.QueryString("Action") iClientID=Request.QueryString("ClientID") if strAction="Update" then set connFWS=server.CreateObject ("adodb.connection") connFWS.provider="microsoft.jet.oledb.4.0" connFWS.Properties("Data Source")=server.MapPath ("data\FWS.mdb") connFWS.Open set rsPartners=server.CreateObject("adodb.recordset") strSQL="qryListClient " & iClientID set rsPartners=connFWS.Execute(strSQL) strLogin=rsPartners("login") strPassword=rsPartners("password") strConfirmPassword=strPassword strCompany=rsPartners("company") strPCFirstName=rsPartners("pcfirstname") strPCLastName=rsPartners("pclastname") strTitle=rsPartners("title") strPrimaryFunction=rsPartners("primaryfunction") strAddress1=rsPartners("address1") strAddress2=rsPartners("address2") strCity=rsPartners("city") strState=rsPartners("state") strZip=rsPartners("zip") strCountry=rsPartners("country") strPhone=rsPartners("phone") strFax=rsPartners("fax") strEmail=rsPartners("email") strURL=rsPartners("url") strPartner=rsPartners("partner") strActive=rsPartners("active") strDateSubmitted=formatdatetime(rsPartners("datesubmitted"),2) 'strDateActivated=formatdatetime(rsPartners("dateactivated"),2) rsPartners.Close set rsPartners=nothing connFWS.Close set connFWS=nothing else if strAction="Add" then strLogin="" strPassword="" strConfirmPassword="" strCompany="" strPCFirstName="" strPCLastName="" strTitle="" strPrimaryFunction="" strAddress1="" strAddress2="" strCity="" strState="" strZip="" strCountry="" strPhone="" strFax="" strEmail="" strURL="" strPartner="" strActive="" strDateSubmitted="" strDateActivated="" end if end if %>
![]() |
![]() |
|
![]() |
![]() |
![]() |
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() What are Firewall Software & Appliances? Network Security Virtual Private
|
|
|