Code:<html>
<head>
<title>d.o.o.</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<link href="../stil.css" rel="stylesheet" type="text/css">
</head>
<body >
<%
ON ERROR RESUME Next
Jezik=request.QueryString("lang")
Isci=request.Form("isci")
Eposata=request.Form("email")
Vpr=request.Form("pitanje")
' imebaze="../Db/baza.mdb"
imebaze="../db/baza.mdb"
set conntemp=server.createobject("adodb.connection")
' conntemp.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(imebaze)
conntemp.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(imebaze) & ";Persist Security Info=False"
%>
<p class="Naslov">Pitanja</p>
<table width="656" border="0">
<tr>
<td> </td>
<td>
<form name="Form1" method="post" action="faq.asp?lang=<%=Jezik%>" onsubmit="return ValidateForm1();" language="JavaScript">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="../slike/back1.jpg">
<%
Function isValidEmail(myEmail)
dim isValidE
dim regEx
isValidE = True
set regEx = New RegExp
regEx.IgnoreCase = False
' regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
regEx.Pattern ="^(([^<>()[\]\\.,;:\s@\""]+(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$"
isValidE = regEx.Test(myEmail)
isValidEmail = isValidE
End Function %>
<%
if (isValidEmail(Eposata)) then
buf = "Pitanje: " & Vpr
set mail = server.CreateObject("CDONTS.NewMail")
mail.From = "d@gmail.com"
mail.To = "d@gmail.com"
'mail.CC = "info@b.com"
'mail.BCC = "info@b.com"
mail.Subject = "FAQ"
mail.Body = buf
mail.Send
Set mail=nothing
%>
<tr>
<td colspan="2" valign="top" background="../slike/back1.jpg"><p><b>Slanje je uspelo.</b><br>
<br>
</p>
</td>
</tr>
<%
else
%>
<tr>
<td colspan="2" valign="top" background="../slike/back1.jpg">
<p><b>Pošiljanje NI uspelo!</b><br>Unesite sva posalja! <b>ne zaboravite uneti vas email</b><br> </p>
</td>
</tr>
<%
end if
end if
%>
<tr>
<td valign="top" background="../slike/back1.jpg"><b>Vaš e-naslov:</b><br>
<input name="email" type="text" id="email" value="<%=Eposata%>" size="30" maxlength="50" >
<br>
<br>
<input type="submit" name="Submit" value="Posalji">
</td>
<td valign="top"><b>Vaše pitanje:</b><br>
<textarea name="pitanje" cols="30" rows="4" id="pitanje"><%=Vpr%></textarea>
</td>
</tr>
</table>
</form>
</td>
</tr>
NOTE: i ovo ti nije kompletna strana vec deo iste, posto nemas zatvorene body i html tagove, jeli tako..
ASP email validacija
