<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form_nl") Then MM_editConnection = MM_conn_STRING MM_editTable = "subscribers" MM_editRedirectUrl = "thanks_nl.asp" MM_fieldsStr = "subscr_name|value|subscr_email|value" MM_columnsStr = "subscr_name|',none,''|subscr_email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsSubsribers Dim rsSubsribers_numRows Set rsSubsribers = Server.CreateObject("ADODB.Recordset") rsSubsribers.ActiveConnection = MM_conn_STRING rsSubsribers.Source = "SELECT * FROM subscribers" rsSubsribers.CursorType = 0 rsSubsribers.CursorLocation = 2 rsSubsribers.LockType = 1 rsSubsribers.Open() rsSubsribers_numRows = 0 %> Women in ECommerce, ECommerce for Women around the World, Networking for Women, International - WECAI.org - The Women's ECommerce Association International, Inc.
 
  Home About Us Why Join Affiliates Calendar Member Login
 
  You are here: Home >> Events >> 1st World Congress
 

 

 

 

 

 

 

 

 
1st World Congress - São Miguel, Azores

NEW DATES! Please note...

Women and ECommerce -
Connecting, Inspiring & Thriving Beyond 2006
7-9 June 2006

Over the past few years women have created a niche for themselves in the internet world. The start of the new millennium changed the demographics of the internet users. Women are savvy internet users who make well-informed decisions. Women are surpassing men in the number of average internet use, as well as the amount of other online activity including developing online business, shopping online, sending and receiving email and surfing the web.

This conference will provide fresh insights, trends and ideas to help you better understand ecommerce.

Our VISION is “To promote the development of the economically empowered woman, connect and support the growing web presence of women online, customers and women running e-businesses around the world through our Congress Programme, Exhibits and Events.”

SATA is our Official Carrier for the Congress –They are offering a 10% discount on economy class and 20% discount on executive class. Visit their website at: http://www.sata.pt/?engl=1 for English and http://www.sata.pt for Portuguese.

Click the links below to see the exciting and interesting programme, with various opportunities for learning, discussions and networking. (Please note some of the links will be active just as soon as we update the Congress information to reflect the new dates).

Organiser

Invitation Letters
Honorary Committee
Call for Papers
Themes & Programmes
Top Ten Reasons to Attend the Congress
Call for Presentations
Destination
Venue & Location
Accommodations/ Hotel Information
Registration Information
Registration
Global Network
Sponsorship Opportunities
Congress Sponsors
Exhibitors
Useful Information
International Women's ECommerce Day
News/Press
Web Updates
Contact Us
 
Download Congress Brochure (.pdf)

In addition to the knowledge you will gain and the connections you will make, when you attend your 1st World Congress you will receive an Official CERTIFICATE OF COMPLETION suitable for displaying proudly on your website or in your place of business.

 
 
    © 2006 WECAI, all rights reserved Contact Us Code of Ethics Your Privacy Sitemap Members Only FAQs
<% rsSubsribers.Close() Set rsSubsribers = Nothing %>