<%
for each item in Request.Form
if instr(1,Request.Form(item),"'") >0 then
Response.Write "אסור גרשיים"
Response.End
end if
next
dim email,conn,sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "db"
email=Request.Form ("email")
if email="" then
Response.Write "<FONT COLOR='red' size='5' >השדה אימייל ריק</font><br>"
Response.Write "<input type=button value='çæåø' onClick='history.back()'>"
Response.End
end if
dim d
d="INSERT INTO Email_List (email) VALUES('"
d=d & email
d=d & "');"
conn.Execute d
Response.Redirect "email_list.asp"
%>
|
נושאים פעילים
רשימת משתמשים
חיפוש
עזרה
הרשמה
התחברות
UnderWarrior Forums : 
בניית אתרים
