% Dim conn Dim SQL Dim R Dim F Dim RecsAffected Dim aConnectionString 'Seach for email address Dim rgxpEmail Set rgxpEmail = New RegExp rgxpEmail.Pattern = "@" 'Search for website Dim rgxpWebsite Set rgxpWebsite = New RegExp rgxpWebsite.Pattern = "www" 'aConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ '& "Data Source=d:\HaymanReese\relationalHayman.mdb" aConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=f:\websites\haymanreese.com.au\consumer\stockists\relationalHayman.mdb" %>
|
|
|
|
|
|
|
|||
|
|
||||||||