What are you doing during Earth Hour??

Tuesday, March 31, 2009

Talking abt earth hour, some companies show their support by selling special candle for earth our. @ company tht I work currently, not sure what are the strategies have been done coz I was not in the office. 1 day jer masuk opis hari lain @ customer’s place.

During the earth hour day, I spend my time @ campus's library referring to existing dissertation. I finally submit my 4th chapter out of 6 chapters. Yay.!!
Well tips to work smart, just snap pic of each page NO need to write. So my fren, make use your digital cam. Not only for blogging purposes yach!!.

Once done, I went to my fav GYM club, @ Menara Axis. Successfully attended 1hr Body Vive and 1hr Body Jam class. The Body Jam new track release was fun and easy!!..New Body Combat step kinnda funny..sbb ada step ala-ala rock jump during track Scooter vs. Status Quo - Jump That Rock. Body combat dah nak ala Body Jam plak. Sudah kekurang idea kah??

So tht nite, rasa cam nak tido awal but unfortunately ter excited layan facebook. I just switched off lights and tv but the internet must on. Keluar round apartment and snap few pics. Basically, my apartment ada kenduri. Tak kan nak light off kot. Terang lagi bersuluh. One terrace house near by celebrate the Earth Hour, 8.30pm terus light off. Then, lepak one whole family at their compound sambil nyala lilin. Tiba2 terdengar one kids asked her mom: Napa rumah tuh tak tutup lampu??.. Hahh.. jawab jgn x jawab.

Btw, wht am going to stress here is global warming mostly because of other developed country. They caused the global warming but the impact one whole world kena. They did the mess and we have to cover it up.. Humm.. What do you think?

Pok Cik..!! You spoil my day!!..

Thursday, March 26, 2009

Place where the story begins


