<%@ Language=VBScript %> <%Option Explicit Response.Expires =0 'Response.Write Request.ServerVariables("Path_Info") & "xxxx" 'Response.End %> Africa Connect - Products <% If Request("bFlag") ="1" then Dim myMail, Body Dim sName, sSurname, sPosition, sCompany, sAddress, sCity,sState,sZip,sCountry,sTelephone,sFax,sEmail,sProduct,sMessage 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") sProduct = Request("txtProduct") sMessage = Request("txtMessage") strSQL = "Insert into tblProduct (sName, sSurname, sPosition, sCompany, sAddress, sCity,sState,sZip,sCountry,sTelephone,sFax,sEmail,sProduct,sMessage) " strSQL = strSQL & " values ('" & sName & "','" & sSurname & "', '" & sPosition & "','" & sCompany & "','" & sAddress & "','" & sCity & "','" & sState & "','" & sZip & "','" & sCountry & "','" & sTelephone & "','" & sFax & "','" & sEmail & "','" & sProduct & "','" & sMessage & "')" 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 Response.write strSQL & "
" & objConn.ConnectionString objConn.Mode = 3 objConn.Open objConn.Execute strSQL Set objConn = Nothing Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.To = "webmaster@africaconnect.co.za" myMail.From = sEmail myMail.Subject = "AfricaConnect - Product 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 Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & ""& vbCrlf Body = Body & "
Product/Services :" & sProduct & "
Message: " & sMessage & "
Email: " & sEmail & "
Email: " & sEmail & "
Date: " & Now() & "
Name: " & sName & " " & sSurname & "
Position: " & sPosition & "
Company: " & sCompany & "
Address: " & sAddress & "
City: " & sCity & "
State: " & sCity & "
Zip Code: " & sZip & "
Country: " & sCountry & "
Telephone: " & sTelephone & "
Fax: " & sFax & "
" & vbCrlf Body = Body & "
" & vbCrlf Body = Body & "
" & vbCrlf Body = Body & "
" & vbCrlf 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 & "
" 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 Product 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 "SubmitProducts.asp" Else%>

Products
Please supply the following Information for the kind of Product/Service you are looking in Africa Continent.

Name :    
Surname :    
Position :    
Company :    
Address :
City : Province/State :
Zip Code : Country :
Telephone :    
Fax :    
Email :    
Products/Service (Enter the products which you are looking for) :  
Leave your messages :    
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%>