|
AniftyscripttodeleteunwantedorinvalidEmailaddressesfromadatabase.WorkswithAccessmdbandSQLServerdatabases.Noconfigrequired,readytouse.Canbeusedforcleaningupanyotherunwantedrecordsaswell.Code:ASP3.0&VBScript
<%@Language='VBScript'%>
<%
'****************************************************************************
'ThisscriptdeletesallunwantedEmailaddressesfromadatabase
'inmultipletables
'Note:ChangethefieldnameEMailtoyourfieldsname.....
'Writtenon:09.03.2001by:CenkYurtseven
'www.asprobots.com,info@asprobots.com
'****************************************************************************
ConstadOpenForwardOnly=0
ConstadLockReadOnly=1
ConstadCmdText=&H0001
ConstadUseClient=3
IfRequest.QueryString('md')='dl'AndRequest.Form('sAddress')<>''AndRequest.Form('dbName')<>''Then
DSNName=Request.Form('dbName')&'.mdb'
SetCon=Server.CreateObject('ADODB.Connection')
Con.Open'DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ='&Server.MapPath(DSNName)
strAddresses=Request.Form('sAddress')
splitAddress=Split(strAddresses,',')
SetTable=Con.OpenSchema(20)
DoWhileNotTable.EOF
TblName=Table('Table_Name')
'Theconditionbelowexcludesthesystemtablesfrombeeingprocessed
IfUCase(Left(TblName,4))<>'MSYS'AndUCase(Left(TblName,3))<>'SYS'AndUCase(Left(TblName,4))<>'RTBL'Then
strSQL='SELECT*FROM'&TblName
Setrs=Server.CreateObject('ADODB.Recordset')
rs.CursorLocation=adUseClient
rs.Open(strSQL),Con,adOpenForwardOnly,adLockReadOnly,adCmdText
ForEachfldNameInrs.Fields
IffldName.Name='EMail'Then
Fori=0ToUBound(splitAddress)
oneAddress=Trim(splitAddress(i))
strSQL='DELETEFROM'&TblName&'WHEREEMail=''&oneAddress&'''
Con.Execute(strSQL)
Next
EndIf
Next
rs.Close
Setrs=Nothing
EndIf
Table.MoveNext
Loop
Con.Close
SetCon=Nothing
EndIf
%>
<!DOCTYPEHTMLPUBLIC'-//W3C//DTDHTML4.0Transitional//EN'>
<HTML>
<HEAD>
<TITLE>DeleteMultipleAddresses</TITLE>
</HEAD>
<BASEFONTFACE='Verdana'>
<BODYBGCOLOR='#000080'TEXT='#FFFFFF'>
<BR>
<DIVALIGN='center'><B>DeleteMultipleAddresses</B>
<FORMACTION='deladdre.asp?md=dl'METHOD='post'>DatabaseName:
<INPUTTYPE='text'NAME='dbName'STYLE='text-align:right'><B>.mdb</B>
<BR>
<BR>Pasteallunwantedaddressesintothetextareabelow,separatedbyacomma<B>,</B>
<BR>
<TEXTAREACOLS='80'ROWS='8'NAME='sAddress'></TEXTAREA>
<INPUTTYPE='submit'VALUE='DeleteAddresses'></FORM>
<SMALL><B>Note:</B>Thisactionwilldeletetheselectedaddressesfromalltablesoftheselecteddatabase.</SMALL>
<BR>
<BR>Thisfilemustbelocatedinthesamefolderofthedatabase.</DIV>
</BODY>
</HTML>
|