Spoil my day!!.. I got into an accident near Endah Parade which is 200m from Bukit Jalil Star LRT. Black NAZA ria try to overtake from left unfortunately rammed into my car. Am not going to talk abt the damages sebab calar sikit jer..but the argument between me and the pak cik (Naza Ria's driver)remains forever..

This pak cik blame me pulak.. What derr!!.. Inside the NAZA got 2 lelaki toya which I think it is a foreigner. Muka can x der perasaan jer..May be yes or may be not. But wht am going to stress here is ada one lady yg perasan santek..boleh jeling me sambil touch up make up..What der..!!

Back to the argument between me and pak cik..

Pak Cik: Awak nih nak pergi mana?
Me: Say nak terus la yang pak cik pegi overtake saya kenapa?
Pak Cik: Kalau nak terus, awak patut duduk lane kiri?
Me: Habis kenapa pakcik tak dok lane kanan kalau pakcik nak masuk kanan?
Pak Cik: Saya dah bagi signal awak x nampak ker?
Me: Kereta Pak cik kat belakang, kereta saya kat depan..pak cik bagi signal pon mana saya nampak.
Pak Cik: Awak bawak kereta tak tengok kiri kiri kanan ker?
Me: Saya nak pergi terus buat apa saya nak tengok kiri kanan. Pak cik yang tiba - tiba dari kiri nak belok kanan. Sekarang nih kereta saya dah calar sampai tanggal cat kereta pak cik tak der aper2 pon.
Pak Cik: Sapa kata x der apa. Nih apa? Kereta nih bukan kereta saya..dalam calar tuh ..kalau nak cat kena cat satu pintu.
Me: Habis..saya pon kena cat semua tuh..lagi banyak..Pak cik! nih warna cat kereta saya yang lekat kat kereta pak cik..guna turtle wax swirl mark removal hilang la. Kereta saya yang teruk tuh pak cik.
Pak Cik: Ha cuba lah..
Me: (sambil kikis cat kat kereta pak cik)..mana pulak..ha nih..kan dah tanggal..saya yang teruk..meh tengok kereta saya. (pak cik tuh pon ikot) Nampak nih hitam nih bukan cat taw..pelastik. Cat semua dah tanggal..Nasib baik tak der menda yang pecah..
Pak Cik: Awak ni yang tak berhati-hati bawak kereta.
Me: Pak cik..kalau berhati-hati sekali pon, kalau dah nak xcident, xcident la jugak.
Pak Cik: Kalau awak bawak elok-elok tak jadi macam nih.
Me: Pak cik, pak cik boleh agak ker bila nak xcident. Kalau Allah kata nak jadi..jadi la wp pakcik berhati-hait macam mana pon. Macam nih la pak cik..saya dah lambat nih.
Pak Cik: Saya pon dah lambat. Awak la dok lane salah. Macam mana sekarang?
Me: Saya dah dah cakap tadi, kalau nak pergi balai boleh tp saya tak tahu la balai polis kat mana. Pak cik tahu ker?. Kalau tak, pak cik bayar kat saya.
Macam nih pak cik saya bukan nak gaduh ke apa tp pak cik dah langgar saya..tgok kerata saya lagi teruk dari kerata pak cik. Saya nak pak cik bayar saya supaya saya tak rasa puas hati. At least pak cik bayar kat saya. Terpulangla..nak bayar ker nak pi balai.
Pak Cik: Berapa?
Me: Berapa pak cik boleh bayar? Humm.. RM 200 boleh.. (blur la nak estimate baper..)
Pak Cik: Saya x der duit sampi RM 200. RM 150 boleh?
Me: humm..ok lah. (Malas nak gaduh)
(Pak cik tuh pon masuk kereta)..sambil kata, lain kali bawak kereta tuh berhati-hati sikit.
Me: Pak cik pon..bawak kereta tuh elok-elok sikit.
(Keter pok cik tuh lalu sambil perempuan perasan tuh jeling lagi..ahh..koser..naper mung perasan mung lawo sangat ke??..)

Wahh..Gitulah..al kisah ngan pak cik itu..bergetar suara during the conversation tuh.. tht nature of me..sbb geram & takot tp buat2 berani. Tp mulut nih pulak laju jer...tahla..mana datangnya kekuatan power puff gurl ittew.. Sebenarnya agak blank la jugak aper nak buat. Worst thing, tak der black and white to say problem solved. Lain kali kena prepare document nih..Bukan aper, KL drivers prone to accident. Cam x happy jer kerja hari nih.. lepas lunch meeting..pas tuh sambung conference call..pas tuh VNC server kat Chennai & UAE to troubleshoot the replication issues..tgok2 dah kol 6 hokay..

After work, pergila cari pondok polis seri petaling. Call number got frm PDRM website, x dapat. Got the adress @ Jln Raden aper tah..Malangya x der GPS..batt hp dah kong..Adehh..puas round sri petaling, finally jumpa la pondok polis ittew. Nak buat dialog lagi ker??.. penat la.. to cut the story short, borak2 jer tanya wht to do kat pok cik polis tuh..Kejap panggil Encik..kejap tersasul pok cik. I just tell him rasa tak sedap hati sbb pok cik tuh macam x puas hati jer..Pok cik polis tuh kata kalau dia dah kasi duit maksudnya dia dah ngaku salah la & x akan buat report. Sbb dah ngaku salah & bayar kerosakan. Kalau nak check kena pergi balai polis traffic @ Bandaraya. Oh My..kena gi KL..Shah Alam x der ker pok cik? Tak boleh..ader no sana tak..boleh saya call. Humm..susah takot x dilayan jer..
Adoii..pok cik..nak cari pondok polis nih pon jenuh..dah la saya tak biasa area nih..Nah amik no nih..

Finally, i tied to call the number but worst. Infact, I have tried to call the pondok polis tapi x dapat. Okay..am give up!!
Let me put this way..!! Tawakkal jer lah..!!






EOF - "End of File" wopppOpss.. EOD - "End of Day"

The SweeT EscApE

Saturday, March 21, 2009



"Sungguh, manusia diciptakan penuh kegelisahan, bila ditimpa kesusahan, suka berkeluh kesah. Tetapi bila mengalamai kesenangan, kikir bukan kepalang. Tidak demikian orang yang solat, yang setia mengerjakan solat"-QS Al Ma'aarij 70:19-23-


*********************************************


Taking a break from Hustle & Bustle of City Life..I finally choosed Muara. The fastest and easiest place to escape. Watching the sun, the sea,the sky and the ship..

Owhhh..PEACEFUL!!..What a therapeutic view!!..


I wish to stay a bit longger..unfortunately I reached there around 6.40pm due to the traffic jam all the way from PJ to Subang Jaya using Federal HWay. I have to rush for Magrib prayer..

I was so adore with the view and cannot stop from taking pictures..my fren said.."Awak nih pelancong dari mana ahh??".



"Sesunguhnya sholatku, ibadahku, hidupku dan matiku semata hanya untuk Allah seru sekian alam"




Melihat sun set ini teringat pulak pada surah As-syams yang merupakan sumpah Allah kepada matahari dan selurun ciptaannya termasuk manusia.

Berangan nak hidup dengan tenang..x terlalu busy and stress..but I understand God Now the best..

"Sebab sungguh, bersama kesukaran ada keringanan. Sungguh,bersama kesukaran ada keringanan. Kerana itu, selesai (tugasmu) teruslah rajin bekerja. Kepada Tuhanmu tunjukan permohonan" - QS Alam Nasyrah 94:5-8-

All AbOuT HouSe

Friday, March 20, 2009

Iddin's New House

Today I went to my close fren’s house warming. Nice house 2 and half. The best part is his mom cooks all the dishes mmg sedap dan berselera esp hari nih one whole day am at customer’s place and have no time for lunch. Shukur Alhamdulillah. The best thing I feel that am @my kampong since his relatives speak in loghat utara. Hahah.. I miss my kampong very much unfortunately due to the tight schedule I have to let go my plan.

After the house warming, my fren came to my house. Alamak… umah x sempat kemas. Hiayaiayaiayai… Frankly, my apartment not fully complete. Ada basic furniture jer.. Decoration not yet done..sedang mencari idea & mengumpul duit. Baru plak tadi satu pasu hiasan pecah ditolak langsir..ttb jer kedegangg..terus berkecai.

Telah pecah berkecaii

Angin kuat sangat..mujur satu jer pecah bukan dua. Humm.. x besh arr dah tak cukup satu..

Sakit mata tengok..

Stress Management..

Wednesday, March 18, 2009

Problem not solved yet another problem occoured.. Alahai fening & stress. Problem kat office lagi satu pon x settle lagi.. Ya Rabbi..naperla system ini sudah jadi cacamerba..??

"Take me away to the secret place..the sweet escape!!" I need happy hormone then. Sambil nyanyi2 otw drive balik from Bukit Jalil to Shah Alam melalui KESAS. Nak catch GYM..jalan t.jam sah2 x sempat catch Body Jam Class @7.50pm.

Sampai jer umah..terus nekat 7 tekat.. Runnnnnnn..... I need happy hormone.!!

Dah kol 7..dari Bukit Jalil is abt 6.30pm..kisahla..kalau gi GYM lagi la lambat..


Get my mp4 and my nike..

Ready to Go..!!



Park pon dah x der orang..but who cares..Tp sbb dah azan magrib, dapat satu round pon jadilah..

Lets go home.. Home sweet Home..

Mission Accomplished

At least this reduce my stress level..tomorow gonna hit the GYM & catch new release..& tomoro another challenge to go.. Jangan kena stay back sudah..Hayakk..!!

Stress or No Stress..

Tuesday, March 17, 2009




Believe it on not.
Am alergy to Phone calls..!! Found 5 missed calls which is all about WORK..
Dah mcm public phone.. Tak kira masa depa main call jer..pernah dpt kol 3pg..rasa cam dlm mimpi jer. tgok2 memang ada mizz kol..

Camni la idup if you need to support system..so dare not to involve in IT Industry..!!!

Whatevaa..yg penting stress management..Lets GYM 2moro..!!

WHAT DO I THINK? WHAT DO I FEEL? WHO AM I?

In the name of Allah, The Most Gracious, The Most Merciful



My fav clip during the training..& Pak Aminul melayang2 umpama burung dalam clip tuh..sungguh kurasakan bahawa hidup ini hanya sebuah perjalanan..till today, clip ini membawa perasaan keinsafan dalam diri & merupakan peringatan.

SQL statement in Lotus Script.

Kerana nak tulis script nih la..I have to stay back until 9pm and have to let go my plan to Tupai2. Tp rasa lega sangat2..at least I am able to finish my work before the deadline. Today is the implementation day, pagi2 dah buat final testing..ada kena tambah sikit & terus masuk production. Harap2 system stable & x der complain from user..

This codes connected to SQL server using ODBC.

(1)Agent call from Button.
Verify Bypass Ticket) | lscrptVerifyBypassTicket



