<%@LANGUAGE="VBSCRIPT"%>
<%
Dim liValidate
If Request("status") = "insert" then
liValidate = true
' --- email
if Request("email") = "" then
liValidate = false
else
if instr(Request("email"),"@")<2 or instr(Request("email")," ")>0 then
liValidate = false
else
laCLGPwdValidation = Split(Right(Request("email"), Len(Request("email")) - InStr(Request("email"),"@")), ".")
If UBound(laCLGPwdValidation) < 1 Then
liValidate = false
Else
If Len(laCLGPwdValidation(UBound(laCLGPwdValidation))) < 2 Then
liValidate = false
End If
End If
End if
End if
End if
%>
<%
if request("status")="insert" AND liValidate = true then
function fixQuotes(lsString)
fixQuotes=replace(lsString, "'","''")
end function
SQLQuery = "INSERT INTO web_mailinglist (semail) VALUES ('"&fixQuotes(request("email"))& "')"
Set EditCmd = Server.CreateObject("ADODB.Command")
EditCmd.ActiveConnection = conn
EditCmd.CommandText = SQLQuery
EditCmd.Execute
EditCmd.ActiveConnection.Close
response.redirect "default.asp?send=true"
end if
%>
Fattoria l'Amorosa | Keller und Rebberge