quello che hai scritto fa:
-Crea una variabile
-Divide il contenuto di x usando "@" come delimitatore. Gli elementi così divisi andranno a creare un array messo in nome
-Stampa il contenuto di x esattamente come è stato letto (non sono state fatte modifiche ad x)

Per avere i caratteri prima di "@":

codice:
Dim sVar, sNome

sVar=Application("online") '"jartuf@1102374795690"
sVar=sVar & "@" 'Prevent zero lenght error

sNome=Left(sVar, InStr(sVar, "@")-1)
Response.Write sNome
Edit: ovviamente la mia è una risposta a jartuf, non a supergeniux (che ha postato mentre stavo scrivendo la mia risposta)