Kontrollera e-mail adress

Vet ej om detta är rätt forum att posta i men jag testar.
Jag har ett nyhetsbrev i asp där besökarna kan anmäla sig genom att skriva in sin e-mail adress.
Typ såhär (default.asp):

<form action="nyhetsbrev.asp?action=save" method="post">
<table width="519" border="0" cellpadding="1" cellspacing="0">
<tr>
<td><b>Fyll i din E-mail adress</b></td>
</tr>
<tr>
<td width="431" align="left" valign="top">
<input type="text" name="email" size="22">
</td>
</tr>
<tr>
<td width="431" height="26">
<input type="radio" class="knapp" name="subs" value="1" CHECKED>
Påbörjarja prenumeration<br>
<input type="radio" class="knapp" name="subs" value="0">
Avsluta prenumeration </td>
</tr>
<tr>
<td width="431">
<input type="submit" value="Skicka" name="submit" class="button">
</td>
</tr>
</table>
</form>

Efter att man Skickat hamnar man på nyhetsbrev.asp och så står det tex. "tack" eller "adressen finns redan"

Det jag nu skulle vilja ha hjälp med är att lägga in en funktion så att besökaren får ett felmeddelande på sidan default.asp (tex. att det med röd text står "E-post adressen är ogiltig. Vänligen försök igen" högst upp på sidan)om han fyller i en felaktig e-mail adress.
Tex. inget @ mm mm. Antar att det finns ganska många typer av "felaktiga" sätt att skriva in en e-mail adress.

Tack på förhand!

//Korak

http://script.webforum.nu/wf/Forum1/HTML/000038.html

------------------
essentitia preter non sans multiplicandum

Jag läste faktiskt det innan jag postade detta inlägg.
Förstod inte riktigt hur/var jag lägger in det.
Någon som kan hjälpa mig med det?

Lägg till skriptet på sidan nyhetsbrev.asp

Sedan så skriver du så här när du håller på med save

if not CheckMail(request.form("email")) then
'här hamnar du om mail-adressen inte godkändes
response.write 'Felaktig adress'
'annan kod
end if

------------------
essentitia preter non sans multiplicandum

Hmmm...jag är helt enkelt för dålig på asp. Får det inte att funka som det ska.
Om jag vill att det ska funka ungefär som jag skrev i det första inlägget och koden för nyhetsbrev.asp ser ut som nedan, hur gör jag då?

<!--#include file="config.inc"-->

<%
'setting buffering to true
response.buffer=true
'decleration
dim useraction
dim conn
dim rs
dim sql
dim DownNumber
dim sql3
dim sql2
dim uemail
dim subs
dim totalmails
'----------------------

'get action from user
useraction=request("action")
select case useraction
case "save"
	Uemail=lcase(request.form("email"))
	subs=request.form("subs")
	set conn=server.createobject("adodb.connection")
	set rs=server.createobject("adodb.recordset")
	sql = "select * from emails where emails='"&Uemail&"'"
	conn.open dsn
	rs.open sql,conn
	select case subs
	'in case someone wants to join the list
	case "1"
		if rs.bof and rs.eof then
			sql2="insert into emails(emails) values('"&Uemail&"')"
			conn.execute(sql2)
			response.write "Tack! Adressen <b>" & Uemail & "</b> har lagts till i Nyhetsbrevet."
		else
			response.write "Adressen <b>" & Uemail & "</b> finns redan."
		end if

	
	'in case someOne wants to unsubscribe
		case "0"
	if rs.bof and rs.eof then
			response.write "Adressen du angav finns inte registrerad."
	else
			sql2="delete from emails where emails='"&Uemail&"'"
			conn.execute(sql2)
			response.write "Adressen <b>" & Uemail & "</b> har nu tagits bort från Nyhetsbrevet."
	end if

		
		
	end select
rs.close
set rs=nothing

end select

%>

Mycket tacksam för svar!

//Korak