Va fasen e fel??

6 svar · 215 visningar · startad av SPiN 3 apr. 2000

SPiNMedlem sedan mars 20007 896 inlägg

Frågan3 apr. 2000 19:10#1

Vad är fel i följande kod? PWS säger att End måste finnas med på rad 144, dvs <% End If %>.

<% If password = verifypassword then %>

<%
Set db = Server.CreateObject("ADODB.Connection")
path="DBQ=" & server.mappath("users.mdb")
db.Open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"

SQLStmt = "INSERT INTO users "
SQLStmt = SQLStmt & "(anvandare, losenord, stad, postnummer, postorten, emejlen, telefonnummer, ipnummer) "
SQLStmt = SQLStmt & "VALUES('" & user & "', '" & password & "', '" & city & "', '" & postnr & "', '" & postort & "', '" & epost & "', '" & telenr & "', '" & theip & "'); "
Set leggin = db.Execute(SQLStmt)
db.Close %>

<html>
<head>
<title>Registrering färdig</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font class="header">:: Registrering ::</font><br> <br>
<font>Registreringen lyckad!<br> <br>
- <a href="members.asp">Medlemssidan</a> -<br>
- <a href="default.asp">Hem</a> -<br></font>

</body>

</html>

<% Else %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Ditt lösenord stämde inte överens med ditt verifierade lösenord! Det måste vara samma!<br>
<a href="signup.asp">Tillbaks</a>

</body>

</html>

<% End If %>

Men alltså det finns juh med! *suck*

------------------
SPiN, bjowik99@it-gymnasiet.nu

PatrikBMedlem sedan mars 20002 836 inlägg

3 apr. 2000 19:12#2

Hello,

är detta all kod från denna sida??

/PatrikB

PatrikBMedlem sedan mars 20002 836 inlägg

3 apr. 2000 19:15#3

Prova med att lägga till ett End If efter det som redan finns .....

/PatrikB - som räknade och ej kom upp i 144 rader

SPiNMedlem sedan mars 20007 896 inlägg

4 apr. 2000 07:32#4

Näe inte all kod...
Här är allt:

<%
dim user, password, verifypassword, city, postnr, postort, epost, telenr, theip, db, leggin

user = Request.Form("signupUser")
password = Request.Form("signupPass")
verifypassword = Request.Form("signupPassVerify")
city = Request.Form("signupCity")
postnr = Request.Form("signupPostnr")
postort = Request.Form("signupPostort")
epost = Request.Form("signupEmail")
telenr = Request.Form("signupTelenr")
theip = Request.ServerVariables("REMOTE_ADDR")

if user = "" then %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Du har inte fyllt i Användarnamn</font><br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% Else If password = "" then %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Du har inte fyllt i lösenord</font><br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% Else If verifypassword = "" then %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Du har inte verifierat ditt lösenord</font><br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% Else If city = "" then %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Du har inte fyllt i stad</font><br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% Else If epost = "" then %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Du har inte fyllt i din E-mail</font><br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% else %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Oväntat fel<br>
<a href="signup.asp">Tillbaks</a>

</body>
</html>

<% End If %>

<!-- ***** ANDRA IF-SATSEN ***** //-->

<%
If password = verifypassword then

Response.Redirect("leggin.asp")

Else %>

<html>
<head>
<title>F E L</title>
<link rel=stylesheet href="fyh.css">
</head>
<body>
<font>Ditt lösenord stämde inte överens med ditt verifierade lösenord! Det måste vara samma!<br>
<a href="signup.asp">Tillbaks</a>

</body>

</html>

<% End If %>

Och jag förstår inte riktigt vad du menar... End If efter det som redan finns??

Som ni ser ändrade jag lite i koden, men det spelade ingen rol...

------------------
SPiN, bjowik99@it-gymnasiet.nu

[Redigerat av SPiN den 04 apr 2000]

VideMedlem sedan dec. 19998 577 inlägg

4 apr. 2000 08:33#5

Syntaxen för i If-satsen är fel... du får inte ha ett mellanrum mellan Else och if:
If ble = ble then
Blurp
ElseIf ble = bla then
Blarp
End If

... nu tror han att varenda Else If är en ny If-sats vilket inte är så bra...

------------------
MVH / Vide
Min hemsida:webeye.nu

PatrikBMedlem sedan mars 20002 836 inlägg

4 apr. 2000 09:22#6

.... och då vill "han" ha ett End If för varje Else If

/PatrikB

SPiNMedlem sedan mars 20007 896 inlägg

4 apr. 2000 09:36#7

Okey, nu funkar det ivf... men ett nytt problem har dykt upp *suck, suck, suck*

	<%
	If password = verifypassword then %>

	<%
	Set db = Server.CreateObject("ADODB.Connection")
	path="DBQ=" & server.mappath("users.mdb")
	db.Open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"

	SQLStmt = "INSERT INTO users "
	SQLStmt = SQLStmt & "(anvandare, losenord, stad, postnummer, postorten, emejlen, telefonnummer, ipnummer) "
	SQLStmt = SQLStmt & "VALUES('" & user & "', '" & password & "', '" & city & "', '" & postnr & "', '" & postort & "', '" & epost & "', '" & telenr & "', '" & theip & "'); "
	Set leggin = db.Execute(SQLStmt)
	db.Close %>

	<html>
	<head>
	<title>Registrering färdig</title>
	<link rel=stylesheet href="fyh.css">
	</head>
	<body>
	<font class="header">:: Registrering ::</font><br> <br>
	<font>Registreringen lyckad!<br> <br>
	- <a href="members.asp">Medlemssidan</a> -<br>
	- <a href="default.asp">Hem</a> -<br></font>

	</body>

	</html>

	<% Else %>
...osv

Fel på raden Set leggin = db.Execute(SQLStmt) står det... "Typblandningsfel i villkorsuttryck"

Men just samma kod fungerar på en av mina andra sidor...

------------------
SPiN, bjowik99@it-gymnasiet.nu

[Redigerat av SPiN den 04 apr 2000]