I loop through a database email field to display the emails
but I want to show whatever comes after @ to be demo.com
like this
[email protected]>>[email protected]
how should I write the code?

You could use the InStr function to find the '@' sign,
subtract the location of the '@' from the string Length,
then use the Right function to get the domain name.

There are many ways this can be done.

VBScript Functions: http://www.w3schools.com/vbscript/vb..._functions.asp

- A.Kahtava

As Adam said there are many ways to skin a cat, how would I do it:

dim address,result
address = "[email protected]"
result = left(address,(InStr(address, "@")-1))
response.write result

I have made the assumption you know how the place this code in a loop.

Wind is your friend
Matt