<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim EmailFound
dim UnsubscribeDone
UnsubscribeDone = false
if request.form("action") = "unsubscribe" then
dim connStr
connStr = "Driver={SQL Server};Server=213.130.62.33;Database=bcpb;uid=bcpb;pwd=hj8uX53hcW!"
Set objCMD = Server.CreateObject("ADODB.Command")
With objCMD
.ActiveConnection = connStr
.CommandText = "dbo.spUnsubscribe"
.CommandType = 4
.CommandTimeout = 0
.Prepared = true
.Parameters.Append .CreateParameter("@RETURN_VALUE", 3, 4)
.Parameters.Append .CreateParameter("@Email", 202, 1, 400, Request("Email"))
.Execute()
iReturn = .Parameters("@RETURN_VALUE")
End With
if iReturn = -1 then
EmailFound = false
else
EmailFound = true
UnsubscribeDone = true
end if
end if
%>
British Council for Prevention of Blindness : Unsubscribe
British Council for Prevention of Blindness : Unsubscribe