Option Public

Use "Common Functions"


Sub Initialize


Dim db_PNAB As NotesDatabase
Dim strCurrentServerName As String
Dim strPNABServer As String
Dim strPNABPath As String
Dim strName As String
Dim strEmailAddress As String
Dim strCurrentUserName As String
Dim strCurrentUserRemedyLogin As String
Dim strDataSourceName As String
Dim strODBCUserName As String
Dim strODBCPassword As String
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim strErrorMsg As String
Dim strTicketHeader As String
Dim varNameList As Variant
Dim varEmailList As Variant

Const intTicketHeaderLength = 4

Dim session As New NotesSession
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim ws As New NotesUIWorkspace

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

strCurrentServerName = fncGetCurrentServerName
strDataSourceName = fncGetProfileValue (strCurrentServerName , "ODBCDataSource" )

strODBCUserName = fncGetProfileValue ( strCurrentServerName , "RemedyUserID" )
strODBCPassword = fncGetProfileValue (strCurrentServerName , "RemedyUserPassword" )

Set qry.Connection = con
Set result.Query = qry
con.SilentMode = True
status = con.ConnectTo ( strDataSourceName , strODBCUserName , strODBCPassword )

If Not con.IsConnected Then
Messagebox "ODBC Connection to " + strDataSourceName + " failed !" , 0 + 16 , "ERROR"
Exit Sub
End If


