<% 'This if the main datbase connection information 'Dim Conn dbPath=Server.mappath("access_db/kstrat.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath 'This procedure sends an email to confirm the person sub sendemail(sendto,sendfrom,cc,bcc,subj,text) strto=sendto strFrom=sendfrom strSubject=subj strBody=text strcc= cc strbcc =bcc Set objCDO = Server.CreateObject("CDONTS.NewMail") With objCDO .To = strTo .From = strFrom .cc = strcc .Bcc =strbcc .Subject = strSubject .body=strBody End With objCDO.Send Set objCDO = Nothing end sub 'This function formats times function rDateTime(mytime) myColon = instr(1, mytime, ":",vbBinaryCompare) myAmPm=right(mytime,2) if myColon = 2 then myHour = Left(mytime,1) myMinute = Mid(mytime, 3, 2) else myHour = Left(mytime,1) myMinute = Mid(mytime, 2, 2) end if if myHour="" then myHour="00" if myMinute="" then myMinute="00" if myHour > 12 then myHour= myHour - 12 end if if isnull(myHour) then rDateTime=NULL else rDateTime=myHour&":"&myMinute&" "&myAmPm end if end function Private Function Format(byVal expression, byVal strFormat) On Error Resume Next Select Case lcase( strFormat ) Case "general date" Format = FormatDateTime(expression, 0) Case "long date" Format = FormatDateTime(expression, 1) Case "short date" Format = FormatDateTime(expression, 2) Case "long time" Format = FormatDateTime(expression, 3) Case "short time" Format = FormatDateTime(expression, 4) Case "general number" Format = Replace( expression, ",", "" ) Case "currency" Format = FormatCurrency(expression, 2) Case "fixed" Format = Replace( FormatNumber(expression, _ 2, -1), ",", "" ) Case "standard" Format = FormatNumber(expression, 2, -1) Case "percent" Format = FormatPercent(expression, 2) Case "yes/no" expression = cLng(expression) If expression = 0 then Format = "No" else Format = "Yes" end if Case "true/false" expression = cLng(expression) If expression = 0 then Format = "False" else Format = "True" end if Case "on/off" expression = cLng(expression) If expression = 0 then Format = "Off" else Format = "On" end if Case Else Format = expression End Select On Error GoTo 0 End Function 'function formatit(thetext) 'if len(thetext) > 45 then 'mytextarray=split(thetext,' ') 'formattedtext=thetext 'else 'formattedtext=thetext 'end if 'formatit=formattedtext 'end function %> <% AdminEmailAddress="info@KStrategies.com" frmEmailAddress=request("frmEmailAddress") password=request("password") frmcompanyname=request("frmcompanyname") frmowner=request("frmowner") frmContactPerson=request("frmContactPerson") frmaddress=request("frmaddress") frmCity=request("frmCity") frmState=request("frmState") frmZip=request("frmzip") frmPhone=request("frmphone") frmFax=request("frmFax") frmCellPhone=request("frmcellphone") frmWebsite=request("frmWebsite") frmTaxID=request("frmTaxID") if request("frmLicenses") = "" then frmLicenses="" else frmLicenses=request("frmLicenses") end if frmMWBE=request("frmMWBE") frmNCTRCA=request("frmNCTRCA") frmDBE=request("frmDBE") frmHUB=request("frmHUB") frm8A=request("frm8A") frmSDB=request("frmSDB") frmDisabledVeteran=request("frmDisabledVeteran") frmDFWMBC=request("frmDFWMBC") frmWBCSW=request("frmWBCSW") frmothercertifications=request("frmothercertifications") frmAAAC=request("frmAAAC") frmAHC=request("frmAHC") frmBCA=request("frmBCA") frmFWMBC=request("frmFWMBC") frmFWHC=request("frmFWHC") frmGDAAC=request("frmGDAAC") frmGDHC=request("frmGDHC") frmHCA=request("frmHCA") frmTCAAC=request("frmTCAAC") frmotherChamber=request("frmotherChamber") frmCSI_01=request("frmCSI_01") frmCSI_02=request("frmCSI_02") frmCSI_03=request("frmCSI_03") frmCSI_04=request("frmCSI_04") frmCSI_05=request("frmCSI_05") frmCSI_06=request("frmCSI_06") frmCSI_07=request("frmCSI_07") frmCSI_08=request("frmCSI_08") frmCSI_09=request("frmCSI_09") frmCSI_10=request("frmCSI_10") frmCSI_11=request("frmCSI_11") frmCSI_12=request("frmCSI_12") frmCSI_13=request("frmCSI_13") frmCSI_14=request("frmCSI_14") frmCSI_15=request("frmCSI_15") frmCSI_16=request("frmCSI_16") frmCSI_17=request("frmCSI_17") frmCSI_18=request("frmCSI_18") frmCSI_19=request("frmCSI_19") frmCSI_20=request("frmCSI_20") frmCSI_21=request("frmCSI_21") frmCSI_22=request("frmCSI_22") frmCSI_23=request("frmCSI_23") frmCSI_24=request("frmCSI_24") frmCSI_25=request("frmCSI_25") frmCSI_26=request("frmCSI_26") frmCSI_27=request("frmCSI_27") frmCSI_28=request("frmCSI_28") if request("frmServices") = "" then frmServices="" else frmServices=request("frmServices") end if frmInsuranceCompany=request("frmInsuranceCompany") frmGenLiaIns=request("frmGenLiaIns") frmSafetyEMR=request("frmSafetyEMR") frmBondingCompany=request("frmBondingCompany") frmSingleBondingCapacity=request("frmSingleBondingCapacity") frmAggregateBondingCapacity=request("frmAggregateBondingCapacity") frmLargestProject=request("frmLargestProject") frmUpperTypicalProject=request("frmUpperTypicalProject") frmLowerTypicalProject=request("frmLowerTypicalProject") frmCPprojectname1=request("frmCPprojectname1") frmCPgeneralcontractor1=request("frmCPgeneralcontractor1") frmCPContractServices1=request("frmCPContractServices1") frmCPContractAmount1=request("frmCPContractAmount1") frmCPContractSerivces1=request("frmCPContractSerivces1") frmCPContractPeriod1=request("frmCPContractPeriod1") frmCPprojectname2=request("frmCPprojectname2") frmCPgeneralcontractor2=request("frmCPgeneralcontractor2") frmCPContractServices2=request("frmCPContractServices") frmCPContractAmount2=request("frmCPContractAmount2") frmCPContractSerivces2=request("frmCPContractSerivces2") frmCPContractPeriod2=request("frmCPContractPeriod2") frmLPprojectname1=request("frmLPprojectname1") frmLPprojectowner1=request("frmLPprojectowner1") frmLPgeneralcontractor1=request("frmLPgeneralcontractor1") frmLPContractServices1=request("frmLPContractServices1") frmLPContractAmount1=request("frmLPContractAmount1") frmLPContractSerivces1=request("frmLPContractSerivces1") frmLPContractPeriod1=request("frmLPContractPeriod1") frmLPprojectname2=request("frmLPprojectname2") frmLPprojectowner2=request("frmLPprojectowner2") frmLPgeneralcontractor2=request("frmLPgeneralcontractor2") frmLPContractServices2=request("frmLPContractServices2") frmLPContractAmount2=request("frmLPContractAmount2") frmLPContractSerivces2=request("frmLPContractSerivces2") frmLPContractPeriod2=request("frmLPContractPeriod2") frmLPprojectname3=request("frmLPprojectname3") frmLPgeneralcontractor3=request("frmLPgeneralcontractor3") frmLPContractServices3=request("frmLPContractServices3") frmLPContractAmount3=request("frmLPContractAmount3") frmLPContractSerivces3=request("frmLPContractSerivces3") frmLPContractPeriod3=request("frmLPCompletionDate3") frmBRCompany1=request("frmBRCompany1") frmBRContactPerson1=request("frmBRContactPerson1") frmBRServicesProvided1=request("frmBRServicesProvided1") frmBRPhone1=request("frmBRPhone1") frmBREmail1=request("frmBREmail1") frmBRCompany2=request("frmBRCompany2") frmBRContactPerson2=request("frmBRContactPerson2") frmBRServicesProvided2=request("frmBRServicesProvided2") frmBRPhone2=request("frmBRPhone2") frmBREmail2=request("frmBREmail2") frmBRCompany3=request("frmBRCompany3") frmBRContactPerson3=request("frmBRContactPerson3") frmBRServicesProvided3=request("frmBRServicesProvided3") frmBRPhone3=request("frmBRPhone3") frmBREmail3=request("frmBREmail3") %> K Strategies

Bidder Registration

Email Id:
 

Password:
  (Up to 12 Characters)

Company Information

Company Name:

Name of Owner:

Contact Person:

Address:

City:

State:

Zip:

Tax ID #:

Phone:

Fax:

Cell Phone:

Website:

Relevant Certifications/Licenses:


Minority/Woman Owned?


Certifications:
NCTRCA
DBE
HUB
Federal-8(a)
Federal SDB
Disabled Veteran
DFW MBC
WBC-SW
  Other, Please list

Company Services

CSI Divisions/Trade Areas:
01-Architecture
02-Engineering
03-Civil Engineering
04-Structural Engineering
05-MEP Engineering
06-Specialized Engineering
07-Professional Services
08-Geo-Tech & Material Testing
09-Inspections
10-Environmental
11-Supplier
12-General Construction
13-Site Work
14-Concrete
15-Masonry
16-Metals
17-Wood & Plastics
18-Thermal & Moisture Protection
19-Doors & Windows
20-Finishes
21-Specialties
22-Equipment
23-Furnishings
24-Special Construction
25-Conveying Systems
26-Mechanical
27-Electrical
28-Miscellaneous/Other


Description of Services:

Insurance & Bonding

Name of Insurance Company


Amount General Liability Insurance


Safety EMR


Bonding Company Name:


Bonding Capacity (Single)


Bonding Capacity (Aggregate)


Largest Bonded Project/Contract:


Typical Project Range/Size
-

Two Largest Projects

Project #1

Name of Project


Name of Project Owner


Name of General Contractor


Your Company's Contract Svcs


Contract Dollar Amount


Term/Period of Contract

Project #2

Name of Project


Name of Project Owner


Name of General Contractor


Your Company's Contract Svcs


Contract Dollar Amount


Term/Period of Contract

Two Business References

Reference #1

Company


Contact Person


Services Provided


Phone


Email

Reference #2

Company


Contact Person


Services Provided


Phone


Email



<% if Request("Submit")="Submit" then dim isValidE dim regEx isValidE = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidE = regEx.Test(frmEmailAddress) if isValidE = True then sql="insert into registration(userid,[password],companyname,ownername,contactperson,address,city,state,zip,phone," sql=sql& "fax,cell,email,website,taxid,dnbnumber,certifications,mwbeowned,nctrca,dbe,hub," sql=sql& "8A,fedsdb,disabledveteran,dfwmbdc,wbcsw,other," sql=sql& "AAAC,AHC,BCA,FWMBC,FWHC,GDAAC,GDHC,HCA,TCAAC,otherchamber," sql=sql& "csi_01,csi_02,csi_03,csi_04,csi_05,csi_06,csi_07," sql=sql& "csi_08,csi_09,csi_10,csi_11,csi_12,csi_13,csi_14,csi_15,csi_16,csi_17,csi_18,csi_19,csi_20,csi_21,csi_22,csi_23,csi_24,csi_25,csi_26,csi_27,csi_28," sql=sql& "servicedescription, insurancecompany,AGLI,Safety_EMR, bondingcompany, singlebondingcapacity," sql=sql& "aggregatebondingcapacity,largestcontract,lowertypicalprojectrange,uppertypicalprojectrange," sql=sql& "cp_projectname1,cp_projectowner1,cp_generalcontractor1,cp_contractservices1,cp_contractdollaramount1,cp_contractperiod1," sql=sql& "cp_projectname2,cp_projectowner2,cp_generalcontractor2,cp_contractservices2,cp_contractdollaramount2,cp_contractperiod2," sql=sql& "lp_projectname1,lp_projectowner1,lp_generalcontractor1,lp_contractservices1,lp_contractdollaramount1,lp_completiondate1," sql=sql& "lp_projectname2,lp_projectowner2,lp_generalcontractor2,lp_contractservices2,lp_contractdollaramount2,lp_completiondate2," sql=sql& "lp_projectname3,lp_projectowner3,lp_generalcontractor3,lp_contractservices3,lp_contractdollaramount3,lp_completiondate3," sql=sql& "BR_company1,br_contactperson1,br_servicesprovided1,br_phone1,br_email1," sql=sql& "BR_company2,br_contactperson2,br_servicesprovided2,br_phone2,br_email2," sql=sql& "BR_company3,br_contactperson3,br_servicesprovided3,br_phone3,br_email3" sql=sql& ") values (" sql=sql&"'"&frmEmailAddress&"','"&password&"','"&replace(frmcompanyname,"'","''")&"','"&frmowner&"','"&frmContactPerson&"','"&frmaddress&"','"&frmCity&"','"&frmState&"'," sql=sql&"'"&frmZip&"','"&frmPhone&"','"&frmFax&"','"&frmCellPhone&"','"&frmEmailAddress&"','"&frmWebsite&"','"&frmTaxID&"','"&frmdnbnumer&"','"&frmLicenses&"','"&frmMWBE&"'," sql=sql&"'"&frmNCTRCA&"','"&frmDBE&"','"&frmHUB&"','"&frm8A&"','"&frmSDB&"','"&frmDisabledVeteran&"','"&frmDFWMBC&"','"&frmWBCSW&"','"&frmothercertifications&"'," sql=sql&"'"&frmAAAC&"','"&frmAHC&"','"&frmBCA&"','"&frmFWMBC&"','"&frmFWHC&"','"&frmGDAAC&"','"&frmGDHC&"','"&frmHCA&"','"&frmTCAAC&"','"&frmotherChamber&"'," sql=sql&"'"&frmCSI_01&"','"&frmCSI_02&"','"&frmCSI_03&"'," sql=sql&"'"&frmCSI_04&"','"&frmCSI_05&"','"&frmCSI_06&"','"&frmCSI_07&"','"&frmCSI_08&"','"&frmCSI_09&"','"&frmCSI_10&"','"&frmCSI_11&"'," sql=sql&"'"&frmCSI_12&"','"&frmCSI_13&"','"&frmCSI_14&"','"&frmCSI_15&"','"&frmCSI_16&"','"&frmCSI_17&"','"&frmCSI_18&"','"&frmCSI_19&"','"&frmCSI_20&"','"&frmCSI_21&"','"&frmCSI_22&"','"&frmCSI_23&"','"&frmCSI_24&"','"&frmCSI_25&"','"&frmCSI_26&"','"&frmCSI_27&"','"&frmCSI_28&"'," sql=sql&"'"&frmServices&"','"&frmInsuranceCompany&"','"&frmGenLiaIns&"','"&frmSafetyEMR&"','"&frmBondingCompany&"','"&frmSingleBondingCapacity&"'," sql=sql&"'"&frmAggregateBondingCapacity&"','"&frmLargestProject&"','"&frmLowerTypicalProject&"','"&frmUpperTypicalProject&"'," sql=sql&"'"&frmCPprojectname1&"','"&frmCPgeneralcontractor1&"','"&frmCPContractServices1&"','"&frmCPContractAmount1&"'," sql=sql&"'"&frmCPContractSerivces1&"','"&frmCPContractPeriod1&"','" &frmCPprojectname2&"','"&frmCPgeneralcontractor2&"'," sql=sql&"'"&frmCPContractServices2&"','"&frmCPContractAmount2&"','"&frmCPContractSerivces2&"','"&frmCPContractPeriod2&"'," sql=sql&"'"&frmLPprojectname1&"','"&frmLPprojectowner1&"','"&frmLPgeneralcontractor1&"','"&frmLPContractServices1&"','"&frmLPContractAmount1&"','"&frmLPContractPeriod1&"'," sql=sql&"'"&frmLPprojectname2&"','"&frmLPprojectowner2&"','"&frmLPgeneralcontractor2&"','"&frmLPContractServices2&"','"&frmLPContractAmount2&"','"&frmLPContractPeriod2&"'," sql=sql&"'"&frmLPprojectname3&"','"&frmLPProjectOwner3&"','"&frmLPgeneralcontractor3&"','"&frmLPContractServices3&"','"&frmLPContractAmount3&"','"&frmLPCompletionDate3&"'," sql=sql&"'"&frmBRCompany1&"','"&frmBRContactPerson1&"','"&frmBRServicesProvided1&"','"&frmBRPhone1&"','"&frmBREmail1&"'," sql=sql&"'"&frmBRCompany2&"','"&frmBRContactPerson2&"','"&frmBRServicesProvided2&"','"&frmBRPhone2&"','"&frmBREmail2&"'," sql=sql&"'"&frmBRCompany3&"','"&frmBRContactPerson3&"','"&frmBRServicesProvided3&"','"&frmBRPhone3&"','"&frmBREmail3&"')" 'response.write sql '5/12/2005 DVD 'check to see if they exist already checksql="select count(*) from registration where email='"&frmEmailAddress&"'" set rsChk=conn.execute(checksql) rtn=rsCHK(0) 'If they exist add them and reply back 'Otherwise add them If rtn=0 then set rs=conn.execute(sql) response.write sql response.write "Congratulations!!! "&frmCompanyName&" has been successfully added to the KStrategies Database.

Return Home" sendto=frmEmailAddress sendfrom=AdminEmailAddress bcc="kkeyes@kstrategies.com" subj="KStrategies Vendor Registration" text= "Congratulations!!! "&frmCompanyName&" has been added to the KStrategies Vendor Database. " 'You can update your company profile using"&chr(13)&"User "&frmuser&chr(13)&"Password "&frmpassword 'const schema = "http://schemas.microsoft.com/cdo/configuration/sendusing" 'set iConf = Server.CreateObject("CDO.Configuration") 'set Flds = iConf.Fields 'Flds(schema)=25 'set myMail = nothing sendemail sendto,sendfrom,cc,bcc,subj,text Response.Redirect "AddSuccess.asp" else msg="An Account has already been setup for this Email " & "'" & frmEmailAddress & "'." & " If you have already registered in the past, please login to make any updates to your information. If you have forgotten your password, please contact us." Response.Write("<" & "script language=JavaScript>") Response.Write("alert(""" & msg & """)<" & "/script>") Response.Write("<" & "script language=JavaScript>") Response.Write("document.getElementById('" & "frmEmailAddress" & "'" & ").focus();") Response.Write("") end if else msg="Email address is not correct format " & "'" & frmEmailAddress & "'." Response.Write("<" & "script language=JavaScript>") Response.Write("alert(""" & msg & """)<" & "/script>") Response.Write("<" & "script language=JavaScript>") Response.Write("document.getElementById('" & "frmEmailAddress" & "'" & ").focus();") Response.Write("") end if end if %>

Dallas  -  phone 214-599-9766   |   fax (214) 468-8614
Fort Worth  -  phone (817) 288-6123   |   fax (817) 928-3048   |   info@kstrategies.com

© 2007 K Strategies. All Rights Reserved

Webdesign by Alpha Business Images

<% Response.Write("<" & "script language=JavaScript>") Response.Write("document.getElementById('" & "frmEmailAddress" & "'" & ").focus();") Response.Write("") %>