webForumDet fria alternativet
Logga in / Bli medlem

If problem

ASP

4 svar · 218 visningar · startad av Bj

Medlem sedan sep. 2000314 inlägg
Trådstart#1

Har ett problem med följande kod.
Koden funkar men när jag kommer till formuläret så står det redan "Fel lösenord".
Tanken är ju att detta skall komma fram när man fyllt i fel lösenord.
Är det ngn som kan se vad jag missat.

<!-- #include FILE="../adovbs.inc" -->
<!-- #INCLUDE FILE="connect.asp" --> 

<%	Set RecSet = Server.CreateObject("ADODB.Recordset") %>

   <form method="POST" action="raderasvar.asp?what=deleteitnow&open=yes&ID=<% =Request.QueryString("ID") %>">

	<b>Ange din kod för det här inlägget:</b><br><br>
	<input type="password" name="DinKod" size="30">
	<input type="submit" value="Radera ditt svar!">
	</form>

	<% Radera = "SELECT * FROM rubriker WHERE rubrikID = " & Request.QueryString("ID") & " "
	RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic

	If Request.Form("DinKod") = RecSet("kod") Then
	RecSet.Delete
	RecSet.Close %>		
<%
Response.Write "<p align=center><font face=Verdana size=3 color=#0000FF><b>Ditt inlägg är  raderat! Vänta...</b></font></p>"
%>
<head>
<script language="JavaScript" type="text/javascript">
<!--
setTimeout("window.close()",2000);
window.opener.location.reload();
//-->
</script>
</head>

<% Else %>
<%
   Response.Write "Fel lösenord!"
%>
<% End If %>
Medlem sedan dec. 19998 577 inlägg
#2

Lägg in ett till argument i din If-sats:

If Request.Form("DinKod") = RecSet("kod") AND Request.Form("password") <> "" Then

Medlem sedan sep. 2000314 inlägg
#3

Fick samma problem.....

Medlem sedan juni 200032 967 inlägg
#4

mkay, ändra din sista lilla programsnutt till följande:

<%
Elseif request.form("DinKod") <>"" then
Response.Write "Fel lösenord!"
End If 
%>

varför en massa onödiga asp-avgränsare?

Medlem sedan sep. 2000314 inlägg
#5

Tack @nders.
Det funkade fint. Om du har tid får du gärna ge en kort förklaring varför det skall vara så här då jag inte riktigt förstår...

Ang. alla asp avgränsare så har det blivit fler o fler ju mer jag testat med if satsen. (Mycket klipp o klistra)
Skall rensa när det är klart..... ;)

266 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)