strPNABServer = fncGetProfileValue ( strCurrentServerName , "PNABServer" )
strPNABPath = fncGetProfileValue ( strCurrentServerName , "PNABPath" )
Set db_PNAB = New NotesDatabase ( strPNABServer , strPNABPath )
strName = session.UserName


'function call "fncGetCorrectEmailAddr" to check and retrieve correct email address due to removing country code in email address

tempEmailAddr$ = fncGetInternetEmailAddress ( db_PNAB, strName )
strEmailAddress = fncGetCorrectEmailAddr ( qry, result, tempEmailAddr$ )
strCurrentUserName = strName
strCurrentUserRemedyLogin = Lcase ( fncGetLoginNameOfEmail ( qry , result , strEmailAddress) )
strTicketHeader = Lcase ( Left( doc.BypassReasonText (0) , intTicketHeaderLength ) )


If Lcase ( strTicketHeader ) = "pnkl" Or Lcase ( strTicketHeader ) = "pnch" Then '|||||||||||||||||||||| If ticket is a Problem Ticket. PNKL / PNCH

doc.TicketType = "1"

qry.SQL = "SELECT ""Problem #"" FROM ""SCB-ProblemManagement"" WHERE ( ""Problem #"" = '" + Ucase ( doc.BypassReasonText (0) )+ "') "

result.execute


If Not ( result.IsResultSetAvailable ) Then
strErrorMsg = "Problem Ticket Number [" + doc.BypassReasonText (0) + "] does not exist in Remedy !"

doc.ErrorMsg = strErrorMsg
Call uidoc.GoToField ("RequestNo")
Goto ENDNOW
Else
doc.TicketVerify = "1"
Goto ENDNOW
End If


Elseif Lcase ( strTicketHeader ) = "cmkl" Or Lcase ( strTicketHeader ) = "cmch" Then '|||||||||||||||||||||| If ticket is a Problem Ticket. CMKL / CMCH

doc.TicketType = "2"

qry.SQL = "SELECT ""Change #"" FROM ""SCB-ChangeManagement"" WHERE ( ""Change #"" = '" + Ucase ( doc.BypassReasonText (0) )+ "') "

result.execute

If Not ( result.IsResultSetAvailable ) Then
strErrorMsg = "Change Ticket Number [" + doc.BypassReasonText (0) + "] does not exist in Remedy !"

doc.ErrorMsg = strErrorMsg
Goto ENDNOW
Else
doc.TicketVerify = "1"
Goto ENDNOW
End If
Else '|||||||||||||||||||||| If ticket is invalid i.e. not PNKL/PNCH/CMKL/CMCH

