<%@ Language=VBScript %> <%Option Explicit Response.Expires =0 %> Africa Connect - Businesses <% If Request("bFlag") ="1" then Dim myMail, Body Dim sName, sSurname, sPosition, sCompany, sAddress, sCity,sState,sZip,sCountry,sTelephone,sFax,sEmail Dim sRequirement,sEnvisagedProject,sFundingRequired,sPartnershipType,sCommencementDate,sMeetingPreference,sBusinessPlan,sCompanyProfile,sBusinessType Dim objConn, strSQL, strCnn sName = Request("txtName") sSurname = Request("txtSurname") sPosition = Request("txtPosition") sCompany= Request("txtCompany") sAddress= Request("txtAddress") sCity= Request("txtCity") sState= Request("txtState") sZip= Request("txtZip") sCountry= Request("txtCountry") sTelephone= Request("txtTelephone") sFax= Request("txtFax") sEmail = Request("txtEmail") sRequirement = Request("txtRequirement") sEnvisagedProject= Request("txtEnvisagedProject") sFundingRequired= Request("txtFundingRequired") sPartnershipType= Request("txtPartnershipType") sCommencementDate= Request("txtCommencementDate") sMeetingPreference= Request("txtMeetingPreference") sBusinessPlan= Request("txtBusinessPlan") sCompanyProfile= Request("txtCompanyProfile") sBusinessType= Request("txtBusinessType") strSQL = "Insert into tblBusiness (sName, sSurname, sPosition, sCompany, sAddress, sCity,sState,sZip,sCountry,sTelephone,sFax,sEmail,sRequirement,sEnvisagedProject,sFundingRequired,sPartnershipType,sCommencementDate,sMeetingPreference,sBusinessPlan,sCompanyProfile,sBusinessType) " strSQL = strSQL & " values ('" & sName & "', '" & sSurname & "', '" & sPosition & "','" & sCompany & "','" & sAddress & "','" & sCity & "','" & sState & "','" & sZip & "','" & sCountry & "','" & sTelephone & "','" & sFax & "','" & sEmail & "','" & sRequirement & "','" & sEnvisagedProject & "','" & sFundingRequired & "','" & sPartnershipType & "','" & sCommencementDate & "','" & sMeetingPreference & "','" & sBusinessPlan & "','" & sCompanyProfile & "','" & sBusinessType & "')" StrCnn = Request.ServerVariables("APPL_PHYSICAL_Path") & "data\dbAfrica.mdb" Set objConn =Server.CreateObject("ADODB.Connection") 'objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbAfrica.mdb" objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCnn objConn.Mode =3 objConn.Open ' response.write strSql ' response.end objConn.Execute strSQL Set objConn = Nothing Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.To = "webmaster@africaconnect.co.za" myMail.From = sEmail myMail.Subject = "AfricaConnect - Business Request - " & Now() myMail.BodyFormat = 0 myMail.MailFormat =0 Body = "" Body = Body & "Africa Connect" Body = Body & "" Body = Body & "" Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf if sFundingRequired <> "" then Body = Body & ""& vbCrlf end if if sPartnershipType <> "" then Body = Body & ""& vbCrlf end if if sCommencementDate <> "" then Body = Body & ""& vbCrlf end if if sMeetingPreference <> "" then Body = Body & ""& vbCrlf end if if sBusinessPlan <> "" then Body = Body & ""& vbCrlf end if if sCompanyProfile <> "" then Body = Body & ""& vbCrlf end if if sBusinessType <> "" then Body = Body & ""& vbCrlf end if ' Body = Body & ""& vbCrlf ' Body = Body & ""& vbCrlf ' Body = Body & ""& vbCrlf ' Body = Body & ""& vbCrlf ' Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & "
Email: " & sEmail & "
Date: " & Now() & "
Name: " & sName & " " & sSurname & "
Position: " & sPosition & "
Company: " & sCompany & "
Business Requirements: " & sRequirement & "
Envisaged Project: " & sEnvisagedProject & "
Funding Requirement: " & sFundingRequired & "
Partnership Type: " & sPartnershipType & "
Commencement Date: " & sCommencementDate & "
Meeting Preference: " & sMeetingPreference & "
Business Plan: " & sBusinessPlan & "
Company Profile: " & sCompanyProfile & "
Business Type: " & sBusinessType & "
Address: " & sAddress & "
City: " & sCity & "
State: " & sState & "
Zip Code: " & sZip & "
Country: " & sCountry & "
Telephone: " & sTelephone & "
Fax: " & sFax & "
" Body = Body & "
" Body = Body & "
" Body = Body & "
" Body = Body & "" Body = Body & "
Important Email Information
The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access to this email " Body = Body & "by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be " Body = Body & "taken in reliance on it, is prohibited and may be unlawful. If you are not the intended addressee please contact the sender and dispose of this e-mail." Body = Body & "
" 'response.write body 'response.end myMail.Body = Body myMail.Send Set myMail = nothing Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.To = sEmail myMail.From = "webmaster@africaconnect.co.za" myMail.Subject = "Mail Confirmation From AfricaConnect" myMail.BodyFormat = 0 myMail.MailFormat =0 Body = "" Body = Body & "Africa Connect" Body = Body & "" Body = Body & "

This is a confirmation of your business request.
We will get back to you within 7 working days.
Thanks for using AfricaConnect.

" Body = Body & "
" Body = Body & "

Warm regards," Body = Body & "
" Body = Body & "AfricaConnect Team" Body = Body & "
" Body = Body & "www.africaconnect.co.za

" Body = Body & "" myMail.Body = Body myMail.Send Set myMail = nothing Response.Redirect "SubmitBusiness.asp" Else%>

Businesses
Please supply the following Information for the kind of Businesses you are looking in Africa Continent.

Name :    
Surname :    
Position :    
Company :    
Address :
City : Province/State :
Zip Code : Country :
Telephone :    
Fax :    
Email :    
Business Partner Requirement (state what your requirements are of the business partner) :
 
Envisaged Project (state projects the partner to be involved-in-if any) :
 
Type of Funding Required :
 
Partnership Type(JV, NEWCO.) :
 
Expected Commencement Date :
 
Meeting Preference (where and how will you prefer to meet with the business partner) :
 
Business Plan (attach the business plan - if it exist) :
 
Company Profile (attach the company profile - if it exist) :
 
Existing or New Business :
 
Kindly check your information again before submitting.
Once your request is posted, we will get back to you in 7 working days.

"Please click only once"
 
<%End if%>