if - det indtastede findes - else ....
Jeg har en mailliste, hvorfra man kan blive slettet. Det virker fint. Nu vil jeg gerne tjekke på om navn og emailadresse findes - og hvis det gør - så slettes det - og hvis ikke så skrives: Du har indtastet forkert navn eller email ......Min kode ser således ud:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="forbindelse.asp"-->
<%
If Request.QueryString("Submit") <> "" Then
navn = request.QueryString("Navn")
If navn="" Then
navnstreng= "'%'"
else
navnstreng= "'%" & Navn & "%'"
end If
end If
If Request.QueryString("Submit") <> "" Then
mail = request.QueryString("email")
If mail="" Then
mailstreng= "'%'"
else
mailstreng= "'%" & mail & "%'"
end If
set mailadr = Server.CreateObject("ADODB.Recordset")
mailadr.Open"SELECT * FROM mailingliste WHERE Navn LIKE " & navnstreng & " AND email LIKE " & mailstreng & " ", database, 2,2
mailadr.Delete
end if
Response.write("<body onload='window.focus()' onblur='self.close()'><h6 class='tekst' align='center'>Kære " & request.QueryString("Navn") & "<br><br> - du er hermed slettet <br> og modtager ikke flere e-mails herfra.</h6></body>")
%>
Jeg har prøvet på alle mulige måder fx.
if (request.QueryString("email")<>Request.form("email") OR request.QueryString("Navn")<>Request.form("Navn")) then
Response.write("<body onload='window.focus()' onblur='self.close()'><h6 class='tekst' align='center'>Der findes ingen med det navn <br>eller den e-mailadresse <br> du foreslår</h6></body>")
else
osv osv
Hvad er det jeg skal gøre??