strErrorMsg = "Ticket Number [" + doc.BypassReasonText (0) + "] does not exist in Remedy. Please enter the full Problem / Change ticket number."

doc.ErrorMsg = strErrorMsg
Goto ENDNOW
End If


ENDNOW :
con.Disconnect
Call uidoc.refresh


End Sub


(2) Bypass Verification button


Sub Click(Source As Button)


Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document


If doc.BypassReason (0) = "" Then
Messagebox "Please select a reason for bypassing the verification process", 0 + 16 + 256 + 0 , "WARNING ! "

Exit Sub
End If

If doc.BypassReason (0) = "BAU" Then


If doc.Requestor (0) = "" Then
doc.Requestor = session.CommonUserName
doc.Receipient = session.CommonUserName
End If

Elseif doc.BypassReason (0) = "Requester is manually validated" Then


If doc.RequestNo (0) = "" Then
Messagebox "Please enter a valid Request No" , 0 + 16 , "ERROR"
uidoc.GoToField ("RequestNo")
Exit Sub

Elseif doc.Requestor (0) = "" Then
Messagebox "Please enter a valid Requester Name" , 0 + 16 , "ERROR"
uidoc.GoToField ("Requestor")
Exit Sub

Elseif doc.Receipient (0) = "" Then
Messagebox "Please enter a valid Receipient Name" , 0 + 16 , "ERROR"

uidoc.GoToField ("Receipient")
Exit Sub
Elseif doc.Reason (0) = "" Then
Messagebox "Please enter a Reason for ID withdrawal" , 0 + 16 , "ERROR"

uidoc.GoToField ("Reason")
Exit Sub
Elseif doc.Time (0) = "" Then

Messagebox "Please enter a Length of Time requested" , 0 + 16 , "ERROR"

uidoc.GoToField ("Time")
Exit Sub
End If

If doc.BypassReasonText (0) = "" Then

Messagebox "Please enter the reason why the requester was not automatically verified", 0 + 16 + 256 + 0 , "ERROR ! "

uidoc.GoToField ("BypassReasonText")
Exit Sub
End If


If doc.BypassApprovedBy (0) = "" Then
Messagebox "Please enter approver of this bypass operation", 0 + 16 + 256 + 0 , "ERROR ! "

uidoc.GoToField ("BypassApprovedBy")
Exit Sub
End If



Dim s As New NotesSession
Set db = s.CurrentDatabase
Set agent = db.GetAgent("lscrptVerifyBypassTicket")
If agent.Run = 0 Then
Print "Agent ran",, "Success"
Else
Print "Agent did not run",, "Failure"
End If
End If


If doc.TicketVerify (0) <> "1" Then
Messagebox doc.ErrorMsg(0) , 0 + 16 , "ERROR"
Messagebox "REMEDY Ticket cannot be verified. Password cannot be released.", 0+64, "Error"
Else
intReply = Messagebox ( "You are about to bypass the verification process of releasing this password." + Chr (10) + "Are you sure you want to continue ?", 4 + 32 + 256 + 0 , "WARNING ! " )


If intReply = 6 Then
If doc.Receipient (0) = "" Then doc.Receipient = doc.Requestor (0)
doc.Bypassed = "1"
doc.BypassedBy = session.CommonUserName
doc.TicketVerify = "1"
doc.Form = "log"
Else
doc.TicketVerify = "0"
End If
End If

Call uidoc.Refresh

End Sub

Leisure art work..

All pic taken masa gi cycling @ Bukit Cahaya/Cerakah, Shah Alam. Tepat yg luas untuk berbasikal..last2 naik shuttle jer.

Original Pic


Edited Pic



Original Pic


Edited Pic

Way Of Life..

Saturday, March 14, 2009



Thank You Allah for giving me an opportunity to attend such a good trainning. Just in time.. masa tuh mmg banyak dugaan yg dihadapi. Well, with the the training I found the answer. Thank You Allah for giving me an opportunity to see face to face with the founder. May god bless him !!..I will be the great follower with 7 pricipal and 1 vision..InsyaAllah. Inilah yg dicari selama ini..bukan yang extreme..tp sesuatu yg mudah diterima seimbang dunia & akhirat.

Besides, I understand Asma ul Husna better then before..Alhamdulillah. All the 99names will always be I my heart. Sesungguhnya, dunia ini hanya satu persinggahan..

Salam Perjuangan!!..
Angkatan ke-19 Kuala Lumpur.

The Methodology..

Friday, March 13, 2009



Headache!! Pening kepala..
What information should I write in Metodology..??..I am confused..
Here is my journey to find out..Dah bulan March still kena tambah itu ini chapter 3 buat aku TENSIONN and STRESSSS..sempat ker siap before submission date??

Ya Mujib..Ya Wahab..please give me some patience...!!

Conducting Surveys as your Dissertation Methodology

One methodology that you can use as your dissertation methodology is conducting surveys. Conducting surveys can give you a lot of data and it will assure you that you have a verifiable resources. You need to know how to properly conduct surveys because the data that you will get from this will reflect on your thesis.

Let us say that you are planning to write a masters dissertation about the impact of billboard advertisement of people. With this topic, you need you have a good dissertation methodology using surveys in order to know directly from people how they view the billboard advertisement and if this kind of advertisement has effect on their behavior as consumers.

But before actually conducting the survey, first, you need to write a good questionnaire that reflects the objective of your research methodology dissertation. The questionnaire should cover everything you need to know about the effects of billboard advertisement of consumer behavior.

After you have distributed the questionnaire and you have all the questionnaires filled up by your target sampling, you need analyze the data and start learning how to write methodology. You may have employed a good methodology but if you don’t know how to write it properly in your dissertation, the diligence that you put in your methodology will be wasted.

Your methodology chapter should prove to the panel that you have chosen the best method for your research and that you have followed the method without bias. If you choose to research on consumer behavior on billboard advertising by conducting surveys, you should write why you think conducting surveys are the best way to get data for the dissertation.

Conducting surveys may be time-consuming but as a dissertation methodology, it is one of the most accurate. It provides you direct knowledge of people’s opinions and it can give you good data for your data analysis.

Source: http://thesisblog.com/tag/research-methodology-dissertation

Programmers @ SkyTrex Adventure.



Since I was too excited with my oldskol frend's updates in his facebook regarding to the skytrex adv. I have planned to go in a group of adventurous ppl. I hv called Julian the trainner and book one slot on 21th Feb 09 morning. Horray..!! At first 15 ppl sign up..then increased to 20 ppl. Oh my.. enuff.. Julian said 20 pax is max. More than that u kill them..

On the day, 19 ppl turn out @ Bukit Cahaya Seri Alam..ada yang tak kenal but pernah nampak sum where..rupanya they are all FF Maxis GYM Goers..may be pernah read their blogs kowt....All trail was great..!! Memang mencabar..since me di buli to be 2nd person untuk melalui the adventure..so x dapat la merasai kegerunan kengkawan yang lain. What I can say is I hate part yang kena jadi macam Tarzan tuh..My arm not so strong enuf nak bergayut dari satu to anoter tali..sakit sehh..!! Lagi satu nak panjat tangga yang amattt la tinggi itu.. Sempott.. Memang kena gelak ngan member kat bawah..siot jer..Time korang naik puas la aku gelak kat hangpa..Baru tau betapa sempottnya & sakitnya tangan..

korang kan...programmer kena xcersice jugak hokay..badan sihat otak cergas..baru laju jer tulis program..

Plan for Body Pump class pulak pas nih.. --> malu tapi mahu..huhu..





To check only one IP address exist in a system.

This codes is to check if the IP adress has been used. If Yes, error message will prompt you upon exiting the IP Address field.

Sub Exiting(Source As Field)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set uidoc = w.CurrentDocument

If uidoc.FieldGetText("MachineType") = "Desktop" Or uidoc.FieldGetText("MachineType") = "Server" Then
IP_Address2 = uidoc.FieldGetText("TRNAddr")
key = IP_Address2
End If

If Len(IP_Address2) >= 8 Then
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView

Set db = session.CurrentDatabase

Set view = db.GetView( "svByIPAdd" )
Set doc = view.GetDocumentByKey (key )

If Not (doc Is Nothing) Then
Messagebox "This IP Address has been used."
End If

End If
End